Shiny 闪亮-如何禁用仪表板标题

Shiny 闪亮-如何禁用仪表板标题,shiny,dashboard,Shiny,Dashboard,我是新手。当我制作项目时,我需要在服务器端隐藏dashboardHeader 在shinydashboard网站上,我找到了代码仪表板标题(disable=TRUE)。我试过了,但没用 然而,我尝试使用shinyjs来解决这个问题 <code> library(shiny) library(shinydashboard) library(shinyjs) ui <- dashboardPage( dashboard

我是新手。当我制作项目时,我需要在服务器端隐藏dashboardHeader

在shinydashboard网站上,我找到了代码
仪表板标题(disable=TRUE)
。我试过了,但没用

然而,我尝试使用shinyjs来解决这个问题

    <code>

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

    ui <- dashboardPage(
          dashboardHeader(
                extendShinyjs(text = 'shinyjs.hidehead = function(params) {           
                $("header").addClass("sidebar-collapse") }'),
                          ),
          dashboardSidebar(),
          dashboardBody(
              actionButton("button","hide_header",width = 4 )
                       )
                       )

    server <- function(input, output) {
         observeEvent(input$button, {
                       js$hidehead()           
                  })}

   shinyApp(ui, server)</code>

图书馆(闪亮)
图书馆(shinydashboard)
图书馆(shinyjs)

uiShinyjs是一个很棒的库。代码的问题是,首先需要使用
shinyjs::useShinyjs()
初始化
shinyjs
,并将其放入
dashboarBody
函数中。此外,要隐藏/显示标题,不需要添加实际上用于侧栏的类
“侧栏折叠”
。您只需添加
style=“display:none”
以隐藏标题,然后将其删除以显示标题。下面是修改代码以隐藏/显示标题。使用的JS代码非常简单,它直接从
JS$hidehead()
函数接收要添加的参数

库(闪亮)
图书馆(shinydashboard)
图书馆(shinyjs)

非常感谢。我把侧边栏和标题都弄坏了。你的回答帮助我理解shinyjs函数。非常感谢你的帮助。再次感谢。很高兴知道这对你有帮助。如果这是你问题的好答案,你可以接受带有复选标记的问题,这样你就可以帮助其他用户。