lengthMenu 选项在 DataTable 中不起作用

Question

我有一个闪亮的应用程序正在运行，我想在数据表中添加 lenghtMenu 选项。它似乎不起作用。我不太确定我是否将它放在 R 代码中的错误位置。感谢您调查此事。

这是我的代码：

output$sbirx.view <- DT::renderDataTable(
{
  input$submit1 
  if (input$submit1==0) return()
  isolate({
    datatable(dataset.filter(), 
              rownames=FALSE,
              extensions = c("FixedColumns", "FixedHeader", "Scroller"), 
              options = list(searching=TRUE,
                            autoWidth=TRUE,
                            scroller=TRUE,
                            scrollX=TRUE,
                            #scrollY="500px",
                          scrollY=paste0(factor*nrow(dataset.filter()),"px"),
                            fixedHeader=TRUE,
                            class='cell-border stripe',
                            lengthMenu = c(5, 30, 50), pageLength = 5,

 fixedColumns=list(leftColumns=2,heightMatch='none')
                            )
           )
  })

 })

Answer 1

根据您的评论，这可能对您有所帮助：我猜你必须根据你的需要选择的因素。

shinyApp(
  ui = fluidPage(
    fluidRow(
      column(12,
             dataTableOutput('table')
      )
    )
  ),
  server = function(input, output) {
    output$table <- renderDataTable(iris,
                                    rownames=FALSE,
                                    extensions = c("FixedColumns", "FixedHeader", "Scroller"), 
                                    options = list(searching=TRUE,
                                                   # autoWidth=TRUE,
                                                   scroller=TRUE,
                                                   scrollX=TRUE,
                                                   scrollY=paste0(4*nrow(iris),"px"),
                                                   fixedHeader=TRUE,
                                                   class='cell-border stripe',
                                                   fixedColumns=list(leftColumns=2,heightMatch='none')
                                    )
    )
  }
)

lengthMenu 选项在 DataTable 中不起作用

lengthMenu option not working in DataTable

r

shiny

dt