Shiny应用点击DT表格内链接无法切换tabsetPanel标签页问题求助

问题原因 #

• 函数调用不匹配：你要控制tabsetPanel的切换，需使用updateTabsetPanel函数，你当前写的updateTabItems是shinydashboard组件中用于控制侧边栏菜单切换的专用函数，不适用普通tabsetPanel场景。
• DT内动态元素未绑定Shiny输入事件：DT表格是服务端渲染后异步插入页面的，你在表格内写的带action-button类的a标签，不会被Shiny的初始输入绑定逻辑识别，因此点击后不会触发input$Iclickehase的监听事件。

修复后完整代码 #

library(shiny)
library(shinydashboard)
library(DT)

# UI ---------------------------------------------------------------------

ui <- fluidPage(
  tabsetPanel(
    id = "panels",
    tabPanel(
      "A",
      p(),
      DTOutput("tab")
    ),
    tabPanel(
      "B",
      h3("Some information"),
      tags$li("Item 1"),
      tags$li("Item 2"),
      actionLink("link_to_tabpanel_a", "Link to panel A")
    )
  )
)

# Server ------------------------------------------------------------------

server <- function(input, output, session) {
  
  df <- data.frame(a = c(1))
  # 新增onclick事件手动触发Shiny输入
  df$b <- HTML('<a id="Iclickehase" href="#" onclick="Shiny.setInputValue(\'Iclickehase\', Math.random(), {priority: \'event\'})">I clicked</a>')

  output$tab <- renderDataTable({
    datatable(df,escape = F,selection = 'none')
  })
  
  observeEvent(input$Iclickehase, {
    newvalue <- "B"
    # 替换为正确的tabsetPanel更新函数
    updateTabsetPanel(session, "panels", newvalue)
  })
  observeEvent(input$link_to_tabpanel_a, {
    newvalue <- "A"
    updateTabsetPanel(session, "panels", newvalue)
  })
}

shinyApp(ui, server)

修改说明：手动添加的onclick事件会在点击链接时主动给Shiny服务端发送输入信号，Math.random()确保每次点击传值唯一，避免相同值无法触发监听的问题。

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