在具有多个条目的 R 闪亮数据表中搜索列

Question

我在 R Shiny 中有一个数据表，其中一列“关键字”包含某些行的多个条目，用逗号分隔。我希望这些多个条目可以单独搜索。数据表的默认搜索功能将这些条目视为一个长的单个项目。

例如，第 2 行的关键字列值为“Keyword1，Keyword2”。我希望用户能够搜索“Keyword1”或“Keyword2”并找到第2行。目前，数据表中的默认搜索栏将此条目视为一项：“Keyword1，Keyword2”并且只允许人们搜索将“Keyword1，Keyword2”作为一个，联合项，而不是两个单独的值。

这是一个小而可重现的问题示例

library(shiny)
library(DT)

## Create an example dataset with 3 rows and 1 column
dat <- matrix(c("Keyword1", "Keyword1, Keyword2", "Keyword2"), nrow = 3, ncol = 1)
colnames(dat) <- "Keywords"
dat <- data.frame(dat)

ui <- shinyUI(
  DT::dataTableOutput('ex1')
)

server <- shinyServer(function(input, output) {
  output$ex1 <- DT::renderDataTable(
     DT::datatable(dat, filter = "top")
  )
})

shinyApp(ui = ui, server = server)

Answer 1

也许你可以试试这样的：

keys <- c("Keyword1", "Keyword1, Keyword2", "Keyword2")
grepl(paste("Keyword1", collapse = "|"), keys)
#output
[1]  TRUE  TRUE FALSE

grepl(paste("Keyword2", collapse = "|"), keys)
#output
[1]  FALSE  TRUE  TRUE

由于我没有要重现的代码，我只是想出了这个示例，您可以使用用户输入将其扩展到闪亮的数据表。

在您的情况下，您可以执行以下操作：

filter <- grepl(paste(input$keys, collapse = "|"), data$keywords)

我假设keys 是用户输入框的ID，keywords 是数据表data 中的列。然后，您可以使用filter 对您的数据进行相应的子集化。

编辑： 至少对于示例数据集并假设您的情况相同，问题在于具有过滤器的列是Factor。如果您使用as.character() 将该列转换为Character，您的代码将正常工作。当您在过滤器中搜索keyword1 时，它只会得到那些包含keyword1 的行。

library(shiny)
library(DT)

## Create an example dataset with 3 rows and 1 column
dat <- matrix(c("Keyword1", "Keyword1, Keyword2", "Keyword2"), nrow = 3, ncol = 1)
colnames(dat) <- "Keywords"
dat <- data.frame(dat)
dat$Keywords <- as.character(dat$Keywords)

ui <- shinyUI(
  DT::dataTableOutput('ex1')
)

server <- shinyServer(function(input, output) {
  output$ex1 <- DT::renderDataTable(
    DT::datatable(dat, filter = "top")
  )
})

shinyApp(ui = ui, server = server)