R ioslides_演示文稿中的传单在框中放置了不必要的空白以切换图层。减少盒子尺寸的方法？

我正在用ioslides\u演示做演示，并用传单嵌入了一个交互式地图。用于切换不同层的白框有很多不必要的空白。将输出设置为html_文档或仅在R控制台中显示地图时，这不是问题。使用ioslides\u演示文稿时，是否有办法减少方框中的空白/缩小方框的大小

---
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))
```

---
标题：“ioslides中的传单”
输出：
ioslides_演示文稿
---
```{r设置，include=FALSE}
knitr:：opts_chunk$set（echo=TRUE）
```
##传单
```{r，echo=F，message=F，warning=F}
图书馆（光栅）
图书馆（单张）
rwa_adm0%
addPolygons（数据=rwa_adm0，group=“ADM 0”）%>%
addPolygons（数据=rwa_adm0，group=“ADM 1”）%>%
addLayersControl（覆盖组=c（“ADM 0”、“ADM 1”），
选项=图层控制选项（折叠=假））
```

单张输出：

---

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

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

.单张控制层选择器{
宽度：自动；
}

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