闪亮 R 半透明绝对面板

Question

我正在尝试制作一个闪亮的应用程序，它在地图上有一个绝对面板 - 我希望它是半透明的灰色，以便您仍然可以看到下面的地图，但它仍然足够清晰以阅读面板中的内容。 在网上看到它与更改 HTML 选项有关，但需要一些帮助来了解那将是什么！ 我在下面包含了一个基本示例，感谢您的帮助！

ui <- bootstrapPage(absolutePanel(id = "controls", class = "panel panel-default",
              top = 75, left = 55, width = 250, fixed=TRUE,
              draggable = TRUE, height = "auto",
              tags$i(h6("Test Panel"))))

server = function(input, output, session) {}
shinyApp(ui, server)

Answer 1

我用一个情节来假装你的地图。 您只需要将background-color更改为您想要的颜色并更改opacity透明度。

我还为您添加了:hover 。 当您的鼠标不在面板上时，50% 的透明度。 当您将鼠标移到面板上时，它会变得不透明。

ui <- bootstrapPage(
    tags$style("
        #controls {
          background-color: #ddd;
          opacity: 0.5;
        }
        #controls:hover{
          opacity: 1;
        }
               "),
    absolutePanel(id = "controls", class = "panel panel-default",
                  top = 75, left = 55, width = 250, fixed=TRUE,
                  draggable = TRUE, height = "auto",
                  tags$i(h6("Test Panel")),
                  h6("Test Panel"),
                  h6("Test Panel")
    ),
    plotOutput("plot1")
)

server = function(input, output, session) {
    output$plot1 <- renderPlot({
        plot(mtcars$wt, mtcars$mpg)
    })
}
shinyApp(ui, server)