如何用R实现与PowerShell的程序化交互式会话？

要实现R和PowerShell的程序化交互式通信，解决批量执行时的阻塞和条件停止问题，推荐使用processx包——它专门用于管理外部进程，支持双向实时通信，完美适配你的需求。

步骤1：安装并加载依赖包 #

install.packages("processx")
library(processx)

步骤2：启动PowerShell交互式进程 #

通过process$new()启动PowerShell，配置为从标准输入接收命令，并设置输出回调函数实时捕获返回内容：

# 初始化停止标记
stop_flag <- FALSE

# 定义输出回调函数：实时检查输出，触发停止条件
output_callback <- function(output, proc) {
  cat("PowerShell输出:", output, "\n")
  # 示例：如果输出包含"处理完成"或"加密错误"，触发停止
  if (grepl("处理完成|加密错误", output)) {
    stop_flag <<- TRUE
  }
}

# 启动PowerShell进程
ps_proc <- process$new(
  command = "powershell.exe",
  args = c("-NoProfile", "-Command", "-"),  # -表示从stdin读取命令
  stdout_callback = output_callback,
  stderr_callback = output_callback,
  encoding = "UTF-8"
)

步骤3：逐行发送命令并根据输出控制流程 #

循环发送处理加密Excel的命令，每次发送前检查停止标记，避免无效执行：

# 待执行的PowerShell命令列表（示例：处理多个加密Excel）
ps_commands <- c(
  '$encryptedFile = "C:/docs/file1.xlsx"; $password = "your-pass"; Import-Excel $encryptedFile -Password $password | Export-Csv "C:/output/file1.csv"',
  '$encryptedFile = "C:/docs/file2.xlsx"; $password = "your-pass"; Import-Excel $encryptedFile -Password $password | Export-Csv "C:/output/file2.csv"',
  # 更多命令...
)

# 逐行发送命令
for (cmd in ps_commands) {
  if (stop_flag) {
    cat("触发停止条件，终止后续命令\n")
    break
  }
  # 发送命令（必须加换行符，PowerShell才会执行）
  ps_proc$write_input(paste0(cmd, "\n"))
  # 可选：等待命令执行完成（根据实际需求调整等待时间）
  Sys.sleep(2)
}

步骤4：清理进程 #

完成所有操作后，关闭PowerShell进程：

ps_proc$close()

关键说明 #

• 为什么不用FIFO？Windows下FIFO的读写逻辑容易出现阻塞，而processx内部已处理了跨平台的进程通信细节，无需手动管理管道。
• 回调函数可根据你的实际输出特征调整停止条件，比如检测特定错误码、成功标识等。
• 若需要更精确的执行同步，可使用ps_proc$wait()等待进程完成当前命令，而非固定Sys.sleep()。

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