Question

我正在使用数据表构建一个闪亮的应用程序。我想要的是启动时没有显示任何记录（行）。因此，您只能在表格顶部看到过滤器。当您开始键入时，将显示行。我在数据表中找不到选项。这可能吗？

下面是示例代码。

    shinyApp(

ui = navbarPage(
    title = 'DataTable',
    DT::dataTableOutput('ex2')
),

server = function(input, output, session) {

    output$ex2 <- DT::renderDataTable(
        DT::datatable(
            iris, 
              options = list(
                dom = 'Bfrtip',
                lengthMenu = list(c(5, 15, -1), c('5', '15', 'All'))
            )
        )
    )

}
)

Answer 1

您可以使用自己的搜索功能：

编辑：添加了第二个正在搜索的character列。

shinyApp(

  ui = navbarPage(
    title = 'DataTable',
    textInput('search', 'search'),
    DT::dataTableOutput('ex2')
  ),


  server = function(input, output, session) {

    require(dplyr)
    iris.mut <- iris %>% 
      mutate(bottom = paste0('v',sapply(Sepal.Width,function(x)paste0(rep('z',x*2),collapse="")),'bx'))

    dat <- reactive({

      if(input$search!=''){
        iris.mut %>%
          filter(grepl(input$search,Species)|grepl(input$search,bottom))
      } else {
        iris.mut %>%
          filter(Species == input$search)
      }
    })

    output$ex2 <- DT::renderDataTable(
      DT::datatable(
        dat(), 
        options = list(
          lengthMenu = list(c(5, 15, -1), c('5', '15', 'All'))
        )
      ))

  }
)

Answer 2

可能不是最有效的方法，但是我会在启动时使用虚拟data.frame进行显示。当您选择过滤器（例如selectizeInput()）时，将显示“真实”数据。

 output$ex2 <- renderDT({

   myFilter <- input$myFilter

   # assuming selectizeInput() is used
   if(is.null(myFilter)){
     irisDF <- data.frame(Sepal.Length = "",
                          Sepal.Length = "",
                          Petal.Length = "",
                          theREst = "")
   } else {
     irisDF <- iris
   }

   DT::datatable(irisDF, options = list(
           dom = 'Bfrtip',
           lengthMenu = list(c(5, 15, -1), c('5', '15', 'All')))
   )

})

R闪亮的数据表在开始时不显示记录（行）

2 个答案: