r - ioslides_presentation 中的传单在框中放置了不必要的空白以切换图层。减小盒子尺寸的方法？

Question

我正在使用 ioslides_presentation 进行演示，并正在使用 Leaflet 嵌入交互式地图。用于切换不同图层的白框有很多不必要的空白。在将输出设为 html_document 或仅在 R 控制台中显示地图时，这不是问题。使用 ioslides_presentation 时有没有办法减少框中的空白/减小框的大小？

---
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 文档。右键单击要更改的元素并选择Inspect Element（在 Firefox 中，对于 Chrome 有类似的东西，以及在 RStudio 查看器中，尽管由于其性能我更喜欢使用浏览器）。然后您可以检查当前应用了哪些样式并使用您自己的 CSS 代码更改它们。在图像中，您可以看到我们选择了输入字段。在右下方的面板上，您可以看到该元素当前计算的样式。