[Vegan-commits] r2739 - in pkg/permute: R man

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

Author: gsimpson
Date: 2013-11-21 21:30:04 +0100 (Thu, 21 Nov 2013)
New Revision: 2739

Modified:
   pkg/permute/R/check.R
   pkg/permute/man/check.Rd
Log:
adds argument 'quietly = FALSE' to configure message printing

Modified: pkg/permute/R/check.R
===================================================================
--- pkg/permute/R/check.R	2013-11-21 18:26:38 UTC (rev 2738)
+++ pkg/permute/R/check.R	2013-11-21 20:30:04 UTC (rev 2739)
@@ -1,4 +1,4 @@
-`check` <- function(object, control = how())
+`check` <- function(object, control = how(), quietly = FALSE)
 {
     ## if object is numeric or integer and of length 1,
     ## extend the object
@@ -70,7 +70,8 @@
         setComplete(control) <- TRUE
         setNperm(control) <- num.pos
         setMaxperm(control) <- num.pos
-        message("'nperm' > set of all permutations; Resetting 'nperm'.")
+        if(!quietly)
+            message("'nperm' > set of all permutations; Resetting 'nperm'.")
     }
 
     ## if number of possible perms < minperm turn on complete enumeration
@@ -78,7 +79,8 @@
         setComplete(control) <- TRUE
         setNperm(control) <- num.pos
         setMaxperm(control) <- num.pos
-        message("Set of permutations < 'minperm'. Generating entire set.")
+        if(!quietly)
+            message("Set of permutations < 'minperm'. Generating entire set.")
     }
 
     ## if complete enumeration, generate all permutations

Modified: pkg/permute/man/check.Rd
===================================================================
--- pkg/permute/man/check.Rd	2013-11-21 18:26:38 UTC (rev 2738)
+++ pkg/permute/man/check.Rd	2013-11-21 20:30:04 UTC (rev 2739)
@@ -11,7 +11,7 @@
   selected permutation design.
 }
 \usage{
-check(object, control = how())
+check(object, control = how(), quietly = FALSE)
 
 \method{summary}{check}(object, \dots)
 }
@@ -22,6 +22,7 @@
     \code{\link{summary.check}} an object of class \code{"check"}.}
   \item{control}{a list of control values describing properties of the
     permutation design, as returned by a call to \code{\link{how}}.}
+  \item{quietly}{logical; should messages by suppressed?}
   \item{\dots}{arguments to other methods.}
 }
 \details{