R非常缓慢地生成传单地图

Question

我正在尝试从传单地图生成许多屏幕截图。该方案是这样的：

  

循环重复x次：

     

1）生成传单

     

2）附加所有必要的点

     

3）创建传单html

     

4）截屏

但是要花很长时间。你知道任何有效的捷径吗？

第1点和第2点

m <- leaflet(tmp_leaflet) %>% addTiles() 

html_path = paste(path, "m.html", sep="/")
png_path = paste(path, "m.png", sep="/")

第3点

saveWidget(m, file = html_path)

第4点

webshot(url = html_path, file = png_path)

也许javascript会更高效？