... | ... |
@@ -2,8 +2,8 @@ has.slot <- treeio:::has.slot |
2 | 2 |
getNodeNum <- treeio:::getNodeNum |
3 | 3 |
getRoot <- treeio:::getRoot |
4 | 4 |
has.field <- treeio:::has.field |
5 |
-append_extraInfo <- treeio:::append_extraInfo |
|
5 |
+#append_extraInfo <- treeio:::append_extraInfo |
|
6 | 6 |
get.tree <- treeio::get.tree |
7 | 7 |
drop.tip <- treeio::drop.tip |
8 | 8 |
get.fields <- treeio::get.fields |
9 |
- |
|
9 |
+is.tree <- treeio:::is.tree |
... | ... |
@@ -339,25 +339,6 @@ extract.treeinfo.jplace <- function(object, layout="rectangular", ladderize=TRUE |
339 | 339 |
## } |
340 | 340 |
|
341 | 341 |
|
342 |
-is.tree <- function(x) { |
|
343 |
- if (class(x) %in% c("phylo", |
|
344 |
- "phylo4", |
|
345 |
- "jplace", |
|
346 |
- "baseml", |
|
347 |
- "paml_rst", |
|
348 |
- "baseml_mlc", |
|
349 |
- "codeml_mlc", |
|
350 |
- "codeml", |
|
351 |
- "hyphy", |
|
352 |
- "beast", |
|
353 |
- "phangorn", |
|
354 |
- "treedata") |
|
355 |
- ) { |
|
356 |
- return(TRUE) |
|
357 |
- } |
|
358 |
- return(FALSE) |
|
359 |
-} |
|
360 |
- |
|
361 | 342 |
|
362 | 343 |
|
363 | 344 |
color_scale <- function(c1="grey", c2="red", n=100) { |