在R Shiny Datatable中搜索具有多个条目的列

Question

在R Shiny Datatable中搜索具有多个条目的列

3

我在R Shiny中有一个datatable，其中一列Keywords对于某些行包含多个条目，以逗号分隔。我希望这些多个条目可以单独搜索。Datatable的默认搜索功能将这些条目视为一个长字符串。

例如，第2行关键字列的值为"Keyword1, Keyword2"。我希望用户能够搜索"Keyword1"或"Keyword2"并找到第2行。目前，datatable中的默认搜索栏将此条目视为一个项目："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)

- user7606328

1

也许你可以实现一个正则表达式搜索？将搜索词作为正则表达式（也许是固定的）传递，并尝试在“Keywords”中任何位置找到匹配项。 - Roman Luštrik

你能否提供一个最小可重现的示例？当我使用datatable时，默认情况下会给出您所需的行为。 - NicE

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- krish · Accepted Answer

也许您可以尝试像这样做：

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

由于我没有任何可复现的代码，所以我只想出了这个例子，您可以使用用户输入将其扩展到闪亮的datatable中。

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

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)