allow CRAN ggtern to work with geom_sf()

clauswilke · clauswilke · commit 65e2f9e12209 · 2018-09-26T18:04:18.000-05:00
diff --git a/R/sf.R b/R/sf.R
@@ -199,7 +199,7 @@ default_aesthetics <- function(type) {
   }
 }
 
-sf_grob <- function(row, lineend, linejoin, linemitre) {
+sf_grob <- function(row, lineend = "butt", linejoin = "round", linemitre = 10) {
   # Need to extract geometry out of corresponding list column
   geometry <- row$geometry[[1]]
 

Original file line number	Diff line number	Diff line change
`@@ -199,7 +199,7 @@ default_aesthetics <- function(type) {`
`199`	`199`	`}`
`200`	`200`	`}`
`201`	`201`
`202`		`-sf_grob <- function(row, lineend, linejoin, linemitre) {`
	`202`	`+sf_grob <- function(row, lineend = "butt", linejoin = "round", linemitre = 10) {`
`203`	`203`	`# Need to extract geometry out of corresponding list column`
`204`	`204`	`geometry <- row$geometry[[1]]`
`205`	`205`