Question

我使用了Adjust height of the whole header bar in dashboardHeader in shiny dashboard的答案来使我的dashboardHeader更小。当我使浏览器窗口变小时，标题会被包裹但是＆＃34;测试＆＃34; - 输出不适应。

我在tags$style(".content-wrapper {padding-top: 12px}")添加了一个dashboardBody，它提供了更多的空间，但我想要没有标题的换行或输出的位置适应。

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
  # Set height of dashboardHeader
    tags$li(class = "dropdown",
            tags$style(".main-header {max-height: 20px}"),
            tags$style(".main-header .logo {height: 20px;}"),
            tags$style(".sidebar-toggle {height: 20px; padding-top: 1px !important;}"),
            tags$style(".navbar {min-height:20px !important}")
           )
  ),
  dashboardSidebar(
     # Adjust the sidebar
     tags$style(".left-side, .main-sidebar {padding-top: 20px}")
  ),
  dashboardBody(
    tags$style(".content-wrapper {padding-top: 12px}"),   
    verbatimTextOutput('test')
  )
)

server <- function(input, output){
    output$test <- renderText('Test')
}

shinyApp(ui, server)

Answer 1

我相信你可以通过用max-height替换第一个style-tag中的min-height来达到你想要的效果，即：

...
tags$style(".main-header {min-height: 20px}"),
...

使用包装调整闪亮仪表板中dashboardHeader中整个标题栏的高度

1 个答案: