问题描述
我使用 Shinydashboardplus 是因为我想使用 dashboardFooter
,但我删除了侧边栏。问题是徽标标题/侧边栏标题仍然存在,并且还没有找到删除它的方法。我试图通过更改我的 css 脚本来解决这个问题,但没有成功。图像显示了我要删除的内容:
这是一个简单的、可重现的例子:
library(shiny)
library(shinydashboard)
library(shinydashboardplus)
library(shinyWidgets)
library(shinyjs)
header <- dashboardHeader(tags$li(class = "dropdown",sidebarMenu(
id = "mysearch",menuItem(
text = "Main",tabName = "main",icon = icon("home")
)
)))
sidebar <- dashboardSidebar(
width = "0px"
)
body <- dashboardBody()
ui <- (dashboardPage(
header = header,sidebar = sidebar,body,footer = dashboardFooter(
left = tags$b(
icon("envelope"),tags$a(href = "mailto:","myemail@email.no"),icon("home"),tags$a(href = "https://somesite.no","www.somesite.no/")
),right = ""
)
))
server <- function(input,output,session) {}
shinyApp(ui,server)
有什么想法吗?
解决方法
尝试titleWidth=0
,如
header <- dashboardHeader(
titleWidth=0,tags$li(class = "dropdown",...)
)