Use EPSG code instead of proj4string "+init=epsg:XXXX" (#3687)

yutannihilation · web-flow · commit d05e437eb3cd · 2019-12-22T16:53:50.000+09:00
diff --git a/R/geom-sf.R b/R/geom-sf.R
@@ -43,7 +43,7 @@
 #' # If not supplied, coord_sf() will take the CRS from the first layer
 #' # and automatically transform all other layers to use that CRS. This
 #' # ensures that all data will correctly line up
-#' nc_3857 <- sf::st_transform(nc, "+init=epsg:3857")
+#' nc_3857 <- sf::st_transform(nc, 3857)
 #' ggplot() +
 #'   geom_sf(data = nc) +
 #'   geom_sf(data = nc_3857, colour = "red", fill = NA)
diff --git a/man/ggsf.Rd b/man/ggsf.Rd
diff --git a/tests/testthat/test-geom-sf.R b/tests/testthat/test-geom-sf.R
@@ -159,7 +159,7 @@ test_that("geom_sf_text() and geom_sf_label() draws correctly", {
   )
 
   # In order to avoid warning, transform to a projected coordinate system
-  nc_3857 <- sf::st_transform(nc, "+init=epsg:3857")
+  nc_3857 <- sf::st_transform(nc, 3857)
 
   expect_doppelganger("Texts for North Carolina",
     ggplot() + geom_sf_text(data = nc_3857, aes(label = NAME))

Original file line number	Diff line number	Diff line change
`@@ -159,7 +159,7 @@ test_that("geom_sf_text() and geom_sf_label() draws correctly", {`
`159`	`159`	`)`
`160`	`160`
`161`	`161`	`# In order to avoid warning, transform to a projected coordinate system`
`162`		`- nc_3857 <- sf::st_transform(nc, "+init=epsg:3857")`
	`162`	`+ nc_3857 <- sf::st_transform(nc, 3857)`
`163`	`163`
`164`	`164`	`expect_doppelganger("Texts for North Carolina",`
`165`	`165`	`ggplot() + geom_sf_text(data = nc_3857, aes(label = NAME))`