我正在尝试使用传单htmlwidget而不是图像来制作slickR轮播。我正在关注https://metrumresearchgroup.github.io/slickR/“ htmlwigets”部分。
当我执行以下代码时,每个幻灯片的转盘都是空白的。
library(slickR)
library(leaflet)
#Create leaflet object
l <- leaflet() %>% addProviderTiles(providers$OpenStreetMap) %>%
setView(lng = -118.03746, lat=54.04148,zoom=10)
#Save leaflet object as .html file
htmlwidgets::saveWidget(l,'leaflet.html')
#Read-in .html and copy 4 times, 1 map for each slide
slickR(c(rep(paste0(readLines('leaflet.html'),collapse='\n'),4)),
slideId = 'leaf',
slideType = rep('iframe'),
height='400px',width='100%')
在我的文件目录中,leaflet.html保存并可以打开。旋转轮胎-关于如何使地图显示在轮播中的任何想法?