картинка как фон блестящей приборной панели

Question

Я бы хотел изменить фон в своем блестящем приложении на приборной панели.Я включил интернет-функцию setBackgroundImage (https://rdrr.io/cran/shinyWidgets/man/setBackgroundImage.html). Проблема в том, что я не знаю, где мне поставить эту функцию в моем приложении. Например, классическое приложение, а не панель инструментов.

library(shiny)
library(shinydashboard)
library(shinyWidgets)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    setBackgroundImage(src = "http://wallpics4k.com/wp-content/uploads/2014/07/470318.jpg")
  )
)
server <- function(input, output) {}
shinyApp(ui, server)

Также можно поставить листовку карты в качестве фона?

Answer 1

Вы можете сделать это с помощью tags$img(), указав атрибут позиции в абсолютном выражении.Обратите внимание, что тег img должен быть помещен первым в dashboardBody:

...
  dashboardBody(
    tags$img(
      src = "http://wallpics4k.com/wp-content/uploads/2014/07/470318.jpg",
      style = 'position: absolute'
    ),
    ...
  )
...

. Он также принимает параметры width и height.Вы также можете разместить свое изображение с параметрами hspace и vspace.