R/fix_gg_labs.R

In rpmartin/lmio: What the Package Does (One Line, Title Case)

#' @title FUNCTION_TITLE
#' @description FUNCTION_DESCRIPTION
#' @param gg PARAM_DESCRIPTION
#' @return OUTPUT_DESCRIPTION
#' @details DETAILS
#' @import ggplot2
#' @import stringr
#' @import scales
#' @examples 
#' \dontrun{
#' if(interactive()){
#'  #EXAMPLE1
#'  }
#' }
#' @rdname fix_gg_labs
#' @export 
fix_gg_labs <- function(gg){
  fixed <- gg+
    labs(title=str_to_title(str_replace_all(gg$labels$title, "_", " ")),
         x=str_to_title(str_replace_all(gg$labels$x, "_", " ")),
         y=str_to_title(str_replace_all(gg$labels$y, "_", " ")),
         colour=str_to_title(str_replace_all(gg$labels$colour, "_", " ")),
         edge_colour=str_to_title(str_replace_all(gg$labels$edge_colour, "_", " "))) 
  return(fixed)
}