R/pvar_get_legend_fun.R

In UUPharmacometrics/PsNR: R package for pharmacometric utilities

# function for getting legend from the plot
#' @export
get_legend <- function(myggplot){
  pdf(NULL) # Workaround for bug in ggplot_gtable causing empty Rplots.pdf to be created
  tmp <- ggplot_gtable(ggplot_build(myggplot))
  leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
  legend <- tmp$grobs[[leg]]
  graphics.off()
  return(legend)
}