update

GuangchuangYu · Nov 21, 2017 · 2bbd3a7 · 2bbd3a7
1 parent 332777c
commit 2bbd3a7
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: hexSticker
 Title: Create Hexagon Sticker in R
-Version: 0.4.1
+Version: 0.4.2
 Authors@R: c(person(given = "Guangchuang", family = "Yu",     email = "guangchuangyu@gmail.com",   role = c("aut", "cre")),
              person(given = "Laurent",     family = "Gatto",  email = "lg390@cam.ac.uk",           role = "ctb"),
              person(given = "Johannes",    family = "Rainer", email = "johannes.rainer@eurac.edu", role = "ctb"),

diff --git a/NEWS b/NEWS
@@ -1,3 +1,7 @@
+CHANGES IN VERSION 0.4.2
+------------------------
+ o update code according to the change of geom_subview <2017-11-22, Wed>
+
 CHANGES IN VERSION 0.4.0
 ------------------------
  o remove ggforce dependency <2017-06-19, Mon>
@@ -32,4 +36,4 @@ CHANGES IN VERSION 0.0.2
 CHANGES IN VERSION 0.0.1
 ------------------------
  o initial version based on my script to generate ggtree sticker <2017-03-13, Mon>
-   + https://github.com/jotsetung/BioC-stickers/blob/master/ggtree/ggtree_sticker.R
+   + https://github.com/jotsetung/BioC-stickers/blob/master/ggtree/ggtree_sticker.R
diff --git a/R/sticker.R b/R/sticker.R
@@ -53,11 +53,11 @@ sticker <- function(subplot, s_x=.8, s_y=.75, s_width=.4, s_height=.5,
         d <- data.frame(x=s_x, y=s_y, image=subplot)
         sticker <- hex + geom_image(aes_(x=~x, y=~y, image=~image), d, size=s_width)
     } else {
-        sticker <- hex + geom_subview(subplot, x=s_x, y=s_y, width=s_width, height=s_height)
+        sticker <- hex + geom_subview(subview=subplot, x=s_x, y=s_y, width=s_width, height=s_height)
     }
 
     if(spotlight)
-        sticker <- sticker + geom_subview(spotlight(l_alpha), x=l_x, y=l_y, width=l_width, height=l_height)
+        sticker <- sticker + geom_subview(subview=spotlight(l_alpha), x=l_x, y=l_y, width=l_width, height=l_height)
 
     sticker <- sticker + geom_pkgname(package, p_x, p_y, p_color, p_family, p_size)