如何禁用Shiny中标签页的点击切换，仅通过按钮切换？

好的，我明白你的需求了——要让用户只能通过按钮切换标签页，不能直接点击标签本身实现切换。咱们可以通过添加自定义CSS来禁用标签的点击交互，同时保留原有的按钮切换逻辑，具体实现如下：

修改后的完整代码 #

ui <- navbarPage('Test App', id = "inTabset",
                 # 添加自定义CSS禁用标签的点击事件
                 tags$style(HTML("
                   .navbar-nav li a {
                     pointer-events: none;
                     cursor: default; /* 可选：把鼠标指针改成默认样式，提示用户不可点击 */
                   }
                 ")),
                 tabPanel(title = "Panel 1", value = "panel1", 
                          actionButton('jumpToP2', 'Jump to Second Tab')),
                 tabPanel(title = "Panel 2", value = "panel2", 
                          actionButton('jumpToP1', 'Jump to First Tab'))
)

server <- function(input, output, session) {
  observeEvent(input$jumpToP2, {
    updateTabsetPanel(session, "inTabset",
                      selected = "panel2")
  })

  observeEvent(input$jumpToP1, {
    updateTabsetPanel(session, "inTabset",
                      selected = "panel1")
  })

}

shinyApp(ui, server)

关键说明 #

• CSS核心设置：我们给navbar的标签链接添加了pointer-events: none;样式，这个属性会完全禁用标签元素的所有鼠标交互（包括点击、hover等），用户点击标签文本时就不会触发切换了。
• 体验优化：加上cursor: default;可以把鼠标移到标签上时的指针改成默认箭头样式，更直观地告诉用户这个区域不可点击。
• 按钮逻辑不受影响：原有的updateTabsetPanel服务器端切换逻辑完全正常工作，按钮依然可以精准触发标签页切换，完美匹配你的需求。

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