Small bug fixing

cvanderaa · Nov 19, 2018 · 950a406 · 950a406
1 parent 70fd8de
commit 950a406
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 3 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -5,3 +5,5 @@ cran-comments.md
 ^.git$
 ^export.Rproj$
 ^.*\.Rproj$
+.Rhistory
+.RData
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){
+  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){
+  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){
+  if(options()$device == FALSE){
     plotsize = dev.size()
   } else {
     plotsize = c(7,5) # default device size: 10 inch x 10 inch