recover from S3 mappings

Author: teunbrand

R/layer.R

@@ -200,6 +200,12 @@ layer <- function(geom = NULL, stat = NULL,
 }
 
 validate_mapping <- function(mapping, call = caller_env()) {
+  # Upgrade any old S3 input to new S7 input
+  # TODO: deprecate this after a while
+  if (inherits(mapping, "uneval") && is.list(mapping)) {
+    mapping <- aes(!!!mapping)
+  }
+
   if (!is_mapping(mapping)) {
     msg <- "{.arg mapping} must be created by {.fn aes}."
     # Native pipe have higher precedence than + so any type of gg object can be