Добавить в PDF-файл в качестве альтернативы перезаписи в R

Question

У меня есть следующая функция в R, которая печатает график и тепловую карту в конкретный рабочий каталог

Эта функция может вызываться из нескольких мест в моем приложении для различных различных фреймов данных

I хотел бы добавить pdf-файл, но в данный момент он каждый раз создает новый файл, что означает, что у меня есть статистика только для последнего Dataframe.

Есть идеи?

performPCA <- function(DataFrame, subset, Chars2Remove, replacementString)
{

  pdf("testdata.pdf", onefile=TRUE, height = 12, width = 8)

  screeplot(subsetPCA, type = "l", npcs = length(subset), main = paste("Screeplot For "replacementString, " Analysis"))

  heatmap( as.matrix(cor(subset)), margins = c(10,10), cexRow=1, cexCol=1, Rowv = NA, Colv = NA, main = paste("Heatmap For ", replacementString, " Analysis"))

  dev.off()  

}