我可以将导航栏标题变成闪亮的可点击页面吗？答案

【问题标题】：Can I make the navbar title into its own clickable page in shiny?我可以将导航栏标题变成闪亮的可点击页面吗？
【发布时间】：2020-11-08 15:42:58
【问题描述】：

如果这已经存在，我深表歉意，但我能找到的唯一一个似乎问这个问题的帖子是这个：Clickable Navbar title，它似乎与 iPhone 相关......

我正在使用导航栏布局构建一个 shinyApp。它基本上遵循标准格式：

navbarPage("Title",
  tabPanel("tab1"),
  tabPanel("tab2"),
  tabPanel("tab3")
)

左边的标题看起来像它自己的标签 - 当光标移到它上面时它会突出显示，很像其他标签，但文本更大。这有点奇怪，因为它会产生一种错觉，即标题可以点击，而实际上却不能。

我想做的是让它确实如此，并且能够点击标题并被引导到其他任何地方都不存在的“登陆页面”。本质上我希望标题面板是它自己的页面。

有人对如何实现这一目标有任何建议吗？（我尝试创建一个单独的选项卡面板，该面板没有标题可以尝试引导，但是 a）我不知道如何使标题可点击以引导到它，并且 b）它并不是真的不可见 - 我必须把在“”中作为标题，否则会出现第一行文本，我不希望这样。我还考虑过从导航栏页面本身删除标题，而是创建一个额外的选项卡，但这会丢失标题字体大小比其他选项卡大得多的元素。）

【问题讨论】：

标签： r shiny navbar titlebar clickable

【解决方案1】：

您可以按照A. Suliman 在此线程 (How to change the display attributes of SPECIFIC tabs when using tabPanel in navbarPage) 上的建议，使用 css 调整第一个选项卡的字体大小，使其看起来像标题。还有一个很好的建议是使用图标。这是一个可重现的代码（带有主页图标）：

library(shiny)

ui <-  fluidPage(tags$style(
  type = 'text/css',
  # add the name of the tab you want to use as title in data-value
  HTML(
    ".container-fluid > .nav > li >
                        a[data-value='Title'] {font-size: 20px}"
  )
),

navbarPage(
  "",
  # blank title
  tabPanel("Title" , icon = icon("home")), # Font Awesome icon
  tabPanel("table 1"),
  tabPanel("table 2")
))

server <- function(input, output) {
  
}
shinyApp(ui, server)

【讨论】：