导航到下一个标签帖子点击链接

Question

下面是应用程序。单击 DT 表上的“我单击”时，我需要导航到下一个选项卡。但根据下面的代码，这是行不通的。谁能帮我.............................................. …………

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

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

ui <- fluidPage(
  tabsetPanel(
    id = "panels",
    tabPanel(
      "A",
      p(),
      DTOutput("tab")
      # actionLink("link_to_tabpanel_b", "Link to panel B")
      # HTML('<a id="Iclickehase" class="action-button" href="#">I clicked</a>')
    ),
    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) {
  #   observeEvent(input$link_to_tabpanel_b, {
  #     tags$a(href = "#tab-4527-2")
  #   })
  
  df <- data.frame(a = c(1))
  df$b <- HTML('<a id="Iclickehase" class="action-button" href="#">I clicked</a>')
  # 
  output$tab <- renderDataTable({
    datatable(df,escape = F,selection = 'none')
  })
  
  observeEvent(input$Iclickehase, {
    newvalue <- "B"
    updateTabItems(session, "panels", newvalue)
  })
  observeEvent(input$link_to_tabpanel_a, {
    newvalue <- "A"
    updateTabsetPanel(session, "panels", newvalue)
  })
}

shinyApp(ui, server)

Answer 1

将输入（如 actionLink）添加到数据表时，您需要手动绑定它们，here 就是原因。

请检查以下内容：

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))
  DF$b <- HTML('<a id="Iclickehase" class="action-button" href="#">I clicked</a>')
  
  output$tab <- renderDataTable({
    datatable(
      DF,
      escape = FALSE,
      selection = 'none',
      options = list(
        preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
        drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
      )
    )
  })
  
  observeEvent(input$Iclickehase, {
    newvalue <- "B"
    updateTabItems(session, "panels", newvalue)
  })
  observeEvent(input$link_to_tabpanel_a, {
    newvalue <- "A"
    updateTabsetPanel(session, "panels", newvalue)
  })
}

shinyApp(ui, server)