@@ -2,8 +2,8 @@ has.slot <- treeio:::has.slot

 getNodeNum <- treeio:::getNodeNum

 getRoot <- treeio:::getRoot

 has.field <- treeio:::has.field

-append_extraInfo <- treeio:::append_extraInfo

+#append_extraInfo <- treeio:::append_extraInfo

 get.tree <- treeio::get.tree

 drop.tip <- treeio::drop.tip

 get.fields <- treeio::get.fields

-

+is.tree <- treeio:::is.tree

@@ -339,25 +339,6 @@ extract.treeinfo.jplace <- function(object, layout="rectangular", ladderize=TRUE

 ## }

-is.tree <- function(x) {

-    if (class(x) %in% c("phylo",

-                        "phylo4",

-                        "jplace",

-                        "baseml",

-                        "paml_rst",

-                        "baseml_mlc",

-                        "codeml_mlc",

-                        "codeml",

-                        "hyphy",

-                        "beast",

-                        "phangorn",

-                        "treedata")

-        ) {

-        return(TRUE)

-    }

-    return(FALSE)

-}

-

 color_scale <- function(c1="grey", c2="red", n=100) {