R Shiny Nav Page 显示一个奇怪的活动窗格答案

【问题标题】：R Shiny Nav Page show a weird active paneR Shiny Nav Page 显示一个奇怪的活动窗格
【发布时间】：2021-05-31 08:36:00
【问题描述】：

这是可重现的好东西，我在屏幕上看到标题旁边和“tab-pane active tab-9091-1”旁边的奇怪块。

    library(shiny)
shinyApp(
    ui = navbarPage(
        title = "app",collapsible = TRUE, inverse = TRUE, theme = shinytheme("darkly"),
               
               list(
                   #tags$head(HTML('<link rel="icon", href="Rplot.png", type="image/png" />')),
                   
                   tags$style(HTML("
      .navbar .navbar-nav {float: left; 
                           color: red; 
                           font-size: 20px; 
                           background-color: black ; } 
      .navbar .navbar-header {float: left; } 
      .navbar-default .navbar-brand { color: #red; 
                                      font-size: 38px; 
                                      background-color: #yellow ;} 

  "))),
        tabPanel("Tab1", "content1"),
        tabPanel("Tab2", "content2")
    ),
    server = function(input, output){}
)

【问题讨论】：

标签： r shiny shinydashboard shinyapps

【解决方案1】：

我认为你需要的是-

library(shiny)
library(shinythemes)

shinyApp(
  ui = navbarPage(
    title = "app",collapsible = TRUE, inverse = TRUE,theme = shinytheme("darkly"),
    tags$head(tags$style(HTML("
      .navbar .navbar-nav {float: left; 
                           color: red; 
                           font-size: 20px; 
                           background-color: black ; } 
      .navbar .navbar-header {float: left; } 
      .navbar-default .navbar-brand { color: #red; 
                                      font-size: 38px; 
                                      background-color: #yellow ;} 

  "))),
    tabPanel("Tab1", "content1"),
    tabPanel("Tab2", "content2")
  ),
  server = function(input, output){}
)

【讨论】：

哦，所以它不适用于闪亮的主题？
它也适用于闪亮的主题。我没有安装该软件包，因此我删除了那部分代码。
所以当我添加这个：theme = shinytheme("darkly")，它给了我同样的错误。
我刚刚检查过了。包含主题后我没有收到任何错误。我更新了我的答案以显示我得到的输出。
App 和 Tab1 之间的黑色空间也是我试图避免的。