More config stuff.

Author: ldecicco-USGS

R/config.R

@@ -46,8 +46,6 @@ loadConfig = function(filename) {
 #' @importFrom grDevices dev.off
 load_temp_config = function(filename) {
 
-  gsconfig$original.par <- par(no.readonly = TRUE)
-  
   graphTemplate <- yaml.load_file(filename)
 
   if(length(all.equal(gsconfig$original.par, par(no.readonly = TRUE))) > 1){
@@ -107,13 +105,13 @@ config <- function(type, ..., persist=FALSE, custom.config = FALSE){
     globalConfig <- append(globalConfig, list(...))
   }
 
-  if (persist){
-    if (type == "par"){
-      gsconfig$options[names(globalConfig)] <- globalConfig 
-    } else {
-      gsconfig$options[[type]] <- globalConfig
-    }
-  }
+  # if (persist){
+  #   if (type == "par"){
+  #     gsconfig$options[names(globalConfig)] <- globalConfig 
+  #   } else {
+  #     gsconfig$options[[type]] <- globalConfig
+  #   }
+  # }
 
   return(globalConfig)
 }

R/gsplot-class.R

@@ -26,11 +26,11 @@ gsplot.default <- function(...,config.file=NA, theme=NA, frame.plot=TRUE) {
 
   if (!is.na(config.file)){
     load_temp_config(config.file)
-  }
+  } 
 
-  # if(length(all.equal(gsconfig$original.par, par(no.readonly = TRUE))) > 1){
-  #   par(gsconfig$original.par)
-  # }
+  if(length(all.equal(gsconfig$original.par, par(no.readonly = TRUE))) > 1){
+    par(gsconfig$original.par)
+  }
 
   object <- add_new_par(object, 'global')