时间戳

首页 > 解决方案 > 如何更改 rmarkdown 单元格和闪亮中的 css？

css - 如何更改 rmarkdown 单元格和闪亮中的 css？

问题描述

我在r创建传单图方面相对较新，我需要白色背景而不是灰色。

我遇到了同样的这个SO帖子：传单地图的空白，白色背景并尝试过：

剧情代码：

daily_leaflet_plt <- ind_states %>% leaflet(options = leafletOptions(zoomControl = FALSE,
                                                dragging = FALSE,
                                                minZoom = 3,
                                                style = list(
                                                  "background-color" = "white"
                                                )
                                                )) %>%
          
          addPolygons(
                      label = label_daily,
                      labelOptions = labelOptions(
                        opacity = .6,
                        style = list(
                            "color" = "white",
                            "background-color" = "black",
                            "font-size" = "15px",
                            "border-color" = "rgba(0,0,0,0.5)"
                        )
                      ),
                      stroke = TRUE,
                      color = "white",
                      dashArray = "3",
                      weight = .2,
                      smoothFactor = .5,
                      opacity = 1,
                      fillOpacity = 0.5,
                      fillColor = ~ pal_daily(Daily_confirmed),
                      highlightOptions = highlightOptions(weight = .5,
                                                          fillOpacity = 1,
                                                          bringToFront = TRUE)) %>%

          addLegend(position = "bottomleft",
                    pal = pal_daily,
                    values = ~ ind_states$Daily_confirmed,
                    title = "Daily Confirmed Cases",
                    opacity = 0.7)

根据SO帖子的CSS：

```{r results="daily_leaflet_plt"}
cat("
<style>
.leaflet-container {
    background: #FFF;
}
</style>
")
```

但这不起作用，如何在 rmarkdown 和闪亮的传单 plt 中获得白色背景空间，因为最终我将在闪亮中使用它。

我还在另一篇 SO 帖子中提出了这一点，该帖子的措辞不同且仍未得到解答：如何更改 r 中多边形形状周围的传单地图的颜色？

标签： cssrshinyleafletr-markdown

解决方案

我认为您的 CSS 选择器是正确的，但我个人认为以典型的 Shiny 方式指定它更容易，即

library(shiny)
library(leaflet)

ui <- fluidPage(
    tags$head(tags$style(HTML(".leaflet-container {background: none;}")))
    leafletOutput("map")
)

server <- function(input, output, session) {
    output$map <- renderLeaflet({
        leaflet(quakes) %>%
            addTiles()
     })
}

shinyApp(ui, server)

对于 R markdown，您可以像嵌入 R 代码块一样嵌入 CSS 代码块，例如，

```{css, echo = FALSE}
.leaflet-container {
    background: none;
}
```


```{r}
library(leaflet)

leaflet(quakes) %>%
    addTiles()
```

推荐阅读