我是闪亮的新手。当我制作项目时,我需要在服务器端隐藏仪表板标题。
在shinydashboard网站上,我找到了代码dashboardHeader(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>
我想你已经知道了,但它仍然不起作用。
对我的案例有什么想法吗?
Shinyjs 是一个很棒的库。您的代码的问题是您需要首先初始化shinyjs
with shinyjs::useShinyjs()
并将其放入dashboarBody
功能。另外,要隐藏/显示标题,您不需要添加类"sidebar-collapse"
这实际上是侧边栏的。您只需要添加style="display:none"
隐藏标题,删除它以显示标题。下面是修改后的代码以隐藏/显示标题。使用的JS代码非常简单,直接从js$hidehead()
功能。
library(shiny)
library(shinydashboard)
library(shinyjs)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
# initialize shinyjs
shinyjs::useShinyjs(),
# add custom JS code
extendShinyjs(text = "shinyjs.hidehead = function(parm){
$('header').css('display', parm);
}"),
actionButton("button","hide header"),
actionButton("button2","show header")
)
)
server <- function(input, output) {
observeEvent(input$button, {
js$hidehead('none')
})
observeEvent(input$button2, {
js$hidehead('')
})
}
shinyApp(ui, server)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)