🚑 Fix argument omission

NONONOexe · NONONOexe · commit 0966795baaa9 · 2025-02-08T13:12:17.000+09:00
diff --git a/R/fetch-roads.R b/R/fetch-roads.R
@@ -57,7 +57,7 @@ fetch_roads.matrix <- function(x, crop = FALSE, ...) {
 #' @export
 fetch_roads.sfc_POINT <- function(x, radius = 15, crop = FALSE, ...) {
   coord <- sf::st_coordinates(x)
-  fetch_roads(x = coord[1], y = coord[2], radius = radius, ...)
+  fetch_roads(x = coord[1], y = coord[2], radius = radius, crop = crop, ...)
 }
 
 #' @rdname fetch_roads

Original file line number	Diff line number	Diff line change
`@@ -57,7 +57,7 @@ fetch_roads.matrix <- function(x, crop = FALSE, ...) {`
`57`	`57`	`#' @export`
`58`	`58`	`fetch_roads.sfc_POINT <- function(x, radius = 15, crop = FALSE, ...) {`
`59`	`59`	`coord <- sf::st_coordinates(x)`
`60`		`- fetch_roads(x = coord[1], y = coord[2], radius = radius, ...)`
	`60`	`+ fetch_roads(x = coord[1], y = coord[2], radius = radius, crop = crop, ...)`
`61`	`61`	`}`
`62`	`62`
`63`	`63`	`#' @rdname fetch_roads`