Add importDefaults() to getQuote() and yahoo method

Thanks to Ethan Smith for the report. Fixes #291.
joshuaulrich · Nov 7, 2020 · 7db1c42 · 7db1c42
1 parent a8b3fc3
commit 7db1c42
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/getQuote.R b/R/getQuote.R
@@ -6,6 +6,8 @@
 
 `getQuote` <-
 function(Symbols,src='yahoo',what, ...) {
+  importDefaults("getQuote")
+
   Symbols <- unique(unlist(strsplit(Symbols,";")))
   args <- list(Symbols=Symbols,...)
   if(!missing(what))
@@ -24,6 +26,8 @@ function(Symbols,src='yahoo',what, ...) {
 
 `getQuote.yahoo` <-
 function(Symbols,what=standardQuote(),...) {
+  importDefaults("getQuote.yahoo")
+
   length.of.symbols <- length(Symbols)
   if(length.of.symbols > 200) {
     # yahoo only works with 200 symbols or less per call