问题描述
我很抱歉（如果已经存在），但似乎唯一可以询问我的帖子是：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)
。