改变下拉菜单闪亮

如何解决改变下拉菜单闪亮

在下面的应用程序中，有没有办法删除数字 3（基本上，我们可以删除显示在那里的数字）？那里只需要显示消息框

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(dropdownMenu(type = "messages",messageItem(
                                 from = "Sales Dept",message = "Sales are steady this month."
                               ),messageItem(
                                 from = "New User",message = "How do I register?",icon = icon("question"),time = "13:45"
                               ),messageItem(
                                 from = "Support",message = "The new server is ready.",icon = icon("life-ring"),time = "2014-12-01"
                               )
  )),dashboardSidebar(),dashboardBody()
)

server <- function(input,output,session) {
  
}

shinyApp(ui,server)

解决方法

不确定我是否正确理解您的问题，但我想这就是您想要的？

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(dropdownMenu(type = "messages",messageItem(
                                 from = "Sales Dept",message = "Sales are steady this month."
                               ),messageItem(
                                 from = "New User",message = "How do I register?",icon = icon("question"),time = "13:45"
                               ),messageItem(
                                 from = "Support",message = "The new server is ready.",icon = icon("life-ring"),time = "2014-12-01"
                               )
  )),dashboardSidebar(),dashboardBody(
                tags$script(HTML(
                  "document.querySelector('body > div.wrapper > header > nav > div > ul > li > a > span').style.visibility = 'hidden';"
                ))
                )
)

server <- function(input,output,session) {}

shinyApp(ui,server)