R/gg_vetting.R

In ggedit: Interactive 'ggplot2' Layer and Theme Aesthetic Editor

#' @title Backcheck what functions created the layers in a ggplot2 plot object
#' @description Validate geoms with their unique attributes
#' @param p gg, compiled ggplot object
#' @param obj data.frame, contains the mapping of layer functions as created in gg_session(),
#' Default: ggedit_opts$get('session_geoms')
#' @return data.frame
#' @export
#' @examples
#' gg_vetting(pList$boxplotWrap)
#' lapply(pList,gg_vetting)
#' @importFrom purrr map_df
#' @importFrom rlang sym '!!'
gg_vetting <- function(p, obj=ggedit_opts$get('session_geoms')) {
  
  purrr::map_df(p$layers, proto_features) %>%
    inner_join(
      obj %>%
        filter(!grepl("^stat", !!rlang::sym('fn'))),
      by = c("position", "geom", "stat")
    )
}