Question

我使用循环从api检索数据，将它们解析为json文件并将每个json文件保存在自己的目录中。问题是当我运行循环时出现以下错误：

Error in file(file, ifelse(append, "a", "w")) : 
  cannot open the connection
In addition: Warning messages:
1: In dir.create(file) :
  cannot create dir '~\sample', reason 'No such file or directory'
2: In file(file, ifelse(append, "a", "w")) :
    cannot open file '~/sample': No such file or directory

我可以在没有循环的情况下运行整个过程并且它工作正常，我知道我有权写入驱动器。我已尝试使用网络驱动器和本地C：\ user目录并收到相同的错误。

不幸的是，我无法提供完全可重复的示例，因为我正在使用网站的个人开发人员令牌，但这是我尝试使用的循环：

require(RCurl)
require (httr)
require(plyr)
require(rjson)

cvfe <- character.vector.of.file.extensions

for(i in length(cvfe)){
  test[i] <- paste("https://api.sample.com", cvfe[i],  sep = "")

  data.16 <- GET(test[i], add_headers(Accept = "application/json",  Authorization = "Token"))

  data.16.lst <- (content(data.2016, "parsed"))
  data.16.df <- ldply(data.16.lst[[3]], data.frame)
  data.16 <- toJSON(data.16.df)

  file = paste("~/sample", cvfe[i], sep = "")
  dir.create(file)
  write(data.16, file = file)
}

任何人都可以解释这不起作用吗？是我的循环还是我的机器上的安全设置有问题还是完全没问题？

Windows 10， R版本3.2.3

R循环无法打开文件连接

0 个答案: