Explicitly state source of graphic functions

manszamore · Jun 8, 2020 · 4c42e03 · 4c42e03
1 parent f17b7d1
commit 4c42e03
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/generatePlots.R b/R/generatePlots.R
@@ -174,9 +174,9 @@ generatePlots <- function(nr, jobdir, plotRows=3, plotCols=4, writeAsPngs=FALSE)
 
 writePage <- function(outputFunc, jobdir, writeAsPngs, pngPath=NULL, ...) {
   if (!is.null(pngPath) && writeAsPngs) {
-    png(filename=pngPath, width = 11.7, height = 8.3, units="in", res=300)
+    grDevices::png(filename=pngPath, width = 11.7, height = 8.3, units="in", res=300)
     outputFunc(...)
-    dev.off()
+    grDevices::dev.off()
   }
   else {
     outputFunc(...)