在闪亮的导航栏中插入一个链接

Question

将链接插入带有navbarPage闪亮的导航栏时,我遇到了一些麻烦.我可以放一个链接,但导航栏看起来很奇怪.有谁知道如何修理它 ？

要在导航栏中生成带有链接的应用,请执行以下操作:

library(shiny)
runApp(list(
  ui = navbarPage(
      title="My App",
    tabPanel("tab1"),
    tabPanel("tab2"),
    tabPanel(a(href="http://stackoverflow.com", "stackoverflow"))),
  server = function(input, output) { }
))

使用shiny_0.9.1

谢谢 !

编辑: 一位同事告诉我一个解决方法,它包括将面板3中我们想要的链接放入面板2的标题中.

一个应用程序来演示这个以及来自@ 20050 8519 21102 26896 16937的解决方案,用于标题应用程序中的链接:

runApp(list(
  ui = navbarPage(
    title=HTML("<a href=\"http://stackoverflow.com\">stackoverflow</a>"),
    tabPanel("tab1"),
    tabPanel(HTML("tab2</a></li><li><a href=\"http://stackoverflow.com\">stackoverflow"))
    ),
  server = function(input, output) { }
))

Answer 1

我设法让它在导航栏左侧网站元素（标题）的 Shiny 的更新版本上运行，如下所示：

corner_element = HTML(paste0('<a href=',shQuote(paste0("https://my.page.com/",page_name,"/")), '>', 'Foo', '</a>'))
navbarPage(corner_element, id="page", collapsable=TRUE, inverse=FALSE,
# [...]
)