在闪亮中使用过滤的数据表

Posted 2023-02-22

【中文标题】在闪亮中使用过滤的数据表

【英文标题】：Using filtered datatables in shiny

【发布时间】：2015-07-14 13:35:33

【问题描述】：

我是 shiny 的新手，但想知道是否有任何方法可以将 过滤后的数据表（使用列过滤器）存储在 R 对象中，以便可以传递过滤后的数据直方图和绘图函数。

编辑 15 年 5 月 7 日：包括作者对 cme​​ts 的扩展解释

我希望使用内置列过滤器和 然后希望情节自动调整。我已经尝试过DT 包，但我不太喜欢随附的列过滤器 使用此软件包，因为（我认为）无法删除 从表中的列子集过滤

【问题讨论】：

你的问题还不清楚。您是否希望使用用户选择的某些输入（例如来自 selectInput 小部件的值）对 data.table 进行过滤，然后您的绘图会自动调整？

如果您使用DT 包来呈现您的DataTable，input$table_rows_all 包含过滤行的索引。有一个例子here

我希望使用内置列过滤器过滤表格，然后希望绘图自动调整。我已经尝试过 DT 包，但我不太喜欢这个包附带的列过滤器，因为（我认为）不可能从表中的列子集中删除过滤器。跨度>

【参考方案1】：

在@JasonAizkalns 的示例的基础上，您可以使用 jQuery 隐藏一些内置的列过滤器。例如这里前两个是隐藏的：

library(shiny)
library(DT)

shinyApp(
  ui = fluidPage(dataTableOutput('tbl'),
                 plotOutput('plot1')),
  server = function(input, output)     
    output$tbl = renderDataTable(
      datatable(iris, filter="top",options = list(lengthChange = FALSE),callback=JS("
           //hide column filters for the first two columns
          $.each([0, 1], function(i, v) 
                $('input.form-control').eq(v).hide()
              );"))
    )
    output$plot1 = renderPlot(
      filtered_data <- input$tbl_rows_all
      hist(iris[filtered_data, "Sepal.Length"])
    )
  
)

【参考方案2】：

@NicE 建议的example 非常有帮助。我在下面包含一个最小的示例：

library(shiny)
library(DT)

shinyApp(
  ui = fluidPage(dataTableOutput('tbl'),
                 plotOutput('plot1')),
  server = function(input, output)     
    output$tbl = renderDataTable(
      datatable(iris, options = list(lengthChange = FALSE))
    )
    output$plot1 = renderPlot(
      filtered_data <- input$tbl_rows_all
      hist(iris[filtered_data, "Sepal.Length"])
    )
  
)

这将从iris 数据集中为DT::datatable 中的过滤数据生成Sepal.Length 的直方图。

注意：这里假定DT 和shiny 的以下版本：

DT_0.0.39 shiny_0.11.1.9005

【讨论】：

在我的设置中：错误：“中断”数无效