我可以将导航栏标题制作成闪亮的可点击页面吗？

Question

很抱歉，如果这已经存在，但我能找到的唯一一个 post 似乎问这个问题的是这个：Clickable Navbar title 并且它似乎与 iPhone 相关...

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

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

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

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

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

Answer 1

您可以按照 A. Suliman on this thread (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)

.

我可以将导航栏标题制作成闪亮的可点击页面吗？

Can I make the navbar title into its own clickable page in shiny?

r

shiny

navbar

titlebar

clickable