R：C ++中来自Rprintf的suppressMessages

Question

我正在编写一个R-package，其中包含一些运行冗长计算的C ++代码。 在C ++代码中，我使用Rprintf（）来输出信息。 我尝试使用suppressMessages（）来抑制R的输出，但是这不起作用，消息仍然出现在R会话中。

我发现了一些类似的问题，人们使用的是printf而不是Rprintf，但我已经在使用Rprintf了。 我也尝试过R_ShowMessage（），它也会立即显示而不会被suppressMessages（）抑制。

这是一些示例C ++代码：

#include <R.h>
extern "C" {
void R_testprint()
{
    Rprintf("Try to suppress me!\n");
    R_ShowMessage("Try to suppress me, too!");
}
}

以及调用此代码的函数：

test.print <- function(string) {
    res <- .C("R_testprint")
}

现在，以下R代码不会抑制输出：

> suppressMessages( test.print() )
Try to suppress me!
Try to suppress me, too!

我使用的是R版本3.1.0

我感谢任何帮助！

Answer 1

使用capture.output代替suppressMessages ：

 b <- capture.output( test.print() )

然后输出存储在字符向量b而不是打印。