@@ -1,7 +1,7 @@

 Package: ggtree

 Type: Package

 Title: an R package for visualization and annotation of phylogenetic trees with their covariates and other associated data

-Version: 1.7.7

+Version: 1.7.8

 Authors@R: c(

 	   person("Guangchuang", "Yu", email = "guangchuangyu@gmail.com", role = c("aut", "cre", "cph")),

 	   person("Tommy Tsan-Yuk", "Lam", email = "tylam.tommy@gmail.com", rol = c("aut", "ths")),

@@ -3,7 +3,6 @@

 S3method(as.binary,phylo)

 S3method(as.data.frame,phylo)

 S3method(as.data.frame,treedata)

-S3method(fortify,apeBootstrap)

 S3method(fortify,beast)

 S3method(fortify,codeml)

 S3method(fortify,codeml_mlc)

@@ -19,7 +18,6 @@ S3method(fortify,phylo4)

 S3method(fortify,phylo4d)

 S3method(fortify,phyloseq)

 S3method(fortify,r8s)

-S3method(fortify,raxml)

 S3method(fortify,treedata)

 S3method(identify,gg)

 S3method(print,beastList)

@@ -1,3 +1,7 @@

+CHANGES IN VERSION 1.7.8

+------------------------

+ o remove apeBootstrap and raxml object support as they were removed from treeio <2017-02-28, Tue>

+

 CHANGES IN VERSION 1.7.7

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

  o supports parse="emoji" in geom_cladelabel, geom_text2, geom_label2, geom_tiplab, geom_tiplab2 <2017-02-16, Thu>

@@ -566,18 +566,18 @@ as.data.frame.phylo_ <- function(x, layout="rectangular",

 ## }

-##' @method fortify raxml

-##' @export

-fortify.raxml <- function(model, data, layout= "rectangular",

-                          ladderize=TRUE, right=FALSE, mrsd=NULL, ...) {

-    df <- fortify(get.tree(model), layout=layout, ladderize=ladderize, right=right, mrsd=mrsd, ...)

-    df <- merge(df, model@bootstrap, by.x="node", by.y="node", all.x=TRUE)

-    append_extraInfo(df, model)

-}

+## ##' @method fortify raxml

+## ##' @export

+## fortify.raxml <- function(model, data, layout= "rectangular",

+##                           ladderize=TRUE, right=FALSE, mrsd=NULL, ...) {

+##     df <- fortify(get.tree(model), layout=layout, ladderize=ladderize, right=right, mrsd=mrsd, ...)

+##     df <- merge(df, model@bootstrap, by.x="node", by.y="node", all.x=TRUE)

+##     append_extraInfo(df, model)

+## }

-##' @method fortify apeBootstrap

-##' @export

-fortify.apeBootstrap <- fortify.raxml

+## ##' @method fortify apeBootstrap

+## ##' @export

+## fortify.apeBootstrap <- fortify.raxml

 ##' @method fortify multiPhylo

@@ -60,12 +60,12 @@ setMethod("gzoom", signature(object="ggtree"),

           })

-##' @rdname gzoom-methods

-##' @exportMethod gzoom

-setMethod("gzoom", signature(object="apeBootstrap"),

-          function(object, focus, subtree=FALSE, widths=c(.3, .7)) {

-              gzoom.phylo(get.tree(object), focus, subtree, widths)

-          })

+## ##' @rdname gzoom-methods

+## ##' @exportMethod gzoom

+## setMethod("gzoom", signature(object="apeBootstrap"),

+##           function(object, focus, subtree=FALSE, widths=c(.3, .7)) {

+##               gzoom.phylo(get.tree(object), focus, subtree, widths)

+##           })

 ##' zoom selected subtree

@@ -8,27 +8,27 @@ setMethod("reroot", signature(object="beast"),

               node_map <- attr(object@phylo, "node_map")

               idx <- match(object@stats$node, node_map[,1])

               object@stats$node <- node_map[idx, 2]

-              

+

               return(object)

           })

-##' @rdname reroot-methods

-##' @exportMethod reroot

-setMethod("reroot", signature(object="raxml"),

-          function(object, node, ...) {

-              object@phylo <- reroot(object@phylo, node, ...)

+## ##' @rdname reroot-methods

+## ##' @exportMethod reroot

+## setMethod("reroot", signature(object="raxml"),

+##           function(object, node, ...) {

+##               object@phylo <- reroot(object@phylo, node, ...)

-              node_map <- attr(object@phylo, "node_map")

-              idx <- match(object@bootstrap$node, node_map[,1])

-              object@bootstrap$node <- node_map[idx, 2]

-              

-              return(object)

-          })

