时间戳

首页 > 解决方案 > R Shiny：如何从 DT 数据表的搜索框中获取用户输入？

r - R Shiny：如何从 DT 数据表的搜索框中获取用户输入？

问题描述

我已经开发了一个仪表板shiny，shinydashboard使用R. 仪表板有一个datatable随DT包一起制作的。在表格的顶部，有一个搜索框，允许用户通过输入来过滤表格的行。是否可以获取此输入并将其用于仪表板其他地方的反应式表达式？

这是一个玩具示例：

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

shinyApp(
  ui = shinyUI(
    dashboardPage(
      dashboardHeader(title = "Example"),
      dashboardSidebar(sidebarMenu(id = 'tabs', menuItem("Tab1", tabName = 'Tab1'))), 
      dashboardBody(tabItems(tabItem(tabName = "Tab1", 
                                     fluidRow(column(width=6,box(DT::dataTableOutput('myTable'), width=NULL)),
                                              column(width=6,box(textOutput("myText"), width=NULL))))))
      )
  ),
  
  server = function(input, output, session){
    mytbl <- data.frame(Name = c('Matthew', 'Luke', 'John'), Grade=c(45, 20, 80))
    output$myTable <- DT::renderDataTable({DT::datatable(mytbl, rownames=FALSE)})
    output$myText <- renderText({ "The value entered in the seach box should appear here!" })
  }
)

标签： rshinyshinydashboarddt

解决方案

在datatable函数中使用此回调：

callback = JS(
  "table.on( 'search.dt', function () {",
    "Shiny.setInputValue( 'search', table.search() );",
  "} );"
)

然后在 Shiny 服务器中，您可以在反应变量中输入用户输入input$search。

推荐阅读