@@ -84,6 +84,7 @@ export(groupClade)

 export(groupOTU)

 export(gzoom)

 export(inset)

+export(is.ggtree)

 export(mask)

 export(merge_tree)

 export(msaplot)

@@ -1,5 +1,6 @@

 CHANGES IN VERSION 1.7.4

 ------------------------

+ o is.ggtree function to test whether object is produced by ggtree <2016-12-06, Tue>

  o now branch.length can set to feature available in phylo4d@data and yscale is supported for phylo4d object <2016-12-06, Tue>

  o bug fixed of rm.singleton.newick, remove singleton parent instead of singleton <2016-12-01, Thu>

  o reorder phylo to postorder before ladderrize <2016-11-28, Mon>

@@ -1,6 +1,6 @@

 ##' drawing phylogenetic tree from phylo object

 ##'

-##' 

+##'

 ##' @title ggtree

 ##' @param tr phylo object

 ##' @param mapping aes mapping

@@ -43,13 +43,13 @@ ggtree <- function(tr,

                    branch.length  = "branch.length",

                    ndigits        = NULL,

                    ...) {

-    

+

     layout %<>% match.arg(c("rectangular", "slanted", "fan", "circular", "radial", "unrooted"))

     if (is(tr, "r8s") && branch.length == "branch.length") {

         branch.length = "TREE"

     }

-    

+

     if(yscale != "none") {

         ## for 2d tree

         layout <- "slanted"

@@ -76,20 +76,33 @@ ggtree <- function(tr,

     } else {

         multiPhylo <- FALSE

     }

-    

+

     p <- p + geom_tree(layout=layout, multiPhylo=multiPhylo, ...)

     p <- p + theme_tree()

-    

+

     if (layout == "circular" || layout == "radial") {

         p <- layout_circular(p)

         ## refer to: https://github.com/GuangchuangYu/ggtree/issues/6

         ## and also have some space for tree scale (legend)

-        p <- p + ylim(0, NA) 

+        p <- p + ylim(0, NA)

     } else if (layout == "fan") {

         p <- layout_fan(p, open.angle)

     }

+    class(p) <- c("ggtree", class(p))

+

     return(p)

 }

+

+##' test whether input object is produced by ggtree function

+##'

+##'

+##' @title is.ggtree

+##' @param x object

+##' @return TRUE or FALSE

+##' @export

+##' @author guangchuang yu

+is.ggtree <- function(x) inherits(x, 'ggtree')

+

new file mode 100644

@@ -0,0 +1,21 @@

+% Generated by roxygen2: do not edit by hand

+% Please edit documentation in R/ggtree.R

+\name{is.ggtree}

+\alias{is.ggtree}

+\title{is.ggtree}

+\usage{

+is.ggtree(x)

+}

+\arguments{

+\item{x}{object}

+}

+\value{

+TRUE or FALSE

+}

+\description{

+test whether input object is produced by ggtree function

+}

+\author{

+guangchuang yu

+}

+