Ich beschäftige mich mit der Funktion "Datentabelle glänzend" und möchte ein Wellpanel oder Sidepanel erstellen, in dem alle Spalten einer Datentabelle aufgelistet sind und Benutzer auswählen können, welche Spalten auf der Datentabelle angezeigt werden sollen.

Im Moment zeigt der folgende Code alle Spalten des Spielzeugdatensatzes an.mtcars

library(shiny)

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

ch möchte den Benutzern die Möglichkeit geben, diese Spalten über ein Kontrollkästchen ein- oder auszuschalte

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

Jede Hilfe zur Behebung dieses Problems ist sehr hilfreich. Danke im Voraus