allow geom_sf to accept line parameters (#2826)

NEWS.md

@@ -1,5 +1,8 @@
 # ggplot2 3.0.0.9000
 
+*   `geom_sf()` now respects `lineend`, `linejoin`, and `linemitre` parameters 
+    for lines and polygons (@alistaire47, #2826)
+
 *   `benchplot()` now uses tidy evaluation (@dpseidel, #2699).
 
 *   `fortify()` now displays a more informative error message for

R/sf.R

@@ -151,15 +151,21 @@ GeomSf <- ggproto("GeomSf", Geom,
     stroke = 0.5
   ),
 
-  draw_panel = function(data, panel_params, coord, legend = NULL) {
+  draw_panel = function(data, panel_params, coord, legend = NULL,
+                        lineend = "butt", linejoin = "round", linemitre = 10) {
     if (!inherits(coord, "CoordSf")) {
       stop("geom_sf() must be used with coord_sf()", call. = FALSE)
     }
 
     # Need to refactor this to generate one grob per geometry type
     coord <- coord$transform(data, panel_params)
     grobs <- lapply(1:nrow(data), function(i) {
-      sf_grob(coord[i, , drop = FALSE])
+      sf_grob(
+        coord[i, , drop = FALSE],
+        lineend = lineend,
+        linejoin = linejoin,
+        linemitre = linemitre
+      )
     })
     do.call("gList", grobs)
   },
@@ -186,7 +192,7 @@ default_aesthetics <- function(type) {
   }
 }
 
-sf_grob <- function(row) {
+sf_grob <- function(row, lineend, linejoin, linemitre) {
   # Need to extract geometry out of corresponding list column
   geometry <- row$geometry[[1]]
 
@@ -207,7 +213,9 @@ sf_grob <- function(row) {
       fill = alpha(row$fill, row$alpha),
       lwd = row$size * .pt,
       lty = row$linetype,
-      lineend = "butt"
+      lineend = lineend,
+      linejoin = linejoin,
+      linemitre = linemitre
     )
     sf::st_as_grob(geometry, gp = gp)
   }