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

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

Author: gsee
Date: 2012-09-16 22:26:12 +0200 (Sun, 16 Sep 2012)
New Revision: 1191

Modified:
   pkg/FinancialInstrument/R/CompareInstrumentFiles.R
Log:
 .instrument env was not being restored properly when calling CompareInstrumentFiles with only one argument.

Modified: pkg/FinancialInstrument/R/CompareInstrumentFiles.R
===================================================================
--- pkg/FinancialInstrument/R/CompareInstrumentFiles.R	2012-09-16 14:44:45 UTC (rev 1190)
+++ pkg/FinancialInstrument/R/CompareInstrumentFiles.R	2012-09-16 20:26:12 UTC (rev 1191)
@@ -52,9 +52,9 @@
         force(file2)
         reloadInstruments(file2)
         new <- as.list(FinancialInstrument:::.instrument, all.names=TRUE)
-        #restore user's instrument environment
-        reloadInstruments(bak)
     } else new <- bak
+    #restore user's instrument environment
+    reloadInstruments(bak)
     new.instruments <- names(new)[!names(new) %in% names(orig)]
     removed.instruments <- names(orig)[!names(orig) %in% names(new)]
     lni <- length(new.instruments)