Использование R для загрузки и чтения zipped-файла xml

Question

На основании this Ответ Dirk Eddelbuettel Я пытаюсь прочитать файл xml из архива zip для дальнейшей обработки. Помимо URL и имен файлов, единственное изменение в указанном коде - это то, что я изменил read.table на xmlInternalTreeParse.

library(XML) 
temp <- tempfile() 
download.file("http://epp.eurostat.ec.europa.eu/NavTree_prod/everybody/BulkDownloadListing?sort=1&downfile=data%2Fnrg_105a.sdmx.zip",temp) 
doc <- xmlInternalTreeParse(unz(temp, "nrg_105a.dsd.xml")) 
fileunlink(temp) 
closeAllConnections() 

Однако это возвращает следующее сообщение об ошибке:

Error in file.exists(file) : invalid 'file' argument 

traceback() показывает, что это вызов функции внутри синтаксического анализатора. Таким образом, temp, похоже, является неприемлемой ссылкой в ​​этом контексте. Есть ли способ сделать эту работу?

Answer 1

Вы можете попробовать:

# Make a temporary file (tf) and a temporary folder (tdir) 
tf <- tempfile(tmpdir = tdir <- tempdir()) 

## Download the zip file 
download.file("http://epp.eurostat.ec.europa.eu/NavTree_prod/everybody/BulkDownloadListing?sort=1&downfile=data%2Fnrg_105a.sdmx.zip", tf) 

## Unzip it in the temp folder 
xml_files <- unzip(tf, exdir = tdir) 

## Parse the first file 
doc <- xmlInternalTreeParse(xml_files[1]) 

## Delete temporary files 
unlink(tdir, T, T)