Листовка в 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-документа.Щелкните правой кнопкой мыши элемент, который вы хотите изменить, и выберите Проверить элемент (в Firefox для Chrome есть нечто подобное, а также в средстве просмотра RStudio, хотя я предпочитаю использовать браузер из-за его производительности).Затем вы можете проверить, какие стили в настоящее время применяются к нему и изменить их, используя свой собственный код CSS.На изображении видно, что мы выбрали поле ввода.В нижней правой панели вы видите текущие вычисленные стили для этого элемента.