fallback when constructor call is missing (#6095)

tidyverse · Sep 16, 2024 · d742881 · d742881
1 parent c3dd767
commit d742881
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot-construction.R b/R/plot-construction.R
@@ -196,7 +196,7 @@ new_layer_names <- function(layer, existing) {
   new_name <- layer$name
   if (is.null(new_name)) {
     # Construct a name from the layer's call
-    new_name <- call_name(layer$constructor)
+    new_name <- call_name(layer$constructor) %||% snake_class(layer$geom)
 
     if (new_name %in% existing) {
       names <- c(existing, new_name)