使用actionButton()切换tabItem()失败问题求助

你的代码存在两处关键问题，导致点击按钮无法切换标签页：

1. UI结构语法错误：第一个tabItem多了冗余的闭合括号，第二个tabItem未正确完成结构闭合，导致Shiny无法正确识别第二个标签页的存在。
2. 重复的事件监听：代码中重复定义了两次observeEvent(input$nextt)，虽不直接影响功能，但属于冗余代码。

以下是修正后的完整代码：

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    collapsed = TRUE,
    sidebarMenu(
      id="inTabset",
      menuItem("Workspace", tabName = "workspace", icon = icon("upload")),
      menuItemOutput("tab2")
    )
  ),
  dashboardBody(
    tabItems(
      # 第一个标签页内容
      tabItem(
        tabName = "workspace",
        fluidRow(
          textInput("name", "", value = "Process model", placeholder = NULL),
          actionButton("nextt","Next", icon("paper-plane"))
        )
      ),
      # 第二个标签页内容
      tabItem(
        tabName = "Process model",
        h3("流程模型页面") # 添加示例内容便于验证切换效果
      )
    )
  )
)

server <- function(input, output,session) {
  output$tab2 <- renderMenu({
    menuItem(text = input$name, tabName = "Process model", icon = icon("diagram-project"))  
  })
  
  # 合并重复的事件监听
  observeEvent(input$nextt, {
    updateTabItems(session, "inTabset", selected = "Process model")
  })
  
  output$tabtitle <- renderText({
    if (input$name == "") {
      "Process model"
    } else {
      input$name
    }
  })
}

shinyApp(ui, server)

修正说明： #

• 修复了tabItems中两个tabItem的闭合结构，确保Shiny能正确解析标签页配置。
• 合并了重复的observeEvent代码，精简逻辑。
• 为第二个标签页添加了示例内容，方便直观验证切换效果。

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