使用閃亮

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建議的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