zzh
/
gatk-3.8
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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:
Mark DePristo 2012-08-28 08:05:05 -04:00
parent 2996693c9f
commit 4b8d9c3915
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
public/R/src/org/broadinstitute/sting/utils/R/gsalib/R/gsa.variantqc.utils.R
View File

@ -1,5 +1,6 @@
library(gplots) library(gplots)
library(ggplot2) library(ggplot2)
library(tools)
# ------------------------------------------------------- # -------------------------------------------------------
# Utilities for displaying multiple plots per page # Utilities for displaying multiple plots per page
@ -59,6 +60,7 @@ closePDF <- function(outputPDF) {
if ( ! is.na(outputPDF) ) { if ( ! is.na(outputPDF) ) {
dev.off() dev.off()
if (exists("compactPDF")) { if (exists("compactPDF")) {
print("compacting PDF")
compactPDF(outputPDF) compactPDF(outputPDF)
} }
} }