Разархивировать необработанный файл в памяти в R

Question

Мне нужно загрузить zps-файл csv из Интернета, разархивировать его и загрузить в память как data.frame. Есть ли способ закончить весь процесс в памяти только без чтения/записи диска? Вот что я пробовал:

library(RCurl) 
file <- getURL(url, userpwd='user:pwd') 
tf <- tempfile() 
writeBin(content(file, "raw"), tf) 
tf <- unzip(tf, exdir=tempdir()) 
data <- read.csv(tf) 
unlink(tf) 

Я думаю writeBin, unzip и read.csv здесь использовать дорогой диск I/O, но я не знаю, как улучшить его.

Answer 1

Я думаю, что этот пример, используя unz(), доставит вас куда ближе, открыв соединение с одним файлом в вашем Zip-архиве, хотя я был бы удивлен, если функция unz() на самом деле не распаковывает диск, я его не проверял :

## Create a sample data.frame object: 
d <- data.frame(a=rnorm(40), b=rnorm(40)) 

## Write this data.frame to two separate CSV files, and zip 
## them together into a new archive: 
write.csv(d, file="d.csv") 
write.csv(d, file="d_2.csv") 
zip("d.zip", c("d.csv", "d_2.csv")) 

## In this case, we will open a file connection to a single file 
## inside the zip archive, and read the data in using read.csv(): 
f <- unz("d.zip", "d_2.csv") 
a <- read.csv(f) 
head(a)