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

 Package: ggtree

 Type: Package

 Title: an R package for visualization of tree and annotation data

-Version: 3.5.0.901

+Version: 3.5.0.902

 Authors@R: c(

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

             comment = c(ORCID = "0000-0002-6485-8781")),

@@ -25,8 +25,9 @@

 -->

-# ggtree 3.5.0.901

+# ggtree 3.5.0.902

++ add outline to nodepies (2022-06-20, Mon, #506)

 + `update_edge_hclust()` to adjust edge length of a `phylo` object converted from a `hclust` object via `ape::as.phylo()` (2022-06-05, Sun)

 + new 'slanted' layout for `branch.length = 'none'` (2022-04-29, Fri, #497)

     - only works for Cartesian coordination, that means it will not work for `layout = 'radial'`

@@ -116,6 +116,8 @@ nodebar <- function(data, cols, color, alpha=1, position="stack") {

 ##' @param cols columns of the data.frame that store the stats

 ##' @param color set color of bars

 ##' @param alpha set transparency of the charts

+##' @param outline.color color of outline

+##' @param outline.size size of outline

 ##' @return list of ggplot objects

 ##' @export

 ##' @author Guangchuang Yu

@@ -1352,7 +1352,7 @@ update_edge_hclust <- function(tr, h) {

   len <- numeric(max(tr$edge))

   len[nodes] <- h$height

   pn <- ev[nodes]

-  pn[pn == 0] <- rootnode(tr)

+  pn[pn == 0] <- treeio::rootnode(tr)

   len[nodes] <- len[pn] - len[nodes]

   len[1:Ntip(tr)] <- max(h$height)/10

@@ -4,7 +4,14 @@

 \alias{nodepie}

 \title{nodepie}

 \usage{

-nodepie(data, cols, color, alpha = 1)

+nodepie(

+  data,

+  cols,

+  color,

+  alpha = 1,

+  outline.color = "transparent",

+  outline.size = 0

+)

 }

 \arguments{

 \item{data}{a data.frame of stats with an additional column of node number named "node"}

@@ -14,6 +21,10 @@ nodepie(data, cols, color, alpha = 1)

 \item{color}{set color of bars}

 \item{alpha}{set transparency of the charts}

+

+\item{outline.color}{color of outline}

+

+\item{outline.size}{size of outline}

 }

 \value{

 list of ggplot objects