Сделать изображение, используемое в качестве заголовка shinydashboard, точно вписывающимся в поле заголовка - PullRequest
Новая
       9

Сделать изображение, используемое в качестве заголовка shinydashboard, точно вписывающимся в поле заголовка

0 голосов
/ 28 марта 2020

Я поместил изображение в качестве заголовка моей блестящей приборной панели, и я отрегулировал его размер, чтобы соответствовать высоте и ширине, но в левой части есть небольшой участок, который остается пустым. Как я могу сделать так, чтобы он поместился именно в коробке? (Синяя часть прикрепленного изображения остается пустой)

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)

1 Ответ

1 голос
/ 28 марта 2020

Для этого вам нужно изменить панель инструментов CSS (т.е. заполнение). Одним из способов было бы вставить 

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

внутрь dashboardBody()

Тогда результат будет выглядеть так (у меня нет вашего lo go, но из изображения ниже вы можете видно, что синяя часть исчезла).

enter image description here

Подробнее о том, как стилизовать приложения в Shiny, см. здесь: https://shiny.rstudio.com/articles/css.html

...