我正在使用ioslides_presentation做一个演示,并使用传单嵌入一个交互式地图。用于切换不同层的白框有大量不必要的空白。当将输出设置为html_document或仅在R控制台中显示映射时,这不是问题。在使用ioslides_presentation时,是否有办法减少方框中的空白/缩小框的大小?
---
title: "Leaflet in ioslides"
output:
ioslides_presentation
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo =真)
## Leaflet
```{r, echo=F, message=F, warning=F}
图书馆(光栅)
图书馆(小册子)
rwa_adm0 <- getData('GADM',country='RWA',level=0)
rwa_adm1 <- getData('GADM',country='RWA',level=1)
传单( %>% )
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))
传单输出:
发布于 2018-06-09 09:26:30
最简单的方法是使用CSS。在您的文档中添加以下行:
<style>
.leaflet-control-layers-selector {
width: auto;
}
</style>
解决这些美学问题的方法是使用浏览器检查生成的HTML文档。右键单击要更改的元素,并选择its元素(在Firefox中,Chrome有类似的内容,RStudio查看器也是如此,但由于性能原因,我更喜欢使用浏览器)。然后,您可以检查当前应用于它的样式,并使用您自己的CSS代码更改它们。在图像中,您可以看到我们选择了输入字段。在右下角面板上,您可以看到该元素的当前计算样式。
https://stackoverflow.com/questions/50762088
复制相似问题