file.exist用于R中的在线可用文件

Question

我想测试gitub上是否存在一个文件，file.exists（）不起作用：

t= "https://raw.githubusercontent.com/jcolomb/HCS_data_1/master/Project_exampledata1/Routputs/Min_permutated_1.csv"
file.exists(t)
#FALSE
read.csv2(t) #that does work

我也试过了：

 data = try(read.csv2(paste0(onlinemin,'/Min_',Name_project,'.csv'),dec = ".")
 ,T)

但即使try（）不成功，也存在（“data”）为真。

任何想法？

Answer 1

require(RCurl)
url_handle<-getCurlHandle()
t= "https://raw.githubusercontent.com/jcolomb/HCS_data_1/master/Project_exampledata1/Routputs/Min_permutated_1.csv"
getURL(t,header=1,nobody=1, curl = url_handle)
getCurlInfo(url_handle,"response.code")

404意味着没有好处。 200意味着好去。您可以将它全部合并到一行。快乐的编码。

Answer 2

我认为来自url.exists(t)库的RCurl可能就是您所需要的。

我希望它有所帮助！

Answer 3

由于我不想使用另一个包，我终于使用了

data = try(read.csv2(paste0(onlinemin,'/Min_',Name_project,'.csv'),dec = ".")
,T)
if (class(data)=="try-error") ...

不是很优雅，但很有效。