[Blotter-commits] r911 - in pkg: . FinancialInstrument/R

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

Author: gsee
Date: 2012-01-15 05:56:27 +0100 (Sun, 15 Jan 2012)
New Revision: 911

Modified:
   pkg/
   pkg/FinancialInstrument/R/load.instruments.R
Log:
 speed up check to see if no data was found


Property changes on: pkg
___________________________________________________________________
Added: svn:ignore
   + .Rproj.user
.Rhistory
.RData


Modified: pkg/FinancialInstrument/R/load.instruments.R
===================================================================
--- pkg/FinancialInstrument/R/load.instruments.R	2012-01-12 21:04:33 UTC (rev 910)
+++ pkg/FinancialInstrument/R/load.instruments.R	2012-01-15 04:56:27 UTC (rev 911)
@@ -377,7 +377,7 @@
                                 get(local.name)
                             }
                         })
-                        if (verbose) cat('rbinding data ... \n')
+                        if (verbose) cat('rbinding data ... ')
                         fr <- do.call.rbind(dl)
                     },
                     common = , {
@@ -403,7 +403,7 @@
         }
     }) #end loop over Symbols
 
-    if (is.null(unlist(datl))) {
+    if (length(Filter("+", lapply(datl, length))) == 0) {
         warning("No data found.")
         return(NULL) 
     }