使用golem开发Shiny应用 实现点击按钮切换并禁用标签页

问题原因 #

你原来的代码不生效核心是模块内的session是当前模块的局部会话，无法直接访问全局UI下的mainTabset组件，同时缺少标签页禁用、初始状态控制的逻辑。以下是符合golem开发规范的可运行实现方案：

分步修改代码 #

1. 修改app_ui.R

全局引入shinyjs用来操作标签页的禁用/启用状态：

app_ui <- function(request) {
  tagList(
    # Leave this function for adding external resources
    golem_add_external_resources(),
    # 全局加载shinyjs，用于操作全局DOM元素
    shinyjs::useShinyjs(),
    # Your application UI logic
    fluidPage(
      titlePanel("Debarcoding"),
      tabsetPanel(id = "mainTabset",
        tabPanel(value = "gating", "Gating",
                 htmltools::br(" "),
                 sidebarLayout(
                   sidebarPanel(
                     mod_gating_side_ui("gating_side_ui_1")),
                   mainPanel(
                     mod_gating_scatter_ui("gating_scatter_ui_1")))),
        tabPanel(value = "saving", "Saving",
                 htmltools::br(" "),
                 sidebarLayout(
                   sidebarPanel(
                     mod_saving_side_ui("saving_side_ui_1")),
                   mainPanel(
                     mod_saving_scatter_ui("saving_scatter_ui_1")))))
    )
  )
}

2. 修改mod_gating_side.R

模块不直接操作全局组件，而是把按钮点击事件作为返回值传递给顶层服务端，降低模块耦合：

mod_gating_side_ui <- function(id){
  ns <- NS(id)
  tagList(
    shinyalert::useShinyalert(),
    actionButton(ns("finish_and_switch"), "FINISHED")
  )
}

mod_gating_side_server <- function(id, r){
  moduleServer( id, function(input, output, session){
    ns <- session$ns
    # 返回按钮点击事件作为触发信号
    return(reactive(input$finish_and_switch))
  })
}

3. 修改app_server.R（golem项目默认存在该文件）

在顶层服务端实现标签页状态控制、切换逻辑：

app_server <- function(input, output, session) {
  # 初始禁用saving标签页
  shinyjs::disable(selector = '#mainTabset li a[data-value="saving"]')
  
  # 调用gating侧边栏模块，接收按钮点击信号
  finish_clicked <- mod_gating_side_server("gating_side_ui_1")
  # 你的其他原有模块调用
  mod_gating_scatter_server("gating_scatter_ui_1")
  mod_saving_side_server("saving_side_ui_1")
  mod_saving_scatter_server("saving_scatter_ui_1")
  
  # 监听FINISHED按钮点击
  observeEvent(finish_clicked(), {
    # 切换到saving标签页
    updateTabsetPanel(session, "mainTabset", selected = "saving")
    # 禁用gating标签页
    shinyjs::disable(selector = '#mainTabset li a[data-value="gating"]')
    # 启用saving标签页
    shinyjs::enable(selector = '#mainTabset li a[data-value="saving"]')
  })
}

替代方案（不用标签页） #

如果不想用标签页，也可以用shinyjs::show/hide控制两个独立容器的显隐，逻辑更简单：初始隐藏第二部分所有内容，点击按钮后直接隐藏第一部分、显示第二部分，不需要额外做禁用逻辑，也能完全满足需求。

内容的提问来源于stack exchange，提问作者DaniCee