⚡ Call data directly from package

NONONOexe · NONONOexe · commit 1677c5072b1b · 2025-02-05T23:11:44.000+09:00
diff --git a/R/fetch-roads.R b/R/fetch-roads.R
@@ -29,7 +29,7 @@ fetch_roads <- function(bbox, crop = TRUE) {
   query <- add_osm_feature(
     opq(bbox),
     key   = "highway",
-    value = data("osm_highway_values", package = "pavement")
+    value = pavement::osm_highway_values
   )
   data <- osmdata_sf(query)
   lines <- data$osm_lines

Original file line number	Diff line number	Diff line change
`@@ -29,7 +29,7 @@ fetch_roads <- function(bbox, crop = TRUE) {`
`29`	`29`	`query <- add_osm_feature(`
`30`	`30`	`opq(bbox),`
`31`	`31`	`key = "highway",`
`32`		`- value = data("osm_highway_values", package = "pavement")`
	`32`	`+ value = pavement::osm_highway_values`
`33`	`33`	`)`
`34`	`34`	`data <- osmdata_sf(query)`
`35`	`35`	`lines <- data$osm_lines`