I am looking for a way to hide main header toggle icon as we do for side bar in R Shiny App using ShinyJS Package. Attaching the Image for the reference.

Code

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- shinyUI(dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
useShinyjs()
)
))

server <- shinyServer(function(input, output, session) {
addClass(selector = "body", class = "sidebar-collapse") # Hide Side Bar
})

shinyApp(ui = ui, server = server)

应用程序启动时隐藏侧边栏切换的一种方法是使用JS()函数来自htmlwidgets:

library(shiny)
library(shinydashboard)
library(shinyjs)
library(htmlwidgets)

ui <- dashboardPage(
  dashboardHeader(title = "Title"),

  dashboardSidebar(
    # Remove the sidebar toggle element
    tags$script(JS("document.getElementsByClassName('sidebar-toggle')[0].style.visibility = 'hidden';"))
  ),

  dashboardBody()
)

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

shinyApp(ui = ui, server = server)

我发现以下线程对于解决这个问题很有用：

使用操作按钮启用和禁用侧边栏切换按钮 https://stackoverflow.com/questions/49278441/to-enable-and-disable-sidebar-toggle-button-using-a-action-button/52526603#52526603

在R闪亮的页面加载时调用javascript函数 https://stackoverflow.com/questions/42433961/call-javascript-function-on-page-load-in-r-shiny/42434168#42434168