Utilizzando DataTable filtrati a lucido

Question

Sono nuovo di shiny ma chiedevo se c'è un modo per memorizzare una filtrati DataTable (utilizzando i filtri di colonna) in un oggetto R in modo che questi dati filtrati possono essere passati alle istogramma e funzioni di stampa.

EDIT 7 maggio 15: Compreso spiegazione ampliato dell'autore dai commenti

Voglio che il tavolo per ottenere filtrato utilizzando i filtri di colonna incorporate e poi vogliono che il complotto per regolare automaticamente. Ho già provato il pacchetto DT ma non mi piacciono molto i filtri di colonna che arrivano con questo pacchetto in quanto non è possibile (credo) rimuovere i filtri da un sottoinsieme delle colonne nella tabella

Answer 1

Basta costruire su di @ JasonAizkalns esempio, è possibile nascondere alcuni dei filtri colonna incorporati utilizzando jQuery. per esempio qui i primi due sono nascosti:

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

Il example suggerito da @NicE è molto utile. Sono compresi un esempio minimo sotto:

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

Questo genererà un istogramma Sepal.Length dai dati iris impostati per i dati filtrati nel DT::datatable.

Nota: Questo presuppone che le seguenti versioni di DT e shiny:

DT_0.0.39 shiny_0.11.1.9005