小编Jas*_*onD的帖子

我正在努力shinydashboard为一个闪亮的应用程序增添一点活力，但在页面上定位某些元素（例如徽标）时遇到了麻烦。我发现这个答案对于增加标题的高度非常有用，但我无法完全解决对齐问题。

徽标和浮动汉堡包和边缘之间的左侧和右侧（红色椭圆形）仍有空间。我能够移动汉堡包的唯一方法是增加titleWidth = "92%"标题的相对大小 ( ) 以容纳更长的标题，但是如果调整窗口大小，菜单折叠切换最终会出现在奇怪的地方。中间的文字我想垂直居中。

一件巧妙的事情shinydashboard是，如果窗口变窄，则正文内容会重新排列，以便这些值框堆叠。但是，如果更改标题高度以容纳徽标，则副作用是：

标题与某些内容重叠。我是 css 新手，但对 AdminLTE.css 和 _all-skins.css 使用的一些挖掘shinydashboard让我更接近一些：

library(shiny)
library(shinydashboard)

server <- function(input, output, session) {}

ui <- dashboardPage(
  title = "ShinyApp",
  header = dashboardHeader(
    tags$li(
      class = "dropdown",
      tags$style(
        ".main-header {max-height: 100px; 
                      font-size:24px; 
                      font-weight:bold; 
                      line-height:24px;}"),
      tags$style(
        ".main-header .logo {height: 100px;
                             font-size:24px; 
                             font-weight:bold; 
                             line-height:24px;align:}"
      )
    ),
    title = HTML(
      "<div style = 'background-color:#3333cc; vertical-align:middle'>
       <img src = 'http://www.clipartbest.com/cliparts/nTX/8nj/nTX8njyEc.jpeg' align = 'left' height = …