Fix mistakenly passed sf::point_on_surface

yutannihilation · yutannihilation · commit 6a280a9f729d · 2018-08-11T16:13:04.000+09:00
diff --git a/R/sf.R b/R/sf.R
@@ -357,7 +357,7 @@ geom_sf_text <- function(mapping = aes(), data = NULL,
       parse = parse,
       check_overlap = check_overlap,
       na.rm = na.rm,
-      fun.geometry = sf::st_point_on_surface,
+      fun.geometry = fun.geometry,
       ...
     )
   )

Original file line number	Diff line number	Diff line change
`@@ -357,7 +357,7 @@ geom_sf_text <- function(mapping = aes(), data = NULL,`
`357`	`357`	`parse = parse,`
`358`	`358`	`check_overlap = check_overlap,`
`359`	`359`	`na.rm = na.rm,`
`360`		`- fun.geometry = sf::st_point_on_surface,`
	`360`	`+ fun.geometry = fun.geometry,`
`361`	`361`	`...`
`362`	`362`	`)`
`363`	`363`	`)`