在R中使用带PickerInput的条件面板

install.packages("shiny")
library(shiny)

ui <- fluidPage(
  titlePanel("使用PickerInput的条件面板"),
  sidebarLayout(
    sidebarPanel(
      pickerInput(
        inputId = "selected_values",
        label = "选择值",
        choices = c("选项1", "选项2", "选项3"),
        selected = "选项1",
        multiple = TRUE
      )
    ),
    mainPanel(
      conditionalPanel(
        condition = "input.selected_values.includes('选项1')",
        h3("选项1被选择"),
        # 在此处添加选项1被选择时要显示的内容
      ),
      conditionalPanel(
        condition = "input.selected_values.includes('选项2')",
        h3("选项2被选择"),
        # 在此处添加选项2被选择时要显示的内容
      ),
      conditionalPanel(
        condition = "input.selected_values.includes('选项3')",
        h3("选项3被选择"),
        # 在此处添加选项3被选择时要显示的内容
      )
    )
  )
)

server <- function(input, output) {
  # 在此处添加服务器逻辑（如果有的话）
}

shinyApp(ui, server)