glänzende allowling Benutzer auswählen, welche Spalten angezeigt

Ich bin einmal mit dem datatable-Funktion in glänzend und ich bin interessiert bei der Schaffung einer wellpanel oder ein sidepanel, die listet alle Spalten einer datatable und ermöglicht es Benutzern, wählen Sie, welche Spalten Sie sehen wollen, auf der Datentabelle.

Recht jetzt diesen code unten zeigt alle Spalten von Spielzeug dataset mtcars

library(shiny)

runApp(list(
  ui = basicPage(
    h2('The mtcars data'),
    dataTableOutput('mytable')
  ),
  server = function(input, output) {
    output$mytable = renderDataTable({
      mtcars
    })
  }
))

Ich bin interessiert bei der Bereitstellung der Benutzer die Möglichkeit, diese Spalten entweder on oder off mit einem Kontrollkästchen 

  [1] "mpg"  "cyl"  "disp" "hp"   "drat"
  [6] "wt"   "qsec" "vs"   "am"   "gear"
  [11] "carb"

Jede Hilfe, auf die Bewältigung dieses Problems wird viel appriciated. Vielen Dank im Voraus.

InformationsquelleAutor Jill Sellum | 2016-04-22
  1. 3

    Mein Beispiel verwendet checkboxGroupInput Sie zum auswählen mehrerer Spalten

    library(shiny)

vchoices <- 1:ncol(mtcars)
names(vchoices) <- names(mtcars)

runApp(list(
  ui = basicPage(
    h2('The mtcars data'),
    checkboxGroupInput("columns","Select Columns",choices=vchoices,inline = T),
    dataTableOutput('mytable')


  ),
  server = function(input, output) {

    observeEvent(input$columns,{
      cols <- as.numeric(input$columns)
      if(length(input$columns) == 1){
        df <- data.frame(mtcars[,cols])
        names(df) <- names(mtcars)[cols]
        output$mytable = renderDataTable(df)

      }else{
        output$mytable = renderDataTable(mtcars[,cols])

      }


    })

  }
))
    • ich mag deinen Ansatz, ich Plane zum hinzufügen einer Schaltfläche "herunterladen" auf der Oberseite, so dass die Benutzer herunterladen können, die gefilterte Datentabelle. Wenn Ihr code legt die Spalten, wie das auf die Spitze meine Angst ist, dass es nicht jeder Platz für die download-option oder die Ausrichtung möglicherweise geschraubt bekommen.
    • Die glänzende Dokumentation auf layouts könnte etwas sein, das Sie in Aussehen sollte. Link
    InformationsquelleAutor Adam Birenbaum
  2. 5

    Hier ist ein Beispiel. Es nutzt selectInput auf Spalten auswählen, und zeigt alle Spalten standardmäßig, bis Sie wählen Sie eine oder mehrere bestimmte Spalten.

    library(shiny)
runApp(list(
  ui = basicPage(
    selectInput("select", "Select columns to display", names(mtcars), multiple = TRUE),
    h2('The mtcars data'),
    dataTableOutput('mytable')
  ),
  server = function(input, output) {
    output$mytable = renderDataTable({
      columns = names(mtcars)
      if (!is.null(input$select)) {
        columns = input$select
      }
      mtcars[,columns,drop=FALSE]
    })
  }
))
    • das sieht sinnvoll.
    InformationsquelleAutor Xiongbing Jin
Schreibe einen Kommentar