Question

我有一张地图传单，我想保存在特定文件夹的html文件中。我使用的是Windows 7。

我尝试了以下内容：

library(htmlwidgets)
saveWidget(map_leaflet, file="ressources/test.html")

library(htmlwidgets)
saveWidget(map_leaflet, file="ressources\\test.html")

library(htmlwidgets)
path_name <- file.path("ressources", "test.html", fsep="\\")
saveWidget(map_leaflet, file=path_name)

library(htmlwidgets)
path_name <- paste("ressources", "test.html", sep="/")
saveWidget(map_leaflet, file=path_name)

作为错误消息，取决于Rstudio会话，我要么

1）setwd（dir）出错：无法更改工作目录

2）找不到路径

当我只保存时：

library(htmlwidgets)
saveWidget(map_leaflet, file="test.html")

效果很好。

提前感谢您的帮助。

Answer 1

同意。

这是一个解决方法：

f<-"ressources\\test.html"
saveWidget(map_leaflet,file.path(normalizePath(dirname(f)),basename(f)))

问题似乎是saveWidget不能使用相对路径名，而normalizePath不适用于已存在的文件的路径。

我认为这是saveWidget中的一个错误。

编辑：

我已经为an existing open issue

贡献了我认为更好的解决方法

Answer 2

我使用with_dir包中的withr函数来执行此操作。我也将其放在包装函数中：

save_leaflet <- function(plot, file, overwrite = FALSE){
  # save the file if it doesn't already exist or if overwrite == TRUE
  if( !file.exists(file) | overwrite ){
    withr::with_dir(new = dirname(file), 
                    code = htmlwidgets::saveWidget(plot, 
                                                   file = basename(file)))
  } else {
    print("File already exists and 'overwrite' == FALSE. Nothing saved to file.")
  }
}

来自R的htmlwidget的savewidget，无法将html文件保存在另一个文件夹中

2 个答案: