我可以将导航栏标题制作成闪亮的可点击页面吗?
Can I make the navbar title into its own clickable page in shiny?
很抱歉,如果这已经存在,但我能找到的唯一一个 post 似乎问这个问题的是这个:Clickable Navbar title 并且它似乎与 iPhone 相关...
我正在使用导航栏布局构建一个 shinyApp。基本遵循标准格式:
navbarPage("Title",
tabPanel("tab1"),
tabPanel("tab2"),
tabPanel("tab3")
)
左边的标题有点像它自己的标签 - 当光标移到它上面时它会突出显示,很像其他标签,但文本更大。这有点奇怪,因为它会产生一种错觉,即标题可以被点击,而实际上却不能。
我想做的是使它确实如此,并且能够单击标题并被引导到其他任何地方都不存在的“着陆页”。基本上我希望标题面板是它自己的页面。
有人对如何实现这一目标有任何建议吗? (我试过创建一个单独的选项卡面板,没有标题可以尝试引导,但是 a)我不知道如何让标题可点击以引导它并且 b)它并不是真的不可见 - 我必须把在“”中作为标题,否则会出现第一行文本,我不希望这样。我也考虑过从导航栏页面本身删除标题,而不是创建一个额外的选项卡,但这会丢失标题字体大小比其他选项卡大得多的元素。)
您可以按照 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)
很抱歉,如果这已经存在,但我能找到的唯一一个 post 似乎问这个问题的是这个:Clickable Navbar title 并且它似乎与 iPhone 相关...
我正在使用导航栏布局构建一个 shinyApp。基本遵循标准格式:
navbarPage("Title",
tabPanel("tab1"),
tabPanel("tab2"),
tabPanel("tab3")
)
左边的标题有点像它自己的标签 - 当光标移到它上面时它会突出显示,很像其他标签,但文本更大。这有点奇怪,因为它会产生一种错觉,即标题可以被点击,而实际上却不能。
我想做的是使它确实如此,并且能够单击标题并被引导到其他任何地方都不存在的“着陆页”。基本上我希望标题面板是它自己的页面。
有人对如何实现这一目标有任何建议吗? (我试过创建一个单独的选项卡面板,没有标题可以尝试引导,但是 a)我不知道如何让标题可点击以引导它并且 b)它并不是真的不可见 - 我必须把在“”中作为标题,否则会出现第一行文本,我不希望这样。我也考虑过从导航栏页面本身删除标题,而不是创建一个额外的选项卡,但这会丢失标题字体大小比其他选项卡大得多的元素。)
您可以按照 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)