R Shiny中selectizeInput多选时获取选中值的技术咨询

嘿，刚好之前也处理过类似的需求，给你梳理一下：

当你把selectizeInput的multiple参数设为TRUE时，input$你的inputId（比如你代码里的input$selected）会返回一个字符向量——也就是说，你完全可以用input$selected[1]、input$selected[2]这种索引方式来获取单个选中值，也能直接用整个向量做批量操作，非常方便。

举个简单的示例代码，帮你理解怎么在render操作里用这些值：

示例Shiny App代码 #

library(shiny)

ui <- fluidPage(
  selectizeInput(
    inputId = "selected",
    label = "请选择多个水果",
    choices = c("苹果", "香蕉", "橙子", "葡萄"),
    multiple = TRUE,
    options = list(placeholder = "点击选择")
  ),
  
  h3("选中的内容展示"),
  textOutput("all_selected"),
  textOutput("first_item"),
  textOutput("second_item")
)

server <- function(input, output) {
  # 展示所有选中的选项
  output$all_selected <- renderText({
    if (length(input$selected) == 0) {
      "还未选择任何选项"
    } else {
      paste("所有选中的水果：", paste(input$selected, collapse = "、"))
    }
  })
  
  # 展示第一个选中的选项
  output$first_item <- renderText({
    if (length(input$selected) >= 1) {
      paste("第一个选中的水果：", input$selected[1])
    } else {
      "还未选择第一个水果"
    }
  })
  
  # 展示第二个选中的选项（如果存在）
  output$second_item <- renderText({
    if (length(input$selected) >= 2) {
      paste("第二个选中的水果：", input$selected[2])
    } else {
      "还未选择第二个水果"
    }
  })
}

shinyApp(ui, server)

几个需要注意的点： #

• 一定要先判断input$selected的长度！如果用户没选任何选项，或者选中的数量少于你要索引的位置（比如只选了1个却取input$selected[2]），会返回NA，可能导致render操作出错，所以加个长度判断很有必要。
• 如果你的choices是带命名的（比如choices = c("显示的苹果" = "apple_id", "显示的香蕉" = "banana_id")），那input$selected返回的是后面的值（比如"apple_id"），而不是前面显示的标签，这点要和你的业务逻辑对应上。

放心用这种索引方式就好，不管是renderText、renderPlot还是其他render操作，都能直接用这些值来生成内容~

内容的提问来源于stack exchange，提问作者Mandy