使用 htmlwidget 将交互式绘图保存到路径

Question

我正在尝试将一些交互式图形保存到额外的文件中。这适用于htmlwidget::saveWidget。但是我将它们保存到不同的文件夹（例如结果文件夹）时会遇到问题。

results_dir <- 'results'
if(!dir.exists(results_dir)) dir.create(results_dir)
p <- plotly::plot_ly(economics, x = ~date, y = ~pop, 
             type = 'scatter', mode = 'markers')
htmlwidgets::saveWidget(p, 
                        file.path(results_dir, 'VSGs.html'))

错误信息是：

normalizePath 中的错误（基本路径，“/”，TRUE）：
path[1]="results": 没有这样的文件或目录

有人知道发生了什么吗？

我知道之后只是移动文件，但我希望解决此错误消息。

htmlwidgets::saveWidget(p, 'VSGs.html')
file.rename('VSGs.html', file.path(results_dir, 'VSGs.html'))

Answer 1

“结果”似乎不是有效路径
尝试设置存在的文件夹的完整路径。
这应该工作：

dir.create(paste0(getwd(),"/results"))
results_dir = paste0(getwd(),"/results") # get directory

然后使用 results_dir 作为保存路径。

Answer 2

savewidget from htmlwidget in R , cannot save html file in another folder 中讨论了基本问题并提供了解决方法

TL/DR：使用以下

saveWidgetFix <- function (widget,file,...) {
  ## A wrapper to saveWidget which compensates for arguable BUG in
  ## saveWidget which requires `file` to be in current working
  ## directory.
  wd<-getwd()
  on.exit(setwd(wd))
  outDir<-dirname(file)
  file<-basename(file)
  setwd(outDir);
  saveWidget(widget,file=file,...)
}