下面是一个包含多个选项卡的 Shiny 应用程序示例代码。在这个例子中，我们创建了一个包含三个选项卡的 Shiny 应用程序，每个选项卡中都有不同的内容。

library(shiny)# Define UI
ui <- fluidPage(titlePanel("多选项卡 Shiny 应用"),tabsetPanel(tabPanel("选项卡 1",sidebarLayout(sidebarPanel(sliderInput("slider1", "选择一个值:", min = 1, max = 100, value = 50)),mainPanel(textOutput("tab1_output")))),tabPanel("选项卡 2",sidebarLayout(sidebarPanel(selectInput("select1", "选择一个选项:", choices = c("选项 1", "选项 2", "选项 3"))),mainPanel(textOutput("tab2_output")))),tabPanel("选项卡 3",sidebarLayout(sidebarPanel(textInput("text1", "输入一些文字:")),mainPanel(textOutput("tab3_output")))))
)# Define server logic
server <- function(input, output) {output$tab1_output <- renderText({paste("你在选项卡 1 中选择的值是:", input$slider1)})output$tab2_output <- renderText({paste("你在选项卡 2 中选择的选项是:", input$select1)})output$tab3_output <- renderText({paste("你在选项卡 3 中输入的文字是:", input$text1)})
}# Run the application 
shinyApp(ui = ui, server = server)

在这个 Shiny 应用程序中：

• 选项卡 1 包含一个滑块输入控件。
• 选项卡 2 包含一个选择输入控件。
• 选项卡 3 包含一个文本输入控件。

每个选项卡都有自己的 sidebarPanel 和 mainPanel 布局，用户在每个选项卡中的输入都会显示在对应的 mainPanel 中。