为在Shiny中创建的每个新动态选项卡提供独特的侧边栏输入

library(shiny)

ui <- fluidPage(
  titlePanel("Dynamic Tabs Example"),
  sidebarLayout(
    sidebarPanel(
      selectInput("dataset", "Choose a dataset:",
                  choices = c("mtcars", "iris", "pressure")),
      actionButton("go", "Go!")
    ),
    mainPanel(
      tabsetPanel(id = "tabs",
                  tabPanel("Summary", verbatimTextOutput("summary")),
                  tabPanel("Plot", plotOutput("plot"))
      )
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$go, {
    dataset <- input$dataset
    if (dataset == "mtcars") {
      output$summary <- renderPrint({
        summary(mtcars)
      })
      output$plot <- renderPlot({
        plot(mtcars$mpg, mtcars$disp)
      })
    } else if (dataset == "iris") {
      output$summary <- renderPrint({
        summary(iris)
      })
      output$plot <- renderPlot({
        plot(iris$Sepal.Length, iris$Petal.Length)
      })
    } else if (dataset == "pressure") {
      output$summary <- renderPrint({
        summary(pressure)
      })
      output$plot <- renderPlot({
        plot(pressure$temperature, pressure$pressure)
      })
    }
  })
}

shinyApp(ui, server)