update

Author: GuangchuangYu

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: aplot
 Title: Decorate a 'ggplot' with Associated Information
-Version: 0.2.4
+Version: 0.2.5
 Authors@R: c(
     person(given = "Guangchuang", family = "Yu", email = "guangchuangyu@gmail.com",   role  = c("aut", "cre"), comment = c(ORCID = "0000-0002-6485-8781")),
     person("Shuangbin", "Xu",       email = "xshuangbin@163.com",      role = "ctb", 

R/insertion.R

@@ -118,9 +118,6 @@ insert_bottom <- function(.data, plot, height=1) {
 ##' @importFrom ggplot2 xlab
 ##' @import yulab.utils
 insert_tb <- function(.data, plot, height, side) {
-    
-    if (yulab.utils:::.hi("virusPlot")) return("hi")
-
     side <- match.arg(side, c("top", "bottom"))
     .data <- as.aplot(.data)
     .data$n <- .data$n + 1