transform all the sfc columns independently (#4382)

tidyverse · Mar 19, 2021 · 199be05 · 199be05
1 parent be50f53
commit 199be05
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/coord-sf.R b/R/coord-sf.R
@@ -62,7 +62,9 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,
         return(layer_data)
       }
 
-      sf::st_transform(layer_data, params$crs)
+      idx <- vapply(layer_data, inherits, what = "sfc", FUN.VALUE = logical(1L))
+      layer_data[idx] <- lapply(layer_data[idx], sf::st_transform, crs = params$crs)
+      layer_data
     })
   },