Question

我想构建一个非常简单的功能，用户可以选择要处理的文件，然后基于文件的 full 内容，不同的输出将显示在多个菜单选项卡的各种data.tables中。另外，我希望用户能够根据将在textInput字段中获取的所有输出中存在的值来过滤所有这些data.tables 。因此，应遵循以下逻辑：如果textInput为空，则显示所有记录，否则仅显示与textInput中的值匹配的那些记录。容易吧？

这是一个虚拟的例子：

### ui.R

library(shiny)
library(shinydashboard)
library(DT)

dbSidebar <- dashboardSidebar(
  sidebarMenu(
textInput(inputId = "search_term",
          label = "Search"),

# one of many tabs
menuItem("General Info", tabName = "general_info", icon = icon("info-sign", lib = "glyphicon")),

downloadButton('downloadData', 'Download',
               icon("paper-plane"), 
               style="color: #fff; background-color: #337ab7; border-color: #2e6da4;
               margin-top: 20px; margin-left: 15px;")
    )
  )

general_info_tab <- tabItem(tabName = "general_info",
                           fluidRow(
                             box(h2("Companies House Search Data"),
                                 DT::dataTableOutput('searchTable')
                                 ),
                             width = 12)
                           )

dashboardPage(
  dashboardHeader(),
  dbSidebar,
  dashboardBody(
tabItems(
  general_info_tab
    )
  )
)


### server.R

library(shiny)
library(shinydashboard)
library(DT)
library(dplyr)

# my hypothetical file content
dummy_data <- data.frame(
  a = rep(c(1,2,3), 6),
  b = rep(c("A2746", "38504", "CD759")),
  fruit = rep(c("apple", "pear"), each = 9)
)



shinyServer(function(input, output, session) {

  output$searchTable = DT::renderDataTable({

    selected <- dummy_data

if(!is.null(input$search_term) ||
   !is.na(input$search_term) ||
   length(input$search_term) > 0 ||
   input$search_term != "") {

  selected <- filter(dummy_data, b == input$search_term)

}

DT::datatable(selected)

  })
})

使用此代码，我看到空的数据集除非，我有textInput个值。如何在默认情况下（textInput字段为空时）使其显示为完整数据集，并在编写文本时将其过滤掉？谢谢

Answer 1

我认为 b 列存储为因素，并且过滤方法无法正常工作。

以下示例将b列转换为字符，并且b列使用部分匹配。

我使用tidyselect包进行部分过滤，尽管您也可以仅使用dplyr进行过滤。然后，您应该与此过滤器进行更换： filter(dummy_data, grepl(input$search_term, b))。

library(tidyselect)

dummy_data$b <- as.character(dummy_data$b)

server <- shinyServer(function(input, output, session) {

  output$searchTable = DT::renderDataTable({
    selected <- dummy_data
    if (input$search_term != "") {
      selected <- filter(dummy_data, b == vars_select(dummy_data$b, contains(input$search_term)))
    }
    DT::datatable(selected)
  })

})

Shinydashboard：通过textInput过滤DT

1 个答案: