请教Rstudio的问题

salt_water

终于找到组织了，最近遇到一个问题，百思不得其解。

需求就是编一个函数，这个函数自动画图，然后将图像存到文件中。在RStudio下运行和调试。
函数反复运行，总是运行成功，但是查找输出的文件，文件虽有，但是文件内容是空的。
开始怀疑是编写的问题，但是随后将整个函数体COPY到shell上运行，则没有任何问题。

缩写后的函数如下：
saveToPng <- function() {
  
   
    png("d:/temp.png")
    qplot(carat, price, data=diamonds, alpha=I(1/10))   
    dev.off()
      
}
qplot是ggplot2函数包中函数。

所以怀疑是Rstudio的问题。
有大侠知道如何解决吗？