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

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

Author: jarioksa
Date: 2013-12-02 18:47:14 +0100 (Mon, 02 Dec 2013)
New Revision: 2794

Modified:
   pkg/permute/DESCRIPTION
   pkg/permute/R/setFoo-methods.R
   pkg/permute/inst/ChangeLog
Log:
revert r2787: did not work

Modified: pkg/permute/DESCRIPTION
===================================================================
--- pkg/permute/DESCRIPTION	2013-12-02 13:38:24 UTC (rev 2793)
+++ pkg/permute/DESCRIPTION	2013-12-02 17:47:14 UTC (rev 2794)
@@ -1,6 +1,6 @@
 Package: permute
 Title: Functions for generating restricted permutations of data
-Version: 0.8-1
+Version: 0.8-0
 Date: $Date$
 Authors at R: c(person(given = "Gavin L.", family = "Simpson",
                     email = "ucfagls at gmail.com",

Modified: pkg/permute/R/setFoo-methods.R
===================================================================
--- pkg/permute/R/setFoo-methods.R	2013-12-02 13:38:24 UTC (rev 2793)
+++ pkg/permute/R/setFoo-methods.R	2013-12-02 17:47:14 UTC (rev 2794)
@@ -143,8 +143,8 @@
 `setBlocks<-.how` <- function(object, value) {
     if (!is.null(value))
         value <- as.factor(value)
+    object["blocks"] <- list(value)
     object[["blocks.name"]] <- deparse(substitute(value))
-    object["blocks"] <- list(value)
     object <- fixupCall(object, "blocks", value)
     object
 }

Modified: pkg/permute/inst/ChangeLog
===================================================================
--- pkg/permute/inst/ChangeLog	2013-12-02 13:38:24 UTC (rev 2793)
+++ pkg/permute/inst/ChangeLog	2013-12-02 17:47:14 UTC (rev 2794)
@@ -2,12 +2,6 @@
 
 permute ChangeLog
 
-Version 0.8-1
-
-	* setBlocks<-: the name of the block must be collected with
-	deparse(substitute()) before it is evaluated with list() or its
-	name will be lost. 
-
 Version 0.8-0
 
 	* Released to CRAN