Actually load the library necessary to compactPDF
-- Old version was buggy in that if you didn't load "tools" package in your script it wouldn't compact the resulting PDF! Fixed
This commit is contained in:
parent
2996693c9f
commit
4b8d9c3915
|
|
@ -1,5 +1,6 @@
|
|||
library(gplots)
|
||||
library(ggplot2)
|
||||
library(tools)
|
||||
|
||||
# -------------------------------------------------------
|
||||
# Utilities for displaying multiple plots per page
|
||||
|
|
@ -59,6 +60,7 @@ closePDF <- function(outputPDF) {
|
|||
if ( ! is.na(outputPDF) ) {
|
||||
dev.off()
|
||||
if (exists("compactPDF")) {
|
||||
print("compacting PDF")
|
||||
compactPDF(outputPDF)
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue