将qplot输出导出为R中的pdf

Question

以下是我使用的代码：

library(ggplot2)
pdf('testplot.pdf')
qplot(1:10, 2:11, geom=c('point', 'line'))
dev.off()

如果我将这些输入到R会话中，一切都很好，但如果我将这些行保存到文件test.R，然后将其源化，则pdf文件将为空。非常令人费解。