[Phylobase-commits] r784 - pkg/R

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

Author: francois
Date: 2010-04-12 20:53:49 +0200 (Mon, 12 Apr 2010)
New Revision: 784

Modified:
   pkg/R/readNexus.R
Log:
verbose mode of readNexus also returns character string

Modified: pkg/R/readNexus.R
===================================================================
--- pkg/R/readNexus.R	2010-04-04 17:29:23 UTC (rev 783)
+++ pkg/R/readNexus.R	2010-04-12 18:53:49 UTC (rev 784)
@@ -44,6 +44,8 @@
             incharsstring <- unlist(strsplit(incharsstring$charstring, "\\|"))
             incharsstring <- incharsstring[nzchar(incharsstring)]
 
+            if (!quiet) print(incharsstring)   # display character string if quiet is FALSE
+
             iDtType <- seq(from=1, to=length(incharsstring), by=2)
             iCharStrg <- seq(from=2, to=length(incharsstring), by=2)