在R命令和恢复设备中保存数字

Question

我正在绘制一系列时间序列，每当用户按下“ENTER”时，当前的情节将被实现到下一周。在此序列中，我希望程序保存具有“红色”点的图形并继续执行序列。

问题是，当我运行knitr包时，程序会停止，当第一个数字有红点时，我告诉你。同时，当我在R下运行程序时，它可以正常工作。

site <- site_time_Series(site_ref)绘制时间序列序列。 在这个函数里面我写了代码，如果有红点就像这样保存图：

dev.copy(png,paste('Figure',compt,'.png',sep=''))
dev.off()

后来我打电话给knit('Site_assesment.Rnw')，其中与时间序列函数相关的chunck代码是这样的：

<<echo=TRUE,warning=F,comment=NA,fig.keep='none'>>= 
site_ref <- site_time_series(site_ref,peaks=T,stationary=T)
@

因为我只想查看情节并保存红点。 如果不清楚就问我！

我认为它是由活动设备引起的，因为当我输入：

  

dev.cur（）       PNG：Figure1.png                     7   所以我需要恢复古老的设备。你同意吗？