Add translate_string_shape to GeomSf. Fixes #5808

tidyverse · Aug 15, 2024 · d6aca63 · d6aca63
1 parent c1b6275
commit d6aca63
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/geom-sf.R b/R/geom-sf.R
@@ -200,6 +200,9 @@ GeomSf <- ggproto("GeomSf", Geom,
     if (!inherits(coord, "CoordSf")) {
       cli::cli_abort("{.fn {snake_class(self)}} can only be used with {.fn coord_sf}.")
     }
+    if (is.character(data$shape)) {
+      data$shape <- translate_shape_string(data$shape)
+    }
 
     data <- coord$transform(data, panel_params)