@@ -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.9.2

+Version: 1.9.3

 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")),

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

+CHANGES IN VERSION 1.9.3

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

+ o update fortify.jplace to support number of placement (nplace) <2017-07-27, Thu>

+

 CHANGES IN VERSION 1.9.2

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

  o add bg_line and height parameter in msaplot <2017-07-26, Wed>

@@ -371,7 +371,13 @@ fortify.jplace <- function(model, data,

     df <- extract.treeinfo.jplace(model, layout, ladderize, right, mrsd=mrsd, ...)

     place <- get.placements(model, by="best")

-    df <- df %add2% place

+    nplace <- split(place, place$edge_num) %>% lapply(nrow)

+    nplace.df <- data.frame(edgeNum = names(nplace), nplace=unlist(nplace))

+

+    ## df <- merge(df, place, by.x="edgeNum", by.y="edge_num", all.x=TRUE)

+    df <- merge(df, nplace.df, by.x="edgeNum", by.y="edgeNum", all.x=TRUE)

+

+    df$nplace[is.na(df$nplace)] <- 0

     df <- scaleY(model@phylo, df, yscale, layout, ...)