Question

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

编辑5月7日，15日：包括作者对评论的扩展说明

我希望使用内置的列过滤器对表进行过滤然后希望情节自动调整。我已经尝试过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建议的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"])
    })
  }
)

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

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

DT_0.0.39 shiny_0.11.1.9005

使用闪亮的过滤数据表

2 个答案: