Errore in file.download durante il download di file personalizzato

Question

Sto cercando di scaricare il file zip da questo URL:

url1 <- http://www.clinicaltrials.gov/ct2/results?cond=%22acne%22&studyxml=true 

Ecco il mio codice:

tempZip <- tempfile() 
download.file(url1, tempZip) 

Ed ecco l'errore che ottengo:

Warning message: 
In download.file(url1, tempZip) : 
    downloaded length 817445 != reported length 200 

Qualche idea?

MODIFICA: OK, dopo aver visto la risposta di agstudy di seguito, ho trovato che il file è stato effettivamente scaricato (sembra anche che sia la dimensione corretta del file). Ora il problema è quando provo a decomprimere il file - giorni il file è danneggiato.

Maciej, sono d'accordo che sarebbe meglio usare un collegamento con un'estensione .zip, tuttavia, non c'è modo di ottenerlo da questo sito.

Answer 1

OK, ho capito cosa c'era che non andava. Poiché alla fine questo URL non ha ".zip" specifico, la funzione download.file non è in grado di utilizzare un download binario. Questo codice risolve il problema:

url1 <- http://www.clinicaltrials.gov/ct2/results?cond=%22acne%22&studyxml=true 
tempZip <- tempfile() 
download.file(url1, tempZip, mode="wb") 

Se non si specifica l'argomento della modalità, il file zip scaricato sarà danneggiato.

Answer 2

Non si dispone di collegamento diretto al file. R tenta di scaricare la pagina web non il file. Usa il link che termina con '.zip'.

Può essere utile utilizzare il pacchetto XML o RCurl per analizzare i collegamenti ai set di dati da questa pagina Web.