我正在使用一个包函数(coreenv,来自 seewave),它在控制台中创建一条“请稍候...”消息。正如我反复所说的那样,该消息非常烦人。所以,我需要一种方法:
OR
以下不是我的真实代码,而是一个显示问题的非常简单的代码
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)
}
一个非常简单的问题,但我还没有找到任何解决方案。我将不胜感激任何帮助
你可以使用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(...)
}
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)