调整shinydashboard中仪表板页眉的高度

问题描述

我想知道如何调整shinydashboard

中dashboardheader的高度

dashboardHeader(
    title = loadingLogo('http://company.fr/','logo.jpg','buffpowa.gif'),
    titleWidth = 600
)

我可以修改width，但是徽标对于页眉来说太大了。我希望页眉有足够的高度来显示完整徽标。

谢谢

推荐答案

您需要设置以下元素的height：.main-header和.main-header .logo。另请注意，仅当它们设置在dropdown类的tags$li内部时才有效。

代码

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
    # Set height of dashboardHeader
    tags$li(class = "dropdown",
      tags$style(".main-header {max-height: 200px}"),
      tags$style(".main-header .logo {height: 200px}")
    ),
    # Use image in title
    title = tags$a(href='http://company.fr/',
                   tags$img(src='logo.jpg'))
  ),
  dashboardSidebar(
    # Adjust the sidebar
    tags$style(".left-side, .main-sidebar {padding-top: 200px}")
  ),
  dashboardBody()
)

server <- function(input, output){}

shinyApp(ui, server)

示例

使用200x200像素的Android徽标：

这篇关于调整shinydashboard中仪表板页眉的高度的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！