gefilterten Datentabellen Verwendung in glänzenden

Question

ich shiny bin hier, aber frage mich, ob es eine Möglichkeit ist ein gefiltert Datentabelle (unter Verwendung der Spaltenfilter) in einem R Objekt zu speichern, so dass diese gefilterten Daten an Histogramm übergeben werden kann und Plotfunktionen.

EDIT 7. Mai 15: einschließlich dem erweiterten Erklärung des Autors von Kommentaren

ich die Tabelle will die integrierten Spalte Filter und dann erhalten gefiltert mit wollen, dass die Handlung automatisch anpassen. Ich habe bereits versucht, das DT Paket, aber ich mag nicht sehr viel der Spaltenfilter, die kommen mit diesem Paket, wie es nicht möglich ist (denke ich), die Filter aus einer Teilmenge der Spalten in der Tabelle zu entfernen

Answer 1

Aufbau einfach auf @ JasonAizkalns dem Beispiel, können Sie einige der eingebauten in Spaltenfilter mit jQuery ausblenden. zum Beispiel sind hier die ersten zwei versteckt:

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

Die von @NicE vorgeschlagene example ist sehr hilfreich. Ich bin auch ein minimales Beispiel unten:

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

Dies wird ein Histogramm der Sepal.Length aus den iris Daten für die gefilterten Daten im DT::datatable gesetzt erzeugen.

Hinweis: Dies setzt voraus, die folgenden Versionen von DT und shiny:

DT_0.0.39 shiny_0.11.1.9005