[Phylobase-devl] check_phylo4() bug

[Peter Cowan]

A first for me, I found a way to dump core on R.
I was trying to put a phylo4 object together by hand.  Granted this is  
pretty stupid use, but perhaps we should validate before plotting.

require(phylobase)
foo <- new('phylo4')
foo at edge <- rcoal(10)$edge
plot(foo) ## WARNING core dumps on my system

foo doesn't pass check_phylo4()

however if I do:

 > foo at tip.label <- rep('blah', 10)
 > check_phylo4(foo)
[1] TRUE

 > foo
Error in data.frame(species.name, node, ancestor, branch.length,  
node.type) :
   arguments imply differing number of rows: 10, 19
Error in print(as(x, "data.frame")) :
   error in evaluating the argument 'x' in selecting a method for  
function 'print'

and plot(foo) hangs.

Peter