Ignore 'auto.assign = FALSE' when 'env' is set

The user probably doesn't want 'auto.assign = FALSE' (the default) if they also set 'env' to a non-null value. Warn if they specify both 'auto.assign = FALSE' and 'env' (not null). See #33.
joshuaulrich · Jun 20, 2021 · 052c207 · 052c207
1 parent 541d0fa
commit 052c207
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/R/getDividends.R b/R/getDividends.R
@@ -10,6 +10,10 @@ function(Symbol,from='1970-01-01',to=Sys.Date(),env=parent.frame(),src='yahoo',
     if(exists(Symbol, envir = env, inherits = FALSE)) {
       tmp.symbol <- get(Symbol, envir = env)
     }
+    if(!missing(auto.assign) && !isTRUE(auto.assign) && !is.null(env)) {
+      warning("ignoring 'auto.assign = FALSE' because 'env' is specified")
+    }
+    auto.assign <- TRUE
   }
   if(is.null(env))
     auto.assign <- FALSE

diff --git a/R/getSplits.R b/R/getSplits.R
@@ -12,6 +12,10 @@ function(Symbol,from='1970-01-01',to=Sys.Date(),env=parent.frame(),src='yahoo',
     if(exists(Symbol, envir = env, inherits = FALSE)) {
       tmp.symbol <- get(Symbol, envir = env)
     }
+    if(!missing(auto.assign) && !isTRUE(auto.assign) && !is.null(env)) {
+      warning("ignoring 'auto.assign = FALSE' because 'env' is specified")
+    }
+    auto.assign <- TRUE
   }
   if(is.null(env))
     auto.assign <- FALSE