[Blotter-commits] r604 - pkg/FinancialInstrument/R

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

Author: braverock
Date: 2011-05-19 21:04:14 +0200 (Thu, 19 May 2011)
New Revision: 604

Modified:
   pkg/FinancialInstrument/R/load.instruments.R
Log:
- make verbose and auto.assign into explicit arguments for getSymbols.FI

Modified: pkg/FinancialInstrument/R/load.instruments.R
===================================================================
--- pkg/FinancialInstrument/R/load.instruments.R	2011-05-10 02:51:38 UTC (rev 603)
+++ pkg/FinancialInstrument/R/load.instruments.R	2011-05-19 19:04:14 UTC (rev 604)
@@ -209,6 +209,8 @@
 #' @param return.class only "xts" is currently supported
 #' @param extension file extension, default "rda"
 #' @param date_format format as per the \code{\link{strptime}}, see Details
+#' @param verbose TRUE/FALSE
+#' @param auto.assign TRUE/FALSE
 #' @seealso 
 #' \code{\link{instrument}}
 #' \code{\link{setSymbolLookup.FI}}
@@ -224,7 +226,9 @@
                             dir="",
                             return.class="xts",
                             extension="rda",
-                            date_format=NULL
+                            date_format=NULL,
+							verbose=TRUE,
+							auto.assign=TRUE
                          ) 
 {
     if(is.null(date_format)) date_format<-"%Y.%m.%d"
@@ -237,10 +241,7 @@
     default.return.class <- return.class
     default.dir <- dir
     default.extension <- extension
-    
-    if(missing(verbose)) verbose <- FALSE
-    if(missing(auto.assign)) auto.assign <- TRUE
-    
+       
     for(i in 1:length(Symbols)) {
         return.class <- getSymbolLookup()[[Symbols[[i]]]]$return.class
         return.class <- ifelse(is.null(return.class),default.return.class, return.class)