+##               node_map <- attr(object@phylo, "node_map")

+##               idx <- match(object@bootstrap$node, node_map[,1])

+##               object@bootstrap$node <- node_map[idx, 2]

+

+##               return(object)

+##           })

 ##' reroot a tree

 ##'

-##' 

+##'

 ##' @rdname reroot-methods

 ##' @exportMethod reroot

 setMethod("reroot", signature(object="phylo"),

@@ -38,7 +38,7 @@ setMethod("reroot", signature(object="phylo"),

               ## @importFrom phytools reroot

               phytools <- "phytools"

               require(phytools, character.only = TRUE)

-              

+

               phytools_reroot <- eval(parse(text="phytools::reroot"))

               tree <- phytools_reroot(object, node, pos)

@@ -2,7 +2,7 @@

 ggtree: an R package for visualization and annotation of phylogenetic trees with their covariates and other associated data

 ===========================================================================================================================

-[![releaseVersion](https://img.shields.io/badge/release%20version-1.6.9-green.svg?style=flat)](https://bioconductor.org/packages/ggtree) [![develVersion](https://img.shields.io/badge/devel%20version-1.7.7-green.svg?style=flat)](https://github.com/GuangchuangYu/ggtree) [![Bioc](http://www.bioconductor.org/shields/years-in-bioc/ggtree.svg)](https://www.bioconductor.org/packages/devel/bioc/html/ggtree.html#since) [![total](https://img.shields.io/badge/downloads-22537/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree) [![month](https://img.shields.io/badge/downloads-1894/month-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree) <img src="logo.png" align="right" />

+[![releaseVersion](https://img.shields.io/badge/release%20version-1.6.9-green.svg?style=flat)](https://bioconductor.org/packages/ggtree) [![develVersion](https://img.shields.io/badge/devel%20version-1.7.8-green.svg?style=flat)](https://github.com/GuangchuangYu/ggtree) [![Bioc](http://www.bioconductor.org/shields/years-in-bioc/ggtree.svg)](https://www.bioconductor.org/packages/devel/bioc/html/ggtree.html#since) [![total](https://img.shields.io/badge/downloads-22537/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree) [![month](https://img.shields.io/badge/downloads-1894/month-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree) <img src="logo.png" align="right" />

 [![Project Status: Active - The project has reached a stable, usable state and is being actively developed.](http://www.repostatus.org/badges/latest/active.svg)](http://www.repostatus.org/#active) [![codecov](https://codecov.io/gh/GuangchuangYu/ggtree/branch/master/graph/badge.svg)](https://codecov.io/gh/GuangchuangYu/ggtree) [![Last-changedate](https://img.shields.io/badge/last%20change-2017--02--28-green.svg)](https://github.com/GuangchuangYu/ggtree/commits/master) [![GitHub forks](https://img.shields.io/github/forks/GuangchuangYu/ggtree.svg)](https://github.com/GuangchuangYu/ggtree/network) [![GitHub stars](https://img.shields.io/github/stars/GuangchuangYu/ggtree.svg)](https://github.com/GuangchuangYu/ggtree/stargazers) [![Awesome](https://cdn.rawgit.com/sindresorhus/awesome/d7305f38d29fed78fa85652e3a63e154dd8e8829/media/badge.svg)](https://awesome-r.com/#awesome-r-graphic-displays)

@@ -3,7 +3,6 @@

 \docType{methods}

 \name{gzoom}

 \alias{gzoom}

-\alias{gzoom,apeBootstrap-method}

 \alias{gzoom,beast-method}

 \alias{gzoom,codeml-method}

 \alias{gzoom,ggtree-method}

@@ -17,9 +16,6 @@ gzoom(object, focus, subtree = FALSE, widths = c(0.3, 0.7), ...)

 \S4method{gzoom}{ggtree}(object, focus, widths = c(0.3, 0.7),

   xmax_adjust = 0)

-\S4method{gzoom}{apeBootstrap}(object, focus, subtree = FALSE,

-  widths = c(0.3, 0.7))

-

 \S4method{gzoom}{beast}(object, focus, subtree = FALSE, widths = c(0.3,

   0.7))

@@ -5,15 +5,12 @@

 \alias{reroot}

 \alias{reroot,beast-method}

 \alias{reroot,phylo-method}

-\alias{reroot,raxml-method}

 \title{reroot method}

 \usage{

 reroot(object, node, ...)

 \S4method{reroot}{beast}(object, node, ...)

-\S4method{reroot}{raxml}(object, node, ...)

-

 \S4method{reroot}{phylo}(object, node, ...)

 }

 \arguments{