R - 使用系统命令参数化解压缩文件

Question

我对在 R 中解压缩大文件的速度很慢感到失望：

unzip("C:/My File.zip", exdir="C:/")

所以我写了一个系统命令：

system('powershell -command "Expand-Archive -Path "C:/My File.zip" -DestinationPath "C:/" -Force"')

这个命令工作得很好，但现在我想参数化输入文件，我在构造命令时遇到了反斜杠转义字符的问题：

in_file <- "C:/My File.zip"
command <- paste0("'powershell -command "Expand-Archive -Path "", in_file, "" -DestinationPath "C:/" -Force"'")

虽然cat(command)看起来像我想要的字符串：

cat(command)
> 'powershell -command "Expand-Archive -Path "C:/My File.zip" -DestinationPath "C:/" -Force"'

当我运行system(command)时出现错误：

Warning message:
running command ''powershell -command "Expand-Archive -Path "C:/My File.zip" -DestinationPath "C:/" -Force"'' had status 127 

我

把它归结为命令实际上没有像我想要的那样运行，因为转义字符仍然存在：

print(command)
> "'powershell -command "Expand-Archive -Path "C:/My File.zip" -DestinationPath "C:/" -Force"'"

我已经进行了各种尝试来删除反斜杠，例如 gsub("","",str, fixed=TRUE)但我就是管不了。

如何让我的解压缩命令工作？

Answer 1

mt1022 让我走上了正轨。为了完成这篇文章，答案是使用：

paste0('powershell -command "Expand-Archive -Path """', in_file, '""" -DestinationPath """', out_file, '""" -Force"')