假设我有这样的代码
# Install devtools if needed
if(!require(devtools)) install.packages("devtools")
# view rawif-devtools.R hosted with ❤ by GitHub
# Install leaflet package
if(!require(leaflet)) install_github("rstudio/leaflet")
library("leaflet")
mymap <- leaflet()
mymap <- addTiles(mymap)
mymap
这会在 Chrome 中打开它,文件路径如下:
file:///var/folders/8x/v2tk5zy51x51jx9jbp0m29qr0000gn/T/RtmpQaeu1E/viewhtmlf74547061f7d/index.html.
假设我想将其发布到我的博客上。我到底如何访问这个html文件?有没有办法设置它的保存位置?我以为它会保存到工作目录中,但事实并非如此。我想我可以通过终端访问它,但我希望有一种更简单的方法。
我开发了几个函数,可以让您将传单地图保存在临时文件夹之外的其他位置。
请参阅此处的要点:https://gist.github.com/barryrowlingson/d066a7ace15cf119681a对于完整信息,简短版本是这两个函数:
saveas <- function(map, file){
class(map) <- c("saveas",class(map))
attr(map,"filesave")=file
map
}
print.saveas <- function(x, ...){
class(x) = class(x)[class(x)!="saveas"]
htmltools::save_html(x, file=attr(x,"filesave"))
}
那么你要做的就是:
leaflet() %>% etc etc %>% saveas("/wherever/you/want/index.html")
或以您的工作方式:
mymap <- leaflet()
mymap <- addwhatever(mymap)
saveas(mymap, "/wherever/you/want/index.html")
此时文件夹/wherever/you/want
应该有一组独立的地图文件。我认为它应该是可移植的,即可以在任何网络服务器上工作,但我不能保证......
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)