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

在Shiny中创建具有独特侧边栏输入的新动态选项卡涉及几个基础概念和技术。Shiny是R语言的一个包，用于构建交互式Web应用程序。动态选项卡允许用户在同一页面上切换不同的内容视图。

基础概念

Shiny应用程序结构：Shiny应用程序通常由服务器端（server.R）和用户界面（ui.R或app.R）组成。
动态UI：使用tabsetPanel和tabPanel创建选项卡，并使用renderUI或uiOutput动态生成内容。
侧边栏输入：使用sidebarLayout和sidebarPanel在应用程序的侧边栏中添加输入控件。

类型

静态选项卡：预先定义好的选项卡，内容不会根据用户输入变化。
动态选项卡：根据用户输入或其他条件动态生成的选项卡。

应用场景

数据分析：根据用户选择的数据集或分析方法显示不同的图表和结果。
报告生成：根据用户输入生成定制化的报告或仪表板。
教学应用：根据学习进度或选择显示不同的教学内容。

示例代码

以下是一个简单的示例，展示如何在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)