闪亮删除导航栏选项卡面板中外部链接添加的额外行

Question

我正在尝试在闪亮的导航栏中添加到选项卡面板标题的外部链接。链接本身工作正常，但它将带有链接的选项卡移动到单独的行中。

如何包含链接并保持选项卡与任何其他不包含链接的选项卡位于同一行？

这是我的简约代码：

library(shiny)

ui <- navbarPage(
  title = "", 
  id = "navbar",
  header = "",
  
  tabsetPanel(id="tabs", 
              
              tabPanel(
                title = "Tab1", value = "tab1"
              ),
              
              tabPanel(
                title = a("Tab2",
                          href = "https://www.google.com/"),
                value = "tab2"
              )
  )
)

server <- function(input, output, session) {
}

shinyApp(ui, server)

我尝试使用 HTML 函数来查看是否由于某种原因给出了不同的结果，但正如预期的那样，它没有：

tabPanel(
                title = HTML("<a href = 'https://www.google.com/'>tab2</a>"),
                value = "tab2"
              )

我非常感谢您的建议！如果您也恰好知道如何从 navbarPage 中删除标题行，我们也将不胜感激。

Answer 1

如果您查看选项卡的 HTML，您会发现选项卡本身已经有一个<a href ...>标签。所以你要做的就是在现有的下面添加另一个。

解决方法是做类似的事情

1. 观察何时按下 Tab2
2. 导航至 URL

library(shiny)

ui <- navbarPage(
  title = "", 
  id = "navbar",
  header = "",
  tabsetPanel(
    id = "tabs",
    tabPanel(title = "Tab1"),
    tabPanel(title = "Tab2")
  ) 
)

server <- function(input, output, session) {
  
  observeEvent(input$tabs, {
    print(input$tabs)
    
    if( input$tabs == "Tab2" ) {
      browseURL("https://www.google.com/")
    }
  })
  
}

shinyApp(ui, server)