Question

我有一个受密码保护的zip存档，其中包含一个SPSS系统数据文件（* .sav）。我想打开包装并将其内容读入R.从我用Google搜索，Hmisc::getZip似乎是最好的选择。我尝试了一些不同的方法。

首先尝试运行该函数，希望它会吐出我*.sav位置的getwd()文件。

getZip(url = '/path/to/data.zip', 
  password = 'foo'
)

但是这个命令返回：

"unzip -p -P foo data.zip" 
class 
"pipe" 
mode 
"r" 
text 
"text" 
opened 
"closed" 
can read 
"yes" 
can write 
"yes"

在阅读帮助文件后，getZip()函数似乎返回文件O / I管道。所以我的第二次尝试是在getZip()内使用read.spss()。像这样：

data <- read.spss(getZip(url = '/path/to/data.zip', 
  password = 'foo')
)

但没有爱：

Error in read.spss(getZip(url = '/path/to/data.zip', password = 'foo')) : 
  unable to open file: 'No such file or directory'

当我第一次尝试使用命令＆＃34; unzip -p -P foo data.zip＆＃34;并从命令行运行它（添加＆＃34; > data.sav＆＃34;）我得到SPSS文件。有些东西在起作用。我的第三次尝试是使用连接：

file_connection <- getZip(url = '/path/to/data.zip', password = 'foo')
open(file_connection, 'rb')
data <- readBin(file_connection, raw())
close(file_connection)

我希望将数据对象保存到*.sav文件，然后使用read.spss()函数将其读回R.但是数据对象不是SPSS文件：

> data
[1] 24

那么......我应该如何成功解压缩并将密码保护的zip存档中的*.sav文件读入R？

> sessionInfo()
R version 3.3.0 (2016-05-03)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 14.04.4 LTS

locale:
 [1] LC_CTYPE=en_US.UTF-8          LC_NUMERIC=C                 
 [3] LC_TIME=en_US.UTF-8           LC_COLLATE=en_US.UTF-8       
 [5] LC_MONETARY=sv_SE.UTF-8       LC_MESSAGES=en_US.UTF-8      
 [7] LC_PAPER=sv_SE.UTF-8          LC_NAME=sv_SE.UTF-8          
 [9] LC_ADDRESS=sv_SE.UTF-8        LC_TELEPHONE=sv_SE.UTF-8     
[11] LC_MEASUREMENT=sv_SE.UTF-8    LC_IDENTIFICATION=sv_SE.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] gmailr_0.7.1 rj_2.0.5-1  

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.5         Formula_1.2-1       cluster_2.0.4      
 [4] magrittr_1.5        splines_3.3.0       munsell_0.4.3      
 [7] rj.gd_2.0.0-1       colorspace_1.2-6    lattice_0.20-33    
[10] R6_2.1.2            httr_1.1.0          plyr_1.8.3         
[13] tools_3.3.0         nnet_7.3-12         grid_3.3.0         
[16] data.table_1.9.6    gtable_0.2.0        latticeExtra_0.6-28
[19] openssl_0.9.3       survival_2.39-4     Matrix_1.2-6       
[22] gridExtra_2.2.1     RColorBrewer_1.1-2  ggplot2_2.1.0      
[25] base64enc_0.1-3     acepack_1.3-3.3     rpart_4.1-10       
[28] curl_0.9.7          scales_0.4.0        Hmisc_3.17-4       
[31] jsonlite_0.9.20     chron_2.3-47        foreign_0.8-66

编辑：好的。所以我有一个（不那么优雅）的解决方法。我使用system()调用wait = TRUE参数来解压缩文件。像这样：

system(command = paste0('unzip -P foo ', data.zip), 
  wait = TRUE
)

然后我可以将*.sav文件读入R.但我仍然不明白如何使用Hmisc::getZip()

解压缩受密码保护的存档并将包含的SPSS文件读入R

0 个答案: