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)

闪亮R半透明的绝对面板

1 个答案: