如何将R中的文件夹路径传递给PowerShell脚本并解决相关报错

问题逐个解决 #

1. 路径字符串'\U'报错 #

R会把路径里的\U识别为Unicode转义符，导致解析错误。两种解决方式：

• 用双反斜杠表示路径中的单斜杠：

  folder <- "C:\\Users\\YourName\\TargetFolder"
  

• 直接用正斜杠（PowerShell完全支持正斜杠路径，更省心）：

  folder <- "C:/Users/YourName/TargetFolder"
  

2. 引号转义异常（'变'或\'残留） #

R和PowerShell的引号转义规则冲突，需做双重转义：

• 如果PowerShell脚本里要用单引号，R层面写成\\'，传递后会被PowerShell解析为'
• 如果用双引号，R层面写成\"
  示例：

# PowerShell模板（要生成带单引号的路径）
ps_template <- "Get-ChildItem -Path '%s' -Filter '%s'"
# 填充变量
final_script <- sprintf(ps_template, folder, input)

3. 生成的字符串新增\n #

这是R字符串打印时的显示问题，或模板里不小心加了换行：

• 用cat(final_script)查看真实内容，R默认会把换行显示为\n，实际传递给PowerShell的是正常换行
• 如果不需要换行，直接删除模板字符串里的换行符即可

4. system()执行脚本失败 #

不能直接把sprintf嵌套在system()的引号里，需先生成完整命令再执行：

# 1. 定义变量
folder <- "C:/Users/YourName/TargetFolder"
input <- "*.xlsx"

# 2. 定义PowerShell脚本模板
ps_template <- "Get-ChildItem -Path '%s' | Where-Object {$_.Name -like '%s'}"

# 3. 生成完整PowerShell命令
ps_command <- sprintf(ps_template, folder, input)
full_command <- paste0("powershell -command \"", ps_command, "\"")

# 4. 执行（Windows下用shell()比system()更适配）
shell(full_command)
# 如需捕获输出，加intern=TRUE
result <- shell(full_command, intern = TRUE)

额外稳定方案 #

如果脚本复杂，建议先把生成的PowerShell内容保存为文件，再执行：

# 生成脚本并保存
writeLines(ps_command, "temp_script.ps1")
# 执行脚本文件
shell("powershell -file temp_script.ps1")

内容的提问来源于stack exchange，提问作者fionpo