[Picante-commits] r136 - pkg/R

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

Author: pdc
Date: 2008-07-16 00:11:18 +0200 (Wed, 16 Jul 2008)
New Revision: 136

Modified:
   pkg/R/pic.circular.R
Log:
if names are names(data) == NULL issue warning and assume data is properly ordered

Modified: pkg/R/pic.circular.R
===================================================================
--- pkg/R/pic.circular.R	2008-07-15 06:52:15 UTC (rev 135)
+++ pkg/R/pic.circular.R	2008-07-15 22:11:18 UTC (rev 136)
@@ -44,7 +44,7 @@
 					rotation = 'counter', zero = 0, type = 'angles', 
 					template = 'none'
 				)
-	if (all(names(x) %in% phy$tip.label)) {
+	if (!is.null(names(x)) & all(names(x) %in% phy$tip.label)) {
 		phenotype[1:nb.tip] <- x[phy$tip.label]
 	} else {
 		phenotype[1:nb.tip] <- x