调整shinydashboard中仪表板的高度

Question

我想知道如何调整dashboardheader中shinydashboard的高度

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

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

由于

Answer 1

您需要设置以下元素的height：.main-header和.main-header .logo。另请注意，只有在tags$li课程中设置dropdown内时，它才有效。

代码

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 px android徽标：