在闪亮中使用过滤数据表

Question

我是

shiny

的新手，但想知道是否有任何方法可以将过滤后的数据表（使用列过滤器）存储在

R

对象中，以便可以将过滤后的数据传递到直方图和图功能.

编辑 15 年 5 月 7 日：包括作者从评论中扩展的解释

我希望使用内置列过滤器对表格进行过滤，并且 然后希望情节自动调整。我已经尝试过DT了 包，但我不太喜欢附带的列过滤器 使用这个包，因为（我认为）不可能删除 从表中的列子集进行过滤

Answer 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"])
    })
  }
)

Answer 2

@NicE 建议的示例非常有帮助。我在下面提供了一个最小的例子：

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"])
    })
  }
)

这将从

Sepal.Length

数据集中为

iris

中过滤后的数据生成

DT::datatable

的直方图。

注意：这假设使用以下版本的

DT

和

shiny

：

DT_0.0.39         shiny_0.11.1.9005