Browse code

bug fixed

guangchuang yu authored on 23/05/2018 08:10:56
Showing 3 changed files

... ...
@@ -2,7 +2,7 @@ Package: ggtree
2 2
 Type: Package
3 3
 Title: an R package for visualization and annotation of phylogenetic trees with
4 4
     their covariates and other associated data
5
-Version: 1.13.0.003
5
+Version: 1.13.0.004
6 6
 Authors@R: c(
7 7
 	   person("Guangchuang", "Yu",     email = "guangchuangyu@gmail.com", role = c("aut", "cre", "cph"), comment = c(ORCID = "0000-0002-6485-8781")),
8 8
 	   person("Tommy Tsan-Yuk", "Lam", email = "tylam.tommy@gmail.com",   role = c("aut", "ths")),
... ...
@@ -1,6 +1,9 @@
1
-# ggtree 1.13.0.003
1
+# ggtree 1.13.0.004
2 2
 
3
-+ compatible with ggplot2 2.2.1.9000 for `geom_text2(parse="emoji")` (2018-05-23, Wed)
3
++ bug fixed of `gheatmpa` for rowname subsetting is partial match in R
4
+  (2018-05-23, Wed)
5
+  - <https://github.com/GuangchuangYu/ggtree/issues/182>
6
++ compatible with ggplot2 2.2.1.9000 for `geom_text2(parse="emoji")`
4 7
 + typo on vignettes (2018-05-08, Tue)
5 8
   - <https://github.com/GuangchuangYu/ggtree/pull/178>, thanks [@abichat](https://github.com/abichat)
6 9
 + compatible with ggplot2 2.2.1.9000 (2018-05-02, Wed)
... ...
@@ -57,7 +57,11 @@ gheatmap <- function(p, data, offset=0, width=1, low="green", high="red", color=
57 57
     i <- i[!is.na(df$y[i])]
58 58
 
59 59
     lab <- df$label[i]
60
-    dd <- dd[lab, , drop=FALSE]
60
+    ## dd <- dd[lab, , drop=FALSE]
61
+    ## https://github.com/GuangchuangYu/ggtree/issues/182
62
+    dd <- dd[match(lab, rownames(dd)), , drop = FALSE]
63
+
64
+
61 65
     dd$y <- sort(df$y)
62 66
     dd$lab <- lab
63 67
     ## dd <- melt(dd, id=c("lab", "y"))