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上使用NavBar的左手网站元素，标题，以及：

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,
# [...]
)

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

1 个答案: