如何在R Shiny应用中通过按钮切换页面及代码不生效问题排查

你的代码失效的核心原因是Shiny模块内部的session是模块自身的子会话，而你要控制的pages导航栏是定义在全局UI中的，属于父会话（主应用会话）的控制范围，直接在模块内用子会话调用updateNavbarPage无法识别全局的inputId="pages"。

下面提供两种常用的修复方式：

方案1：将主会话作为参数传入模块 #

直接把主应用的session传到模块内，供updateNavbarPage调用，修改后完整代码如下：

pageButtonUi <- function(id) {
  actionButton(NS(id, "page_change"),
               label="Change the Page")
}

# 新增parentSession参数接收主会话
pageButtonServer <- function(id, parentSession) {
  moduleServer(id, function(input, output, session) {
    
    observeEvent(input$page_change, {
      # 用传入的主会话执行更新
      updateNavbarPage(session=parentSession,
                       inputId="pages",
                       selected="second_page")
    })
  })
}

ui <- navbarPage(
  title="test",
  id="pages",
  tabPanel(title="first page",
           sidebarLayout(
             sidebarPanel(
               pageButtonUi("page")
             ),
             mainPanel(
             )
           )
  ),
  tabPanel(title="second_page", "second_page")
)

server <- function(input, output, session) {
  # 把主session传入模块
  pageButtonServer("page", parentSession = session)
}

shinyApp(ui, server)

方案2：模块返回触发信号，主会话执行更新 #

这种方式模块不需要感知上层应用的组件，耦合度更低，更符合模块开发规范：

pageButtonUi <- function(id) {
  actionButton(NS(id, "page_change"),
               label="Change the Page")
}

pageButtonServer <- function(id) {
  moduleServer(id, function(input, output, session) {
    # 返回按钮点击的响应式值
    return(reactive(input$page_change))
  })
}

ui <- navbarPage(
  title="test",
  id="pages",
  tabPanel(title="first page",
           sidebarLayout(
             sidebarPanel(
               pageButtonUi("page")
             ),
             mainPanel(
             )
           )
  ),
  tabPanel(title="second_page", "second_page")
)

server <- function(input, output, session) {
  # 接收模块返回的点击信号
  page_click <- pageButtonServer("page")
  # 在主会话中监听信号执行更新
  observeEvent(page_click(), {
    updateNavbarPage(session=session,
                     inputId="pages",
                     selected="second_page")
  })
}

shinyApp(ui, server)

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