[Dplr-commits] r900 - in pkg/dplR: . R

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

Author: mvkorpel
Date: 2014-10-27 11:45:30 +0100 (Mon, 27 Oct 2014)
New Revision: 900

Modified:
   pkg/dplR/ChangeLog
   pkg/dplR/DESCRIPTION
   pkg/dplR/R/detrend.R
Log:
In detrend(), updated .export argument of foreach() to match loop body.

This is defensive programming with the aim to ensure that code in the
foreach loop uses the same functions as it would in a normal for loop.


Modified: pkg/dplR/ChangeLog
===================================================================
--- pkg/dplR/ChangeLog	2014-10-16 14:41:00 UTC (rev 899)
+++ pkg/dplR/ChangeLog	2014-10-27 10:45:30 UTC (rev 900)
@@ -46,6 +46,11 @@
 - Bug fix: Argument 'method' was not used for moving correlations.
   Instead, the method used was always "spearman".
 
+File: detrend.R
+---------------
+
+- Updated .export of foreach() to match previous changes to the loop body
+
 File: latexify.R
 ----------------
 

Modified: pkg/dplR/DESCRIPTION
===================================================================
--- pkg/dplR/DESCRIPTION	2014-10-16 14:41:00 UTC (rev 899)
+++ pkg/dplR/DESCRIPTION	2014-10-27 10:45:30 UTC (rev 900)
@@ -3,7 +3,7 @@
 Type: Package
 Title: Dendrochronology Program Library in R
 Version: 1.6.1
-Date: 2014-09-12
+Date: 2014-10-27
 Authors at R: c(person("Andy", "Bunn", role = c("aut", "cph",
         "cre", "trl"), email = "andy.bunn at wwu.edu"), person("Mikko",
         "Korpela", role = c("aut", "trl")), person("Franco", "Biondi",

Modified: pkg/dplR/R/detrend.R
===================================================================
--- pkg/dplR/R/detrend.R	2014-10-16 14:41:00 UTC (rev 899)
+++ pkg/dplR/R/detrend.R	2014-10-27 10:45:30 UTC (rev 900)
@@ -34,9 +34,7 @@
         ## a way to get rid of "no visible binding" NOTE in R CMD check
         rwl.i <- NULL
 
-        exportFun <- c("detrend.series", "is.data.frame",
-                       "row.names<-", "<-", "if")
-
+        exportFun <- c("names<-", "detrend.series")
         out <- foreach::"%dopar%"(foreach::foreach(rwl.i=it.rwl,
                                                    .export=exportFun),
                               {