Add translate_string_shape to GeomSf. Fixes #5808

sierrajohnson · sierrajohnson · commit d6aca63396b6 · 2024-08-15T12:03:34.000-07:00
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)
 

Original file line number	Diff line number	Diff line change
`@@ -200,6 +200,9 @@ GeomSf <- ggproto("GeomSf", Geom,`
`200`	`200`	`if (!inherits(coord, "CoordSf")) {`
`201`	`201`	`cli::cli_abort("{.fn {snake_class(self)}} can only be used with {.fn coord_sf}.")`
`202`	`202`	`}`
	`203`	`+ if (is.character(data$shape)) {`
	`204`	`+ data$shape <- translate_shape_string(data$shape)`
	`205`	`+ }`
`203`	`206`
`204`	`207`	`data <- coord$transform(data, panel_params)`
`205`	`208`