Sử dụng datatables lọc trong bóng

Question

Tôi mới vào shiny nhưng đã tự hỏi nếu có cách nào để lưu trữ một lọc DataTable (sử dụng các bộ lọc cột) trong một đối tượng R để dữ liệu lọc này có thể được truyền cho histogram và chức năng cốt truyện.

EDIT 07 tháng 5, 15: Bao gồm lời giải thích mở rộng của tác giả từ bình luận

tôi muốn bàn để lọc sử dụng các bộ lọc cột built-in và sau đó muốn cốt truyện để tự động điều chỉnh. Tôi đã thử gói DT nhưng tôi không thích nhiều bộ lọc cột đến với gói này vì không thể (tôi nghĩ) để xóa bộ lọc khỏi tập hợp con của các cột trong bảng

Answer 1

Chỉ cần xây dựng trên ví dụ @ JasonAizkalns, bạn có thể che giấu một số các bộ lọc cột built-in sử dụng jQuery. ví dụ ở đây hai trường hợp đầu tiên bị ẩn:

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

example được đề xuất bởi @NicE rất hữu ích. Tôi kể một ví dụ tối thiểu dưới đây:

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

này sẽ tạo ra một biểu đồ của Sepal.Length từ iris tập dữ liệu cho dữ liệu đã lọc trong DT::datatable.

Lưu ý: Điều này giả định các phiên bản sau của DT và shiny:

DT_0.0.39 shiny_0.11.1.9005