在 R Shiny App 中隐藏主标题切换

Question

我正在寻找一种方法来隐藏主标题切换图标，就像我们使用 ShinyJS 包在 R Shiny App 中的侧边栏所做的那样。附上图片供参考。

代码

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)

Answer 1

在应用程序启动时隐藏侧边栏切换的一种方法是使用以下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)

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

使用操作按钮启用和禁用侧边栏切换按钮

在 R 闪亮的页面加载时调用 javascript 函数