R/print-ggvita.R

In helloicyvodka/ggVITA: An R package for VIsualization and annotation of Tree Alignment.

#' Print ggvita objects
#'@export

print.ggvita <- function(i,show.legend=T){

  p <-
    cowplot::plot_grid(
      i$plot$ggS+ggplot2::coord_flip()+ggplot2::scale_x_reverse(),
      i$plot$ggT+ggplot2::coord_flip(),
      ncol=1)


  if(show.legend==T){
    pp <- cowplot::plot_grid(p,i$plot$Legend,nrow=1,rel_widths = c(10,1))
  }else{
    pp <- p
  }
  print(pp)

}