[adegenet-commits] r589 - pkg/R

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

Author: jombart
Date: 2010-03-19 18:15:52 +0100 (Fri, 19 Mar 2010)
New Revision: 589

Modified:
   pkg/R/haploPop.R
Log:
Minor tweak (one msg was displayed even when quiet=TRUE)


Modified: pkg/R/haploPop.R
===================================================================
--- pkg/R/haploPop.R	2010-02-23 16:54:16 UTC (rev 588)
+++ pkg/R/haploPop.R	2010-03-19 17:15:52 UTC (rev 589)
@@ -935,7 +935,7 @@
     obj$call <- match.call()
     attr(obj,"ances") <- ANCES # ancestral genotype
 
-    cat("\nStored haploPop object in 'last.haploPop'\n")
+    if(!quiet) cat("\nStored haploPop object in 'last.haploPop'\n")
     assign("last.haploPop", obj, envir= .GlobalEnv)