[Phylobase-commits] r317 - pkg/R

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

Author: pdc
Date: 2008-12-19 05:43:24 +0100 (Fri, 19 Dec 2008)
New Revision: 317

Modified:
   pkg/R/treePlot.R
Log:
second attempt at fixing class inheritance 

Modified: pkg/R/treePlot.R
===================================================================
--- pkg/R/treePlot.R	2008-12-19 04:41:04 UTC (rev 316)
+++ pkg/R/treePlot.R	2008-12-19 04:43:24 UTC (rev 317)
@@ -19,7 +19,7 @@
 {
     ## TODO three dimensional histogram as example, compute values on full dataset
     ## then generate phylo4d object with summary data and plot
-    if (!inherits('phylo4')) stop('treePlot requires a phylo4 or phylo4d object')
+    if (!inherits(x, 'phylo4')) stop('treePlot requires a phylo4 or phylo4d object')
     if (!isRooted(x)) stop("treePlot function requires a rooted tree.")
     width  <- height <- (1 - margin)  ## TODO: do these have to be hard-coded?
     type   <- match.arg(type)