選擇框

建立一個選擇列表，可用於從值列表中選擇單個或多個專案。

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)

可以更改設定：

• 標籤：標題
• 選擇：選定的值
• selected：最初選擇的值（NULL 表示沒有選擇）
• 倍數：TRUE 或 FALSE
• 寬度
• 尺寸
• selectize：TRUE 或 FALSE（使用或不使用 selectize.js，更改顯示）

也可以新增 HTML。