Minor bug fixing

cvanderaa · Nov 19, 2018 · 13ed39f · 13ed39f
1 parent 950a406
commit 13ed39f
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/graph2bitmap.R b/R/graph2bitmap.R
@@ -63,7 +63,7 @@ graph2bitmap = function(x = NULL, file = "Rplot", fun = NULL, type = c("PNG","JP
     stop("base R plots cannot be passed as objects, use ggplot2 or lattice plots instead")
   myplot = if (is.null(fun)) function(pl = p) print(pl) else fun
 
-  if(options()$device == FALSE){
+  if(options()$device != FALSE){
     plotsize = dev.size()
   } else {
     plotsize = c(7,5) # default device size: 10 inch x 10 inch

diff --git a/R/graph2office.R b/R/graph2office.R
@@ -96,7 +96,7 @@ graph2office = function(x = NULL, file = "Rplot", fun = NULL, type = c("PPT","DO
   } 
 
   ### 2. Prepare the plotting region and the plot apsect
-  if(options()$device == FALSE){
+  if(options()$device != FALSE){
     plotsize = dev.size()
   } else {
     plotsize = c(7,5) # default device size: 10 inch x 10 inch

diff --git a/R/graph2vector.R b/R/graph2vector.R
@@ -68,7 +68,7 @@ graph2vector = function(x = NULL, file = "Rplot", fun = NULL, type = "SVG",
     stop("base R plots cannot be passed as objects, use ggplot2 or lattice plots instead")
   myplot = if (is.null(fun)) function(pl = p) print(pl) else fun
 
-  if(options()$device == FALSE){
+  if(options()$device != FALSE){
     plotsize = dev.size()
   } else {
     plotsize = c(7,5) # default device size: 10 inch x 10 inch