在 R 中的函数中捕获系统命令的输出

Question

我正在使用包中的一个函数，该函数使用system2() 在函数中运行命令。这个特定的命令将一些东西打印到标准输出。我想捕获system2() 调用的输出，但是capture.output() 不起作用。我了解如何直接运行system2() 并捕获标准输出，但不了解如何在这种特定情况下获取它。

简单示例：

my_ls <- function() {
  system2("ls")
  return("Hello")
}
my_ls()
output <- capture.output(my_ls())
output

Answer 1

这是一个解决方案...但请注意，它适用于我的 Linux，可能适用于 Mac，我怀疑它适用于 Windows...

创建两个Rcpp 函数：

library(Rcpp)
cppFunction('void redir(){FILE* F=freopen("/tmp/capture.txt","w+",stdout);}')
cppFunction('void resetredir(){FILE* F=freopen("/dev/tty","w+",stdout);}')

第一个会将所有内容发送到该文件。第二个将重置它。问题是，在第一次交互之后，您将看不到任何东西。所以要小心...

所以最初system2 发送到控制台：

> system2("echo", "hello")
hello

但是在redir/resetredir 中封装一个调用会将其发送到文件中：

> redir(); system2("echo","hello world this time") ; resetredir()
> # prompt returns!

现在我们有了：

$ cat /tmp/capture.txt 
hello world this time

如果这是其他包的输出，您必须使用 R 的文件 I/O 例程将其读入。

狡猾的一点是在重置代码中使用/dev/tty - 我不确定它是否适用于 Mac 或 Windows。如果您不关心重置标准输出然后跳过它，并确保您知道如何在不看到您键入的内容的情况下完全 R。我也不确定这是否适用于可能具有不同控制台概念的 RStudio....