图片作为闪亮仪表板的背景

das*_*i74 6 background r shiny shinydashboard

我想在我闪亮的仪表板应用程序中更改背景。我在互联网功能 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)
Run Code Online (Sandbox Code Playgroud)

也可以将传单地图作为背景吗?

Paw*_*ros 5

您可以使用tags$img(), 并将位置属性指定为绝对值。请注意 img 标签必须放在第一个dashboardBody

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

它还接受widthheight参数。您还可以使用hspacevspace参数定位图像。

  • 好的。我想到了。你必须用 css 来做到这一点。1. 将 `tags$head(tags$link(rel = "stylesheet", type = "text/css", href = "style.css"))` 作为 `dashboardBody` 中的第一个。2. 将 `leafletOutput('myMap')` 作为第二个放在 `dashboardBody` 中。3. 在闪亮的应用程序文件所在的目录中创建名为“www”的文件夹。4. 创建`style.css` 文件,内容如下: `#myMap { position: absolute; }`在`www`文件夹中。您将在“leafletOutput”之后放置的所有内容都将放置在地图上。 (2认同)

Pet*_*ter 5

现在还可以添加shinydashboard = TRUEsetBackgroundImage功能。

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

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    setBackgroundImage(
      src = "https://www.fillmurray.com/1920/1080",
      shinydashboard = TRUE
    )
  )
  
)
server <- function(input, output) {}
shinyApp(ui, server)
Run Code Online (Sandbox Code Playgroud)