闪亮DT表中的多关键字字段

Question

我有一个表，一个关键字字段链接到每个条目，许多多关键字。关键字当前由分号分隔，如下面的示例所示。

author  keywords
Shaw    Anticyclonic eddy; Arctic halocline
Eddie   Nonhydrostatic modeling

是否有可能独立地对待它们，特别是在使用DT包生成的表中搜索其中的条目时，会显示出存在的每个条目？

例如，我希望用户能够搜索“反气旋涡流”或“北极盐跃层”。datatables中默认的搜索框将这个条目作为一个条目来处理：“反气旋式涡流；北极盐跃层”，但我希望它是两个单独的、可单独搜索的条目。

我怎么发动汽车呢？

Answer 1

还不完全清楚您希望如何搜索文本，或者希望从中返回什么，因此示例输出将是很好的。

然而，从您所描述的情况来看，DT顶部的“搜索”框为您完成了这一任务。

但是，如果您希望自己对它的控制生成一个单独的表，则可以：

server.R

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

dt <- data.frame(author = c("Shaw", "Eddie"),
                 keywords = c("Anticyclonic eddy; Arctic halocline", "Nonhydrostatic modeling"))


function(input, output, session) {

    output$dt_data <- renderDataTable({
        dt_data <- dt
    })

    ## search dt for text
    output$dt_found <- renderDataTable({

        if(input$txt_search==""){
            dt_found <- NULL
        }else{
            txt <- input$txt_search
            dt_data <- dt

            dt_found <- dt_data[ grep(txt, dt_data$keywords), ]
        }
        return(dt_found)
    })
}

ui.R

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

dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
        dataTableOutput(outputId = "dt_data"),
        textInput(inputId = "txt_search", label = "Search"),
        dataTableOutput(outputId = "dt_found")
    )
)