避免控制台消息表单包功能

Question

我使用了一个包函数(corenv，来自seewave)，它创建了一个“请等待.”控制台中的消息。正如我反复所说的那样，这个消息非常恼人。所以，我需要一个方法：

• 在我的代码中，暂时禁止控制台消息。

或

• 访问函数代码并删除消息行

以下不是我的真正代码，而是一个非常简单的代码，显示了这个问题。

require(seewave)
a = seq(0, (2*pi), by=0.01) #simple, unreal example
for (i in sequence(100)){
  x = sin(a*i/3) #simple, unreal example
  y = sin(a*i/2) #simple, unreal example
  corenv(x,y,10,plot=FALSE)
}

一个非常简单的问题，但我还没有找到任何解决办法。我愿意接受任何帮助

Answer 1

您可以使用sink来捕获输出。

sink("tmp.txt")
z = corenv(x,y,10,plot=FALSE)
sink()

您也可以将它包装在一个函数中。

## unlink deletes the temporary file
## on.exit ensures the sink is closed even if 
## corenv raises an error.
corenv(..., verbose=FALSE) {
  if(verbose) {
    sink("tmp.txt")
    on.exit(sink(); unlink("tmp.txt"))
  }
  seewave::corenv(...)
}