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而不是被打印。