R在带有侧面板/条件面板的选项卡之间建立链接

library(shiny)

# 定义UI
ui <- fluidPage(
  # 创建选项卡布局
  tabsetPanel(
    id = "tabs",
    # 第一个选项卡
    tabPanel("Tab 1", 
             # 第一个选项卡的内容
             sidebarPanel(
               # 侧面板内容
               actionButton("btn", "Click me")
             ),
             mainPanel(
               # 主面板内容
               textOutput("output")
             )
    ),
    # 第二个选项卡
    tabPanel("Tab 2",
             # 第二个选项卡的内容
             sidebarPanel(
               # 侧面板内容
               numericInput("num", "Enter a number", value = 1)
             ),
             mainPanel(
               # 主面板内容
               textOutput("output2")
             )
    )
  )
)

# 定义服务器逻辑
server <- function(input, output, session) {
  # 触发事件：点击按钮
  observeEvent(input$btn, {
    # 触发函数：切换到第二个选项卡
    updateTabsetPanel(session, "tabs", selected = "Tab 2")
  })
  
  # 触发事件：输入数字
  observeEvent(input$num, {
    # 触发函数：切换到第一个选项卡
    updateTabsetPanel(session, "tabs", selected = "Tab 1")
  })
  
  # 输出结果
  output$output <- renderText({
    "Hello from Tab 1!"
  })
  
  output$output2 <- renderText({
    "Hello from Tab 2!"
  })
}

# 运行应用程序
shinyApp(ui, server)