1

Rを使用してcdcからこのzipファイルをダウンロードしようとしています.firefoxからは正常に動作します..setInternet2(TRUE)すぐに試しましたが、それでもうまくいきませんでした..

以下のすべての場合で、私は得ます：

z<-unzip(tf)

Warning message:
In unzip(tf) : zip file is corrupt

これが私のすべての試みの最初の2行です--

fn <- 'ftp://ftp.cdc.gov/pub/health_statistics/nchs/datasets/dvs/natality/nat2012us.zip'
tf <- tempfile() ; td <- tempdir()

そして、ここに私が試したものがあります:

# fails
download.file(fn,tf,mode='wb')
z <- unzip( tf , exdir = td )

# fails
setInternet2(TRUE)
download.file(fn,tf,mode='wb')
z <- unzip( tf , exdir = td )

# fails
download.file(fn,tf,mode='wb',cacheOK=FALSE)
z <- unzip( tf , exdir = td )

# fails
setInternet2(TRUE)
download.file(fn,tf,mode='wb',cacheOK=FALSE)
z <- unzip( tf , exdir = td )

# fails
library(downloader)
download(fn,tf,mode='wb')
z <- unzip( tf , exdir = td )

# fails
library(httr)
resp <- GET(fn)
writeBin(content(resp, "raw"), tf)

# fails
library(RCurl)
x <- getBinaryURL( fn )
writeBin( x , tf )
z <- unzip(tf)


# in every case:
> file.info(tf)$size
[1] 228799759

バカなことだったらごめんなさい

4

1 に答える 1

2

Windowsunzip="internal"に問題があるようです。 shell()そしてwinrは問題を回避します

fn <- 'ftp://ftp.cdc.gov/pub/health_statistics/nchs/datasets/dvs/natality/nat2012us.zip'
tf <- tempfile()
download.file( fn , tf , mode = 'wb' )

wr <- normalizePath( "C:/Program Files/WinRAR/WinRAR.exe" )

td <- tempdir()
shell( paste0( '"' , wr , '" x ' , tf , ' ' , td ) )
于 2014-04-19T10:32:32.697 に答える