ioslides_presentation 中的 Leaflet 将不必要的白色 space 放入框中以切换图层。减少盒子尺寸的方法？

Question

我正在使用 ioslides_presentation 进行演示并使用 Leaflet 嵌入交互式地图。用于切换不同层的白框有很多不必要的白色space。当使输出成为 html_document 或仅在 R 控制台中显示地图时，这不是问题。有没有办法在使用ioslides_presentation的时候把box/reduce里面的白色space变小？

---
title: "Leaflet in ioslides"
output: 
  ioslides_presentation
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Leaflet
```{r, echo=F, message=F, warning=F}
library(raster)
library(leaflet)
rwa_adm0 <- getData('GADM', country='RWA', level=0)
rwa_adm1 <- getData('GADM', country='RWA', level=1)

leaflet() %>%
  addProviderTiles("OpenStreetMap") %>%
   addPolygons(data=rwa_adm0, group="ADM 0") %>%
   addPolygons(data=rwa_adm0, group="ADM 1") %>%
    addLayersControl(overlayGroups = c("ADM 0", "ADM 1"),
    options = layersControlOptions(collapsed = FALSE))
```

单张输出：

Answer 1

最简单的方法是使用 CSS。将以下行添加到您的文档中：

<style>
.leaflet-control-layers-selector {
  width: auto;
}
</style>

解决此类美学问题的方法是使用浏览器检查生成的 HTML 文档。右键单击要更改的元素，然后 select Inspect Element（在 Firefox 中，对于 Chrome 有类似的东西，但在 RStudio 查看器中也是如此由于其性能，我更喜欢使用浏览器）。然后您可以检查当前应用了哪些样式并使用您自己的 CSS 代码更改它们。在图像中，您可以看到我们 select 编辑了输入字段。在右下方的面板上，您可以看到该元素当前计算的样式。

ioslides_presentation 中的 Leaflet 将不必要的白色 space 放入框中以切换图层。减少盒子尺寸的方法？

Leaflet in ioslides_presentation puts unnecessary white space in box to toggle layers. Way to reduce size of box?

r

leaflet

r-markdown

ioslides