@@ -2,7 +2,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.13.4

+Version: 1.13.4.991

 Authors@R: c(

 	   person("Guangchuang", "Yu",     email = "guangchuangyu@gmail.com", role = c("aut", "cre", "cph"), comment = c(ORCID = "0000-0002-6485-8781")),

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

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

-# ggtree 1.13.4

+# ggtree 1.13.4.991

++ enable additional parameters passed to `geom_rootedge` (2018-09-13, Thu)

+  - <https://github.com/GuangchuangYu/ggtree/issues/195>

 + `facet_labeller` to label panels of `facet_plot` output (2018-09-10, Mon)

   - <https://groups.google.com/forum/?utm_medium=email&utm_source=footer#!msg/bioc-ggtree/nAl3bNswxQM/crBwKtS3BAAJ>

@@ -3,10 +3,11 @@

 ##'

 ##' @title geom_rootedge

 ##' @param rootedge length of rootedge; use phylo$root.edge if rootedge = NULL (by default).

+##' @param ... additional parameters

 ##' @return ggplot layer

 ##' @export

 ##' @author Guangchuang Yu

-geom_rootedge <- function(rootedge = NULL) {

+geom_rootedge <- function(rootedge = NULL, ...) {

     mapping <- aes_(x = ~x, y = ~y, xend = ~x, yend = ~y,

                     branch.length = ~branch.length,

                     node = ~node, parent = ~parent)

@@ -17,7 +18,7 @@ geom_rootedge <- function(rootedge = NULL) {

         geom = "segment",

         position = "identity",

         show.legend = NA,

-        params = list(rootedge = rootedge),

+        params = list(rootedge = rootedge, ...),

         check.aes = FALSE

     )

@@ -4,10 +4,12 @@

 \alias{geom_rootedge}

 \title{geom_rootedge}

 \usage{

-geom_rootedge(rootedge = NULL)

+geom_rootedge(rootedge = NULL, ...)

 }

 \arguments{

 \item{rootedge}{length of rootedge; use phylo$root.edge if rootedge = NULL (by default).}

+

+\item{...}{additional parameters}

 }

 \value{

 ggplot layer