プレイ:私は(inlineCSS
)のCSSプロパティを追加するために、パッケージshinyjs
を使用
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)
に "見出し"画像の中央に浮かせるようにします(サブフォルダwwwにある必要があります)。