r - R Shiny Nav Page 显示一个奇怪的活动窗格

Question

这是可重现的好处，我在屏幕上的标题和“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){}
)

标签： rshinyshinydashboardshinyapps

Answer 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){}
)