Wie erstelle ich in R Shiny eine Kontrollkästchentabelle, die auch separate Zeilen/Spalten mit Kontrollkästchen „Alle auswählen“ enthält?
Mit R Shiny möchte ich eine Tabelle anzeigen (z. B. über das Paket „DT“), in der jede Zelle ein Kontrollkästchen enthält. Neben jeder Zeilen- und Spaltenüberschrift möchte ich ein „Alle auswählen“/„Haupt-Kontrollkästchen“ anzeigen, das bei Auswahl alle Kontrollkästchen in der entsprechenden Zeile oder Spalte auswählt. Als zusätzliche Funktion werden mit dem Kontrollkästchen in der oberen linken Zelle alle Kontrollkästchen in der Tabelle ausgewählt. Ein Beispiel:
Js ausprobiert
Ich habe hier ein Beispiel für diese Funktionalität gefunden, bei dem eine Spalte ein Haupt-Kontrollkästchen hat (mit etwas JavaScript), aber ich kann nicht herausfinden, wie ich es entsprechend meinen Anforderungen erweitern kann.
Beispiele für das, was ich versucht habe
library(shiny)
library(DT)
ui <- fluidPage(
# Sidebar panel
sidebarPanel(),
# Main panel with the table
mainPanel(
DTOutput("myTable")
)
)
server <- function(input, output){
dat <- data.frame(
vapply(1:6, function(i){
as.character(
checkboxInput(paste0("col1-", i), label = NULL, width = "150px")
)
}, character(1)),
vapply(1:6, function(i){
as.character(
checkboxInput(paste0("col2-", i), label = NULL, width = "150px")
)
}, character(1)),
vapply(1:6, function(i){
as.character(
checkboxInput(paste0("col3-", i), label = NULL, width = "150px")
)
}, character(1))
)
names(dat) <- c(
as.character(checkboxInput("col1", label = "1", width = "150px")),
as.character(checkboxInput("col2", label = "2", width = "150px")),
as.character(checkboxInput("col3", label = "3", width = "150px"))
)
row_names <- LETTERS[1:6]
rownames(dat) <- row_names
output$myTable <- renderDT({
datatable(
dat,
escape = FALSE,
options = list(
columnDefs = list(
list(targets = c(1, 2, 3), orderable = FALSE, className = "dt-center")
)
),
callback = JS(
"$('#col1').on('click', function(){",
" var cboxes = $('[id^=col1-]');",
" var checked = $('#col1').is(':checked');",
" cboxes.each(function(i, cbox) {",
" $(cbox).prop('checked', checked);",
" });",
"});",
"$('#col2').on('click', function(){",
" var cboxes = $('[id^=col2-]');",
" var checked = $('#col2').is(':checked');",
" cboxes.each(function(i, cbox) {",
" $(cbox).prop('checked', checked);",
" });",
"});",
"$('#col3').on('click', function(){",
" var cboxes = $('[id^=col3-]');",
" var checked = $('#col3').is(':checked');",
" cboxes.each(function(i, cbox) {",
" $(cbox).prop('checked', checked);",
" });",
"});"
)
)
})
}
shinyApp(ui, server)
Das ist ein Anfang, aber ich kann nicht herausfinden, wie ich das Haupt-Kontrollkästchen neben der Zeile bekomme, und ich kann auch kein Haupt-Kontrollkästchen in der oberen linken Ecke aller Kästchen finden. Außerdem ist das Ganze etwas groß – es wäre schön, wenn es kompakter wäre.
