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

如何解决我可以将导航栏标题变成闪亮的单独可​​点击页面吗？

我很抱歉（如果已经存在），但似乎唯一可以询问我的帖子是：Clickable Navbar title，这似乎与iPhone有关...

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

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

左边的标题看起来像它自己的标签-当光标移到它上方时，它会突出显示，与其他标签一样，但是带有较大的文本。有点奇怪，因为它会产生一种幻想，即标题无法被单击时可以单击。

我想做的就是使它确实如此，并能够单击标题并转到一个在其他任何地方都不存在的“着陆页”。本质上，我希望标题面板是它自己的页面。

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

解决方法

您可以按照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)

。