如何使用连接将.xpt.zip文件读入R中

Question

有没有人有快速/直接的方法从ZIP文件中读取SAS XPT文件到R？

例如：

> library(foreign)
> d = read.xport(unz('foo.zip','bar.xpt'))
Error in lookup.xport(file) : first argument must be a file name

我可以先unzip()每个文件，将read.xport()应用于解压缩的XPT文件，然后删除XPT文件，但这似乎不必要地慢。