选择框

创建一个选择列表,可用于从值列表中选择单个或多个项目。

library(shiny)

ui <- fluidPage(    
  selectInput("id_selectInput", 
          label = HTML('<B><FONT size="3">What is your favorite color ?</FONT></B>'), 
          multiple = TRUE,
          choices = list("red" = "red", "green" = "green", "blue" = "blue", "yellow" = "yellow"), 
          selected = NULL),
  br(), br(),
  fluidRow(column(3, textOutput("text_choice")))) 

server <- function(input, output){
  output$text_choice <- renderPrint({
    return(input$id_selectInput)})
}

shinyApp(ui = ui, server = server)

StackOverflow 文档

可以更改设置:

  • 标签:标题
  • 选择:选定的值
  • selected:最初选择的值(NULL 表示没有选择)
  • 倍数:TRUE 或 FALSE
  • 宽度
  • 尺寸
  • selectize:TRUE 或 FALSE(使用或不使用 selectize.js,更改显示)

也可以添加 HTML。