以切换按钮位于仪表板最左侧的方式隐藏 shiny 仪表板的标题部分 header

Question

我想知道如何才能完全跳过 shinydashboard header 的标题部分。所以第一个看到的 object 将是隐藏和显示侧边栏的切换按钮。 现在，如果我将titlewidth设置为 0，切换按钮和页面开头之间仍然有一个小间隙。 就像是：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
  titleWidth = 0
  ),
  dashboardSidebar(
  ),
  dashboardBody(
    )
)

server <- function(input, output){}

shinyApp(ui, server)

Answer 1

添加这一点 CSS 会有帮助吗？

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
 
  dashboardHeader(
    titleWidth = 0
  
  ),
  dashboardSidebar(
  ),
  dashboardBody(
    tags$style(type="text/css",".sidebar-toggle{ position: absolute;
    left: 0;
}")
  
  )
)

server <- function(input, output){}

shinyApp(ui, server)