用R系统拆包rar（）

Question

好的，这项任务似乎很容易实现。但是我花了几个小时没有任何结果。

用户有：

• 7Z
• 窗
• - [R

用户应输入：

• 7z路径（z7path）
• 文件名

系统应该将rar解压缩到项目的根目录

我试过了：

cmd = "C:\\Program Files (x86)\\7-Zip\\7z e D:/20140601.rar"
system(shQuote(cmd))

而且......没有任何反应。 请不要建议设置PATH，它没有帮助，这应该没有它。

Answer 1

好的，我终于明白了。

1. 使用shell
2. 使用shQuote作为周围路径

3. 使用右键

   z7path = shQuote('C:\\Program Files (x86)\\7-Zip\\7z')
   file = paste(getwd(), '/101-01.rar', sep = '')
   cmd = paste(z7path, ' e ', file, ' -y -o', getwd(), '/', sep='')
   shell(cmd)
   

Answer 2

我不得不修改第二个答案中的代码，最后它才有效。 如果您想要所有文件，可以通过“-y -o”更改“-ir！。 -o”。

z7path = shQuote('C:\\Program Files\\7-Zip\\7z')
file = paste('"', 'D:/20140601.rar', '"',sep = '')
cmd = paste(z7path, ' e ', file, ' -ir!*.* -o', '"', getwd(), '"', sep='')

system(cmd)