R Shiny禁用侧边栏后控制栏固定按钮被标题栏遮挡的解决方法

问题根源在于自定义标题栏高度后，控制栏固定按钮的默认垂直定位仍基于原生标题栏高度，导致被加高后的标题栏遮挡。可以通过添加自定义CSS调整按钮的垂直位置来解决：

在dashboardBody中插入自定义样式，修改固定按钮的top属性，使其避开标题栏区域：

library(shiny)
library(shinydashboard)

ui <- 
  dashboardPage(
    title = "Test",
    header = dashboardHeader(
      title = a(target="_blank", href = 'https://www.google.com',
                img(src = 'https://img.freepik.com/free-icon/search_318-265146.jpg', title = "Test", height = "55px"),
                style = "padding-top:10px; padding-bottom:10px; padding-left:10px;")
    ),
    sidebar = dashboardSidebar(disable = T),
    body = dashboardBody(
      # 添加自定义CSS调整固定按钮位置
      tags$style(HTML("
        .right-side .controlbar-pinned .pin-button {
          top: 80px !important;
        }
      "))
    ),
    controlbar = dashboardControlbar(
      width = 300,
      pinned = T
    )
  )

server <- function(input, output) {}

shinyApp(ui, server)

说明： #

• 代码中通过tags$style注入CSS，针对禁用侧边栏后控制栏固定按钮的样式，将top值设为80px（可根据你的标题栏实际高度微调），确保按钮不会被标题栏遮挡。
• !important用于强制覆盖原生样式，确保自定义样式生效。

内容的提问来源于stack exchange，提问作者H. berg