隐藏R闪亮应用程序中的主标题切换 [英] Hide main header toggle in R Shiny App

问题描述

我正在寻找一种方法来隐藏主标题切换图标，就像我们在R闪亮应用程序中使用ShinyJS包的侧栏一样。附加引用的图像。

代码

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)

推荐答案

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

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)

我发现以下帖子对解决这个问题很有帮助：

To enable and disable sidebar toggle button using a action button

Call javascript function on page load in R shiny

这篇关于隐藏R闪亮应用程序中的主标题切换的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！