Ich bin auf der Suche nach einer Möglichkeit, alle Radio-Schaltflächen in einem Rutsch mit Aktionstaste auswählen. Im folgenden Beispiel werden Optionsfelder (Ja, Nein) mit loop erstellt. Jetzt gibt es zwei Tasten - "JA ALLE AUSWÄHLEN" und "NEIN ALLE AUSWÄHLEN", jetzt basierend auf "JA ALLE AUSWÄHLEN" Schaltfläche klicken alle Ja Option der Optionsfelder sind ausgewählt. Gleiches gilt für die Schaltfläche "KEINE AUSWAHL ALLE". Einen Weg suchen, um das Gleiche zu erreichen.Erstellen von Radio-Schaltflächen aus einer Schleife und wählen Sie alle in R Shiny
library(shiny)
ui <- fluidPage(
title = 'Creating a UI from a loop',
sidebarLayout(
sidebarPanel(
lapply(1:5, function(i) {
selectInput(paste0('a', i), paste0('SelectA', i),
choices = sample(LETTERS, 5))
})
),
mainPanel(
verbatimTextOutput('a_out'),
br(),
uiOutput("c_ui"),
br(),
actionButton("yesall","YES ALL SELECT"),
actionButton("noall","NO ALL SELECT"),
br(),
lapply(1:10, function(i) {
uiOutput(paste0('b', i))
})
)
)
)
server <- function(input, output, session) {
output$a_out <- renderPrint({
res <- lapply(1:5, function(i) input[[paste0('a', i)]])
str(setNames(res, paste0('a', 1:5)))
})
lapply(1:10, function(i) {
output[[paste0('b', i)]] <- renderUI({
strong(paste0('Hi, this is output B#', i))
})
})
output$c_ui <- renderUI({
lapply(1:5, function(i) {
radioButtons(paste0('c', i), label = "",choices = list("Yes" = "yes", "No" = "may be"),selected = character(0),inline = TRUE)
})
})
}
shinyApp(ui,server)