fix #4527 (#4530)

clauswilke · web-flow · commit e2b031433b4a · 2021-06-24T10:11:29.000+02:00
diff --git a/NEWS.md b/NEWS.md
@@ -7,6 +7,8 @@
   #4521)
 * Warn when grDevices specific arguments are passed to ragg devices (@thomasp85, 
   #4524)
+* Fix an issue where `coord_sf()` was reporting that it is non-linear
+  even when data is provided in projected coordinates (@clauswilke, #4527)
 
 # ggplot2 3.3.4
 This is a larger patch release fixing a huge number of bugs and introduces a 
diff --git a/R/coord-sf.R b/R/coord-sf.R
@@ -22,7 +22,7 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,
 
     params <- list(
       crs = crs,
-      default_crs = self$default_crs %||% crs
+      default_crs = self$default_crs
     )
     self$params <- params
 

Original file line number	Diff line number	Diff line change
`@@ -22,7 +22,7 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,`
`22`	`22`
`23`	`23`	`params <- list(`
`24`	`24`	`crs = crs,`
`25`		`- default_crs = self$default_crs %\|\|% crs`
	`25`	`+ default_crs = self$default_crs`
`26`	`26`	`)`
`27`	`27`	`self$params <- params`
`28`	`28`