R/reverse-scales.R

In coolbutuseless/ggreverse: Creates Ggplot2 Code from a Ggplot2 object

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#' Convert plot \code{scales} into code to create them
#'
#' @param p ggplot2 plot object
#'
#' @return character string "scales_XXX(...)"
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
reverse_scales <- function(p) {
  scales <- p$scales

  if (p$scales$n() > 0) {
    warning("No handling for 'scales'")
  }

  return(NULL)
}