多选项卡的shiny

下面是一个包含多个选项卡的 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 中。