Встраивание картинок в shinydashboard - PullRequest
Новая
       51

Встраивание картинок в shinydashboard

0 голосов
/ 30 апреля 2020

Проблема: Я хочу добавить второе изображение в верхний правый угол в заголовке. В настоящее время я могу разместить его в левом верхнем углу, но не в правом верхнем.

Есть предложения, как это сделать? 

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
                  header = dashboardHeader( titleWidth = NULL,
                                            title = tags$b("Testapp",
                                                           tags$a(href = 'https://www.google.com/', 
                                                                  tags$img(src = 'mick.png', height = 50, width = 50, align = "left"))
                                            ),

                                              ## QUESTION: how can I add the picture to the top right corner
                                             tags$head(tags$img(src = 'mick.png', height = 50, width = 50, align = "right"))



  ),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)

1 Ответ

0 голосов
/ 30 апреля 2020

Shinydashboard ожидает элемент li с классом dropdown. Если мы дадим ему это (замените tags$head(...) на следующее): 

tags$li(tags$img(src = 'mick.png', height = 50, width = 50, align = "right"), class = "dropdown")

, это сработает.

...