R Shiny - 标签$ body中没有重复的图像

Question

我的目标是在图像上写一个文字。 我使用标签$ body在背景中插入我的图像，但我没有达到避免重复的目的。有谁知道如何抛弃这个问题？

下面是一个简单的例子：

tabPanel(title = 'World',
  tags$body(background = 'globe.png'),
  tags$h5('Hello World'))

Answer 1

使用CSS课程overlay：

library(shiny)
library(shinyjs)

ui <- fluidPage(
        useShinyjs(),
        tags$img(src="images.jpg", width="100%"),
        div(class="overlay", "Headline",
                             inlineCSS(list(".overlay:before" = c("content: ''", "display: inline-block", "height: 100%", "vertical-align: middle"),
                              ".overlay" = c("text-align: center", "position:absolute", "top:0", "left:0", "right:0", "bottom:0", "z-index:999", "color: red", "font-size: 50px"))))
)

server <- function(input, output) {
}

# Run the application 
shinyApp(ui = ui, server = server)

我使用包shinyjs将CSS属性（inlineCSS）添加到“标题”，使其能够在图片上居中浮动（需要在子文件夹www中）。