[Quantmod-commits] r613 - pkg/R

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

Author: bodanker
Date: 2014-11-01 16:19:24 +0100 (Sat, 01 Nov 2014)
New Revision: 613

Modified:
   pkg/R/newTA.R
Log:
- attempt to bug #5950 (see how CRAN feels about using `:::`)


Modified: pkg/R/newTA.R
===================================================================
--- pkg/R/newTA.R	2014-10-08 02:12:45 UTC (rev 612)
+++ pkg/R/newTA.R	2014-11-01 15:19:24 UTC (rev 613)
@@ -99,7 +99,9 @@
 
 `skeleton.TA` <- function(on)
 {
-    lchob <- get.current.chob()
+    # need explicit access to quantmod:::get.current.chob()
+    # so the function returned by newTA can access it
+    lchob <- quantmod:::get.current.chob()
     x <- as.matrix(lchob at xdata)
     preFUN  <- ""
     FUN     <- ""
@@ -130,7 +132,9 @@
         lchob at passed.args$TA <- c(TA, chobTA)
         lchob at windows <- lchob at windows + ifelse(chobTA at new, 1, 
             0)
-        chartSeries.chob <- chartSeries.chob
+        # need explicit access to quantmod:::chartSeries.chob
+        # so the function returned by newTA can access it
+        chartSeries.chob <- quantmod:::chartSeries.chob
         do.call('chartSeries.chob',list(lchob))
         invisible(chobTA)
     }