Browse code

comment out code

guangchuang yu authored on 08/12/2017 08:02:02
Showing 2 changed files

... ...
@@ -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) {