在Shiny中搜索DataTables中的“智能”搜索（搜索多个关键字）

Question

我想在一个闪亮的应用程序的数据表中使用“智能”搜索，以便可以搜索多个关键字，无论它们出现在表格中的哪个位置。 这是根据https://datatables.net/reference/option/search.smart的数据表的默认功能，当数据表在闪存应用程序之外的R中运行时，它肯定可用。但是当我在一个闪亮的应用程序中嵌入数据表时，此功能不起作用。有没有启用它的选项或解决方法？

我的表格有一个长文本列，用户可以在其中搜索不同的（随机）关键字。

下面是一个可以测试的代码。搜索“紧凑型本田”在R渲染表中给出了多个结果，但没有一个闪亮。

####### shiny basic script 

    library(ggplot2) #to load mpg dataset 
    library(shiny) 

    ui <- fluidPage(
     fluidRow(
     DT::dataTableOutput("table") 
    ) 

) 

server <- function(input, output) { 

    output$table <- DT::renderDataTable(DT::datatable({ 
    mpg 
    })) 
} 

shinyApp(ui = ui, server = server) 



####### R basic script 

library(ggplot2) #to load mpg dataset 

DT::datatable(mpg) 

Answer 1

这里是你的解决方案：

####### shiny basic script 

library(ggplot2) #to load mpg dataset 
library(shiny) 

ui <- fluidPage(
    fluidRow(
    DT::dataTableOutput("table") 
) 

) 

server <- function(input, output) { 

    output$table <- DT::renderDataTable(DT::datatable({ 
    mpg, server = TRUE 
    })) 
} 

shinyApp(ui = ui, server = server) 

我增加了一个参数server = TRUE到datatable()，它是使用服务器端DT重要（服务器 - 端处理），所以所有的功能运作良好。