如何去除R Shiny中navbarMenu下带超链接菜单间的空白行?
问题根源在于你用tabPanel包裹超链接,tabPanel会自动生成额外的页面标签容器,这会导致下拉菜单内出现多余空白行。直接在navbarMenu中添加自定义下拉菜单项即可解决:
修改后的ui.r代码:
library(shiny) ui <- navbarPage( "AppName", tabPanel( title = "File" ), tabPanel( title = "Analysis" ), navbarMenu( "Help", # 用自定义列表项替代tabPanel,避免多余空白 tags$li(class = "dropdown-item", tags$a(href = "https://www.google.com/", "Tutorial", target = "_blank")), tags$li(class = "dropdown-item", tags$a(href = "https://www.google.com/", "Report Bug", target = "_blank")), # 保留需要加载Shiny页面内容的Citation项 tabPanel( "Citation", tags$p("please cite:") ) ) )
关键说明:
tags$li配合dropdown-item类,能让自定义链接和原生下拉菜单项的样式保持一致,不会产生多余空白结构。- 仅当需要加载Shiny内部页面内容时才使用
tabPanel,纯外部跳转链接直接用自定义列表项即可。
修改后下拉菜单的超链接项不会再出现空白行,同时样式与原生菜单完全统一。
内容的提问来源于stack exchange,提问作者JunhuiLi
相关产品推荐
相关产品推荐

