在R中保存pdf的问题

Question

我遇到了一个奇怪的问题：

我有一个显示功能（主要依赖于gglplot2），称为绘图（链）作为一个尾波链的参数。

如果我打电话给R控制台：

 chain<-read.coda(#....name etc)
 pdf(paste(outDirectory,'/plot.pdf',sep=''))
 draw(chain);
 dev.off()

plot.pdf包含预期的内容。但是，如果我实现了一个封装保存的函数，那就做类似的工作：

 save<-function(name1,name2,outDirectory) 
 {
 chain<-read.coda(name1,name2)
 pdf(paste(outDirectory,'/plot.pdf',sep=''))
 draw(chain);
 dev.off()
 }

然后直接致电

   save(name1,name2,outDirectory)

在R控制台中

：得到的plot.pdf是不可靠的。 我不知道如何清除这种情况但真的需要它！ 如果有人有想法，我很感激。

我在R版本2.15.2，Mac版本下开发。