[Vegan-commits] r2653 - in pkg/permute: R inst

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

Author: gsimpson
Date: 2013-11-05 23:46:34 +0100 (Tue, 05 Nov 2013)
New Revision: 2653

Modified:
   pkg/permute/R/Plots.R
   pkg/permute/R/Within.R
   pkg/permute/inst/ChangeLog
Log:
add matched call to returned objects

Modified: pkg/permute/R/Plots.R
===================================================================
--- pkg/permute/R/Plots.R	2013-11-05 22:44:43 UTC (rev 2652)
+++ pkg/permute/R/Plots.R	2013-11-05 22:46:34 UTC (rev 2653)
@@ -3,7 +3,7 @@
     type <- match.arg(type)
     out <- list(strata = strata, type = type, mirror = mirror,
                 ncol = ncol, nrow = nrow,
-                plots.name = deparse(substitute(strata)))
+                plots.name = deparse(substitute(strata)), call = match.call())
     ## keep as list for now
     ##class(out) <- "Plots"
     out

Modified: pkg/permute/R/Within.R
===================================================================
--- pkg/permute/R/Within.R	2013-11-05 22:44:43 UTC (rev 2652)
+++ pkg/permute/R/Within.R	2013-11-05 22:46:34 UTC (rev 2653)
@@ -7,8 +7,8 @@
     else
         type <- match.arg(type)
     out <- list(type = type, constant = constant, mirror = mirror,
-                ncol = ncol, nrow = nrow)
+                ncol = ncol, nrow = nrow, call = match.call())
     ## keep as default list for now
     ##class(out) <- "Within"
-    return(out)
+    out
 }

Modified: pkg/permute/inst/ChangeLog
===================================================================
--- pkg/permute/inst/ChangeLog	2013-11-05 22:44:43 UTC (rev 2652)
+++ pkg/permute/inst/ChangeLog	2013-11-05 22:46:34 UTC (rev 2653)
@@ -14,6 +14,9 @@
 	* numPerms: fixed a bug where `numPerms()` was ignoring Blocks when
 	computing the number of possible permutations.
 
+	* Within, Plots: as with `how()`, the matched call is now returned
+	as part of the list object, allowing desirable `update()` behaviour.
+
 Version 0.7-4
 
 	* Deprecated functions: Completed the deprecation of `permCheck()`