Отрегулируйте высоту всей панели заголовка в панели инструментовЗаголовок в блестящей панели инструментов

Я видел, что здесь есть аналогичный вопрос:

Отрегулируйте высоту заголовка приборной панели в Shinydashboard

но у меня нет репутации, чтобы комментировать данный ответ.

Решение, данное этому ответу, будет работать в том случае, если я хочу увеличить размер заголовка. Однако, когда я уменьшаю размер до 20 пикселей, это изменяет только высоту раздела заголовка заголовка, я хотел бы уменьшить высоту всей панели заголовка на блестящей панели инструментов. Это возможно ?

Вот пример, использующий решение упомянутого вопроса:

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}")
    ) 
  ),
   dashboardSidebar(
    # Adjust the sidebar
    tags$style(".left-side, .main-sidebar {padding-top: 20px}")
  ),
  dashboardBody()
)

server <- function(input, output){}

shinyApp(ui, server)

shiny shinydashboard
person B.C    schedule 06.01.2017    source источник

Ответы (1)


arrow_upward
12
arrow_downward

Вам нужно переопределить минимальную высоту навигационной панели и отступы на боковой панели. Я обновил ваш пример ниже:

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()
)

server <- function(input, output){}

shinyApp(ui, server)
person David White    schedule 28.03.2017