From 199be05a52e9b7d5cd81ba2ebfafa18f7778ca35 Mon Sep 17 00:00:00 2001 From: Hiroaki Yutani Date: Fri, 19 Mar 2021 23:58:38 +0900 Subject: [PATCH] transform all the sfc columns independently (#4382) --- R/coord-sf.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/coord-sf.R b/R/coord-sf.R index 3ab03d9769..0739977116 100644 --- 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 }) },