使用R语言system(intern=TRUE)时，如何让stderr在stdout之后输出？

问题本质 #

stdout和stderr是操作系统层面两个独立的输出流，它们的缓冲策略不同：stdout通常采用行缓冲或块缓冲（攒够一定内容才输出），而stderr为了保证信息及时显示，一般是无缓冲的。哪怕程序逻辑上先输出stdout再输出stderr，实际捕获时两者的内容也可能交错——这不是R的system函数的问题，而是系统流的固有特性，依赖stdout始终先于stderr输出的顺序本身就不可靠。

靠谱的解决方法 #

1. 使用processx包（推荐）

processx是专门处理外部进程的R包，能分别独立捕获stdout和stderr，完全避免内容混合，且能保证各自流内的输出顺序：

library(processx)
# 执行命令并分别捕获两个流
proc_result <- run(
  command = "exiftool",
  args = c("-n", "-csv", "-GPSAltitude", "X:/dir1/dir2/"),
  stdout = "text",
  stderr = "text"
)
# 提取CSV内容（按行拆分）
csv_content <- strsplit(proc_result$stdout, "\n")[[1]]
# 提取stderr中的统计信息
stats_content <- strsplit(proc_result$stderr, "\n")[[1]]

这种方法不需要依赖输出顺序，直接分别获取需要的内容，最稳定。

2. 利用cmd重定向（无额外包方案）

在Windows下，可以通过cmd的重定向语法，强制把stderr的内容追加到stdout的末尾，这样system捕获的内容顺序就和你在cmd中看到的一致：

# 构造带重定向的命令，2>&1表示将stderr合并到stdout
cmd_command <- 'cmd /c "exiftool -n -csv -GPSAltitude X:/dir1/dir2/ 2>&1"'
output <- system(cmd_command, intern = TRUE)
# 拆分CSV内容和统计信息：exiftool的统计通常是最后3行左右，可根据实际调整
csv_lines <- head(output, -3)
stats_lines <- tail(output, 3)

注意这个方法依赖exiftool统计信息的固定行数，如果你的场景中统计行数有变化，需要自行调整截取逻辑。

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