[Blotter-commits] r1728 - pkg/quantstrat/R

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

Author: bodanker
Date: 2015-12-25 16:27:55 +0100 (Fri, 25 Dec 2015)
New Revision: 1728

Modified:
   pkg/quantstrat/R/paramsets.R
Log:
Write more diagnostics when running paramsets

Output param.combo number when starting to process each parameter
combination. Output same number when finished, so the user can see that
specific parameter combination ran without error and returned results.


Modified: pkg/quantstrat/R/paramsets.R
===================================================================
--- pkg/quantstrat/R/paramsets.R	2015-12-14 13:18:50 UTC (rev 1727)
+++ pkg/quantstrat/R/paramsets.R	2015-12-25 15:27:55 UTC (rev 1728)
@@ -476,6 +476,8 @@
     # now call %dopar%
     results <- fe %dopar%
     {
+        param.combo.num <- rownames(param.combo)
+        print(paste("Processing param.combo", param.combo.num))
         print(param.combo)
 
         # doSEQ and doMC make all environments available to the slave, but
@@ -504,7 +506,7 @@
 
         result <- list()
         result$param.combo <- param.combo
-        result$portfolio.st <- paste(portfolio.st, rownames(param.combo), sep='.')
+        result$portfolio.st <- paste(portfolio.st, param.combo.num, sep='.')
 
         clone.portfolio(portfolio.st, result$portfolio.st)
         clone.orderbook(portfolio.st, result$portfolio.st)
@@ -545,6 +547,10 @@
         result$portfolio <- getPortfolio(result$portfolio.st)
         result$orderbook <- getOrderBook(result$portfolio.st)
 
+        # portfolio name has param.combo rowname in suffix, so
+        # print param.combo number for diagnostics
+        print(paste("Returning results for param.combo", param.combo.num))
+
         return(result)
     }