R/utils-aes.R

Defines functions aes_get_group

# Extract group name from mapping, aes
aes_get_group <- function(mapping){
  group <- NULL
  if(!is.null(mapping)){
    if(!is.null(mapping$group)) group <- rlang::as_label(mapping$group)
  }
  group
}
kassambara/ggpubr documentation built on Feb. 15, 2023, 4:09 a.m.