Merge pull request #314 from juanfonsecaLS1/add-wkt-filter-oe-get

set value of `boundary` if `place` is sf/sfc/bbox

Author: agila5

DESCRIPTION

@@ -19,7 +19,7 @@ Description: Match, download, convert and import Open Street Map data extracts
 License: GPL-3
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Roxygen: list(markdown = TRUE)
 URL: https://docs.ropensci.org/osmextract/, https://github.com/ropensci/osmextract
 BugReports: https://github.com/ropensci/osmextract/issues

NEWS.md

@@ -4,6 +4,7 @@
 
 * The default directory used to store `.osm.pbf` and `.gpkg` files downloaded or created by this package has changed from `tempdir()` to `tools::R_user_dir("osmextract", "data")` ([#302](https://github.com/ropensci/osmextract/issues/302)).  
 * Bump minimum R version to 4.1.0 because that's a requirement for one of our indirect dependencies (i.e. svglite). This also ensures that we can properly use `tools::R_user_dir()` since that function was introduced in R 4.0.0 ([#302](https://github.com/ropensci/osmextract/issues/302)).
+* Updated the behaviour of the `oe_get` function when a `sf/sfc/bbox` is provided as input for `place`. If `boundary` is not provided, it is automatically set to match `place` so only the relevant portion of the extract is processed.
 
 # osmextract 0.5.3
 

R/get.R

@@ -88,7 +88,9 @@
 #'   display a progress bar.
 #' @param boundary An `sf`/`sfc`/`bbox` object that will be used to create a
 #'   spatial filter during the vectortranslate operations. The type of filter
-#'   can be chosen using the argument `boundary_type`.
+#'   can be chosen using the argument `boundary_type`. If `place` is an `sf`/`sfc`
+#'   polygon or a `bbox`, then it will be used as `boundary` if the latter is not
+#'   specified.
 #' @param boundary_type A character vector of length 1 specifying the type of
 #'   spatial filter. The `spat` filter selects only those features that
 #'   intersect a given area, while `clipsrc` also clips the geometries. Check
@@ -262,6 +264,13 @@ oe_get = function(
   file_url = matched_zone[["url"]]
   file_size = matched_zone[["file_size"]]
 
+  # If place is an sf/sfc polygon or bbox, use it as boundary
+  if (is.null(boundary) && (inherits(place, "bbox") || (inherits(place, c("sf", "sfc")) && sf::st_dimension(place) == 2))) {
+    message("Setting boundary = place to geographically subset the output.")
+    message("Use boundary = NULL to import full extract.")
+    boundary = place
+  }
+
   oe_read(
     file_path = file_url,
     layer = layer,