在标签之间保留搜索值

Question

我有一个类似于这个的闪亮应用程序：http://shiny.rstudio.com/gallery/datatables-demo.html

我想在切换选项卡时保留在搜索栏中输入的值。怎么能实现这一目标？我假设我必须访问库中的值（闪亮）。

Answer 1

我们有2个选项，使用this post我们可以从GlobalSearch中提取文本。我不擅长jQuery来进一步提供建议。

或者我们可以使用inputText使用自定义搜索，可以用来对所有表进行子集化。

将此行插入 ui.R ：

textInput("myFilter", "myFilter", "good")

然后在 server.R 中对您的DT表进行子集化，例如将输出$ mytable1 更改为以下。这将搜索每一列的匹配输入文本（它可能会变慢，因此您可能需要选择一些要搜索的列）：

  output$mytable1 <- DT::renderDataTable({
    diamonds[
      apply(diamonds, 1, function(i) any(grepl(input$myFilter, as.character(i),
                                               ignore.case = TRUE))), ]
  })

使用相同的input$myFilter对其他DT表输出执行相同的更改。

关于隐藏搜索框，请参阅DT的dom选项，a 来自rstudio DT manual的示例：

# only display the table, and nothing else
datatable(head(iris), options = list(dom = 't'))