闪亮-使用conditionalPanel连接sidebarPanels

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput("choice", "选择一个选项：",
                  choices = c("选项1", "选项2", "选项3"),
                  selected = "选项1"),
      conditionalPanel(
        condition = "input.choice == '选项1'",
        textInput("text1", "输入文本1：")
      ),
      conditionalPanel(
        condition = "input.choice == '选项2'",
        numericInput("number1", "输入数字1：", value = 0)
      ),
      conditionalPanel(
        condition = "input.choice == '选项3'",
        dateInput("date1", "选择日期1：")
      )
    ),
    mainPanel(
      textOutput("output")
    )
  )
)

server <- function(input, output) {
  output$output <- renderText({
    if (input$choice == "选项1") {
      paste("你选择了选项1，输入的文本是：", input$text1)
    } else if (input$choice == "选项2") {
      paste("你选择了选项2，输入的数字是：", input$number1)
    } else if (input$choice == "选项3") {
      paste("你选择了选项3，选择的日期是：", input$date1)
    }
  })
}

shinyApp(ui, server)