[Quantmod-commits] r626 - pkg/R

[noreply at r-forge.r-project.org]

Author: bodanker
Date: 2014-12-14 15:40:31 +0100 (Sun, 14 Dec 2014)
New Revision: 626

Modified:
   pkg/R/getSymbols.R
Log:
- Minor fix to getSymbols.warning message.
- Use hasArg() to check for adjust argument.


Modified: pkg/R/getSymbols.R
===================================================================
--- pkg/R/getSymbols.R	2014-12-13 01:12:15 UTC (rev 625)
+++ pkg/R/getSymbols.R	2014-12-14 14:40:31 UTC (rev 626)
@@ -20,7 +20,7 @@
                 'default to use auto.assign=FALSE. getOption("getSymbols.env") and \n',
                 'getOptions("getSymbols.auto.assign") are now checked for alternate defaults\n\n',
                 'This message is shown once per session and may be disabled by setting \n',
-                'options("getSymbols.warning4.0"=FALSE). See ?getSymbol for more details'))
+                'options("getSymbols.warning4.0"=FALSE). See ?getSymbols for more details.'))
         options("getSymbols.warning4.0"=FALSE) 
       }
       importDefaults("getSymbols")
@@ -225,7 +225,7 @@
         # import all named elements that are NON formals
         assign(var, list(...)[[var]], this.env)
      }
-     if(!exists("adjust", environment(), inherits=FALSE))
+     if(!hasArg(adjust))
        adjust <- FALSE
 
      default.return.class <- return.class
@@ -312,7 +312,7 @@
             # import all named elements that are NON formals
             assign(var, list(...)[[var]], this.env)
         }
-        if(!exists("adjust", environment(), inherits=FALSE))
+        if(!hasArg(adjust))
             adjust <- FALSE
         
         default.return.class <- return.class