如何在 Shiny DT 中更改 lengthMenu 的位置

Question

与 this thread here 一样，我需要更改我的 lengthMenu 选项在我的数据中的位置 table。但是，我正在使用 Shiny 并且不太精通 JS。如何将 lengthMenu 从 table 的底部移动到顶部？

library(shiny)
library(DT)
shinyApp(
  ui = fluidPage(DTOutput('tbl')),
  server = function(input, output) {
    output$tbl <- renderDT(
      DT::datatable(iris,
                    selection = "none",
                    plugins = "ellipsis",
                    escape = FALSE,
                    rownames = FALSE,
                    options = list(
                      dom = 'rtipl', #https://datatables.net/reference/option/dom
                      scrollX=TRUE,
                      autoWidth = TRUE,
                      searching=FALSE,
                      ordering=TRUE,
                      bFilter = FALSE,
                      pageLength = 20,
                      lengthMenu = c(5, 10, 15, 20, 25, 30, 35, 40, 45, 50))
      ))
    # )
  }
)

Answer 1

将 dom = 'rtipl' 更改为 dom = 'lrtip'。字母l表示长度菜单。

如何在 Shiny DT 中更改 lengthMenu 的位置

How to change position of lengthMenu in Shiny DT

r

shiny

dt