gpt4 book ai didi

r - 如何访问由 R 中的传单生成的 map

转载 作者:行者123 更新时间:2023-12-04 04:47:06 27 4
gpt4 key购买 nike

假设我有这样的代码

# 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 文件?有没有办法设置它的保存位置?我以为它会被保存到工作目录中,但事实并非如此。我想我可以通过终端访问它,但我希望有一种更简单的方法。

最佳答案

我开发了一些功能,可以让您将传单 map 保存在临时文件夹以外的其他位置。

请参阅此处的要点: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应该有一组自包含的 map 文件。我认为它应该是可移植的,即可以在任何网络服务器上工作,但我不能保证......

关于r - 如何访问由 R 中的传单生成的 map ,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30336235/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com