R/RecordGgplot.R

In nextpagesoft/hivEstimatesAccuracyReloaded: Improves Accuracy of HIV Estimates in EU/EEA Countries

#' RecordGgplot
#'
#' Description
#'
#' @param plotObj ggplot object
#'
#' @return recorded plot object
#'
#' @examples
#' \dontrun{
#' RecordGgplot(plotObj)
#' }
#'
#' @export
RecordGgplot <- function(plotObj)
{
  pdf(NULL)
  dev.control(displaylist = "enable")
  print(plotObj)
  pl <- recordPlot()
  invisible(dev.off())

  return(pl)
}