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

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

Author: gsee
Date: 2011-11-17 17:42:07 +0100 (Thu, 17 Nov 2011)
New Revision: 851

Modified:
   pkg/FinancialInstrument/R/redenominate.R
Log:
 - Thanks to Markus Douglas, Jr. for pointing out the colnames bug that was patched in previous commit (850)
 - only tiny changes made, as the real reason for this commit is to give Markus credit ;-)


Modified: pkg/FinancialInstrument/R/redenominate.R
===================================================================
--- pkg/FinancialInstrument/R/redenominate.R	2011-11-17 16:28:53 UTC (rev 850)
+++ pkg/FinancialInstrument/R/redenominate.R	2011-11-17 16:42:07 UTC (rev 851)
@@ -368,8 +368,7 @@
     x <- ff[,(NCOL(rate)+1):NCOL(ff)]
 
     tmpenv <- new.env()
-    #rsym <- strsplit(colnames(rate)[1],'\\.')[[1]][1]        
-    rsym <- new_base #paste(new_base, old_base, sep="")
+    rsym <- new_base
     assign(rsym,rate,pos=tmpenv)
     assign(Symbol,x,pos=tmpenv)