代码之家  ›  专栏  ›  技术社区  ›  firmo23

使图像用作shinydashboard的标题正好适合标题框

  •  0
  • firmo23  · 技术社区  · 5 年前

    我把一个图像作为我闪亮的仪表板的标题,我已经调整了它的大小,以适应高度和宽度,但在左侧有一个小部分仍然是空的。我怎样才能使它正好放在盒子里?(附加图像的蓝色部分仍为空)

    enter image description here

    # app.R ##
    library(shiny)
    library(shinydashboard)
    library(shinydashboardPlus)
    library(DT)
    library(shinyWidgets)
    library(shinyjs)
    
    dbHeader <- dashboardHeaderPlus(
      enable_rightsidebar = TRUE,
      rightSidebarIcon = "gears",
      fixed = T,
      title = tags$a(href='http://mycompanyishere.com',
                                     tags$img(src='logo.png',height = "55px",width="232px"))
    )
    
    ui <- dashboardPagePlus(
      dbHeader,
      dashboardSidebar(),
      dashboardBody(
        useShinyjs(),
        tags$hr(),
        tabsetPanel(
          id ="tabA",
          type = "tabs",
          tabPanel("Front",icon = icon("accusoft")),
          tabPanel("Data", icon = icon("table")
          )
        )
      ),
      rightsidebar = rightSidebar()
    )
    
    server <- function(input, output) {
    
    }
    
    shinyApp(ui = ui, server = server)
    
    0 回复  |  直到 5 年前
        1
  •  1
  •   Miha jimmy    5 年前

    为此,您需要修改仪表板CSS(即填充)。一种方法是插入

     tags$head(tags$style(".skin-blue .main-header .logo { padding: 0px;}")),
    

    里面 dashboardBody()

    enter image description here

    https://shiny.rstudio.com/articles/css.html