复选框组
创建一组复选框,可用于独立切换多个选项。服务器将接收输入作为所选值的字符向量。
library(shiny)
ui <- fluidPage(
checkboxGroupInput("checkGroup1", label = h3("This is a Checkbox group"),
choices = list("1" = 1, "2" = 2, "3" = 3),
selected = 1),
fluidRow(column(3, verbatimTextOutput("text_choice")))
)
server <- function(input, output){
output$text_choice <- renderPrint({
return(paste0("You have chosen the choice ",input$checkGroup1))})
}
shinyApp(ui = ui, server = server)
可以更改设置:
- 标签:标题
- 选择:选定的值
- selected:最初选择的值(NULL 表示没有选择)
- 内联:水平或垂直
- 宽度
也可以添加 HTML。