From 01f0ac349403797e895f817e2839c9ff5f5ac50b Mon Sep 17 00:00:00 2001 From: Hiroaki Yutani Date: Thu, 4 Mar 2021 01:37:12 +0900 Subject: [PATCH] transform all the sfc columns independently --- 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 }) },