Merge pull request #300 from jiwalker-usgs/persist_config

Adding a persist parameter

Author: Jordan S Read

R/config.R

@@ -31,14 +31,15 @@ loadConfig = function(filename) {
 #'
 #' @param type string of gsplot config object to retrieve
 #' @param ... additional configuration to override what is pulled from config
+#' @param persist logical of whether to persist overrides to config
 #'
 #' @examples
 #' config("par")
 #' 
 #' @importFrom graphics plot.xy
 #' @importFrom graphics par
 #' @export
-config <- function(type, ...){
+config <- function(type, ..., persist=FALSE){
   allowedTypes <- c("par","points","lines","axis","plot",
                     "abline","legend","title","text",
                     "mtext","grid","segments",
@@ -95,5 +96,13 @@ config <- function(type, ...){
     globalConfig <- append(globalConfig, list(...))
   }
 
+  if (persist){
+    if (type == "par"){
+      gsconfig$options[names(globalConfig)] <- globalConfig 
+    } else {
+      gsconfig$options[[type]] <- globalConfig
+    }
+  }
+  
   return(globalConfig)
 }

man/config.Rd

@@ -1,10 +1,22 @@
 context("config")
 
+cleanup <- function() {
+  loadConfig()
+}
+
 test_that("lists and named args are identical", {
   expect_equal(gsplot:::config("par",list("mar"=c(1,2,3,4)))$mar, c(1,2,3,4))
   expect_equal(gsplot:::config("par",mar=c(1,2,3,4))$mar, c(1,2,3,4))
 })
 
 test_that("empty sets on gsplot are ignored",{
   expect_is(gsplot:::config("par"), 'list')
-})
+})
+
+test_that("persisting to config alters environment", {
+  gsplot:::config("par", tcl=0.5, persist=TRUE)
+  gsplot:::config("points", col="blue", persist=TRUE)
+  expect_equal(gsplot:::config("par")$tcl, 0.5)
+  expect_equal(gsplot:::config("points")$col, "blue")
+  cleanup()
+})