[Blotter-commits] r566 - pkg/blotter/R

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

Author: braverock
Date: 2011-03-02 21:03:33 +0100 (Wed, 02 Mar 2011)
New Revision: 566

Modified:
   pkg/blotter/R/getPos.R
Log:
- remove commented lines, per Josh


Modified: pkg/blotter/R/getPos.R
===================================================================
--- pkg/blotter/R/getPos.R	2011-03-02 19:54:55 UTC (rev 565)
+++ pkg/blotter/R/getPos.R	2011-03-02 20:03:33 UTC (rev 566)
@@ -18,12 +18,8 @@
     # position average cost are returned.
     #if(nrow(PosData)>1) Pos = last(PosData[toDate][,Columns],n=n)
     if(nrow(PosData)>1) {
-#        if(is.timeBased(Date)){
-#            Pos = last(PosData[index(PosData)<Date][,Columns],n=n)
-#        } else {
-            toDate = paste('::', Date, sep="")
-            Pos = last(PosData[toDate][,Columns],n=n)
-#        }
+        toDate = paste('::', Date, sep="")
+        Pos = last(PosData[toDate][,Columns],n=n)
     } else Pos <- PosData[,Columns]
     return(Pos)
 }