transform all the sfc columns independently (tidyverse#4382)

yutannihilation · web-flow · commit 199be05a52e9 · 2021-03-19T23:58:38.000+09:00
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
     })
   },
 

Original file line number	Diff line number	Diff line change
`@@ -62,7 +62,9 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,`
`62`	`62`	`return(layer_data)`
`63`	`63`	`}`
`64`	`64`
`65`		`- sf::st_transform(layer_data, params$crs)`
	`65`	`+ idx <- vapply(layer_data, inherits, what = "sfc", FUN.VALUE = logical(1L))`
	`66`	`+ layer_data[idx] <- lapply(layer_data[idx], sf::st_transform, crs = params$crs)`
	`67`	`+ layer_data`
`66`	`68`	`})`
`67`	`69`	`},`
`68`	`70`