标签: pickerinput
有没有办法从shinyWidgets的pickerInput上选择整组选项？
这是一个简单的可重现示例：
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
pickerInput("test",choices=list("A"=c(1,2,3,4,5),"B"=c(6,7,8,9,10)),multiple=TRUE),
textOutput("testOutput")
)
server <- function(input, output) {
output$testOutput <- renderText({paste(input$test)})
}
shinyApp(ui = ui, server = server)
我想要的是点击 A 并让 pickerInput 自动选择 1、2、3、4 和 5。或者如果我们点击 B，它会自动选择 6、7、8、9 和 10。
单击“A”后所需的输出：
任何帮助表示赞赏，谢谢。
12
推荐指数
推荐指数
1
解决办法
解决办法
226
查看次数
查看次数
仅包含一个元素的 PickerInput 子类别
我一直在尝试从包ShinyWidgets中制作带有子类别的pickerInput。
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
tags$h2("Select / Deselect all"),
pickerInput(
inputId = "p1",
label = "Select all option",
choices = list(subA = c("a","b","c"),
subB = c("a"),
subC = c("a","b")),
multiple = TRUE,
options = list(`actions-box` = TRUE)
),
verbatimTextOutput("r1")
)
server <- function(input, output, session) {
output$r1 <- renderPrint(input$p1)
}
shinyApp(ui = ui, server = server)
问题是，当一个子类别只有一个元素时，输出有点奇怪，并且显示的内容与其他子类别不同。在我的示例中，我可以选择子类别的名称 (subB)，但不能选择该子类别的元素 (“a”)
有没有办法来解决这个问题？
1
推荐指数
推荐指数
1
解决办法
解决办法
532
查看次数
查看次数