私はウェブからzipファイルを読みたいR

Question

でzipファイルを読んで、以下のように私のコードは

temp<-tempfile() 
download<-download.file("http://depts.washington.edu/control/LARRY/TE/IDVs/idv1.zip",temp) 
data<-read.table(unz(temp,"r.dat"),head=FALSE) 
unlink(temp) 

である。しかし、それは私がなぜ分からないエラー

Error in open.connection(file, "rt") : cannot open the connection 
In addition: Warning message: 
In open.connection(file, "rt") : 
    cannot locate file 'r.dat' in zip file 'C:\Users\CHENGF~2\AppData\Local\Temp\RtmpgtJShr\file361c5d0a55eb' 

を示しそれは、誰かが私を助けることを願って、データを読み取ることができません！

Answer 1

これは、破損しているように見えるidv1以外のすべてのidvファイルに対して機能します。別のツールを使用してidv1.zipを解凍して読み込む必要があります。

readrdat <- function(n) { 
    fname <- paste0("idv",n) 
    zipname <- paste0(fname,".zip") 
    weblink <- paste0("http://depts.washington.edu/control/LARRY/TE/IDVs/",zipname) 
    download.file(weblink,zipname) 
    data <- read.table(unz(zipname,paste0(fname,"/r.dat")),header=FALSE) 
    unlink(zipname) 
    return(data) 
} #readrdat 

lsdata <- lapply(1:15, function(n) { 
    tryCatch(readrdat(n), error=function(e) NULL) 
}) 
lapply(lsdata, is.null)