set value of boundary if place is sf/sfc/bbox - #314

devtools::load_all()
#> ℹ Loading osmextract
#> Data (c) OpenStreetMap contributors, ODbL 1.0. https://www.openstreetmap.org/copyright.
#> Check the package website, https://docs.ropensci.org/osmextract/, for more details.
library(sf)
#> Linking to GEOS 3.13.1, GDAL 3.11.4, PROJ 9.7.0; sf_use_s2() is TRUE
library(tmap)

sample_coordinates <- st_point(x = c( 31.221185559514872   , 30.061534928785676 ))

sfc_point <- st_sfc(sample_coordinates,crs = 4326)

buffer <- st_buffer(sfc_point,dist = 1000)
bbox <- st_bbox(buffer)

my_filter <- buffer |> st_as_text()


# Extracting the data using osmextract
osmext_net_buffer <- oe_get_network(buffer, mode = "driving")
#> The input place was matched with Egypt. 
#> The chosen file was already detected in the download directory. Skip downloading.
#> Starting with the vectortranslate operations on the input file!
#> 0...10...20...30...40...50...60...70...80...90...100 - done.
#> Finished the vectortranslate operations on the input file!
#> Reading layer `lines' from data source 
#>   `C:\temp\osmextract\geofabrik_egypt-latest.gpkg' using driver `GPKG'
#> Simple feature collection with 674 features and 14 fields
#> Geometry type: LINESTRING
#> Dimension:     XY
#> Bounding box:  xmin: 31.19957 ymin: 30.03999 xmax: 31.23587 ymax: 30.09277
#> Geodetic CRS:  WGS 84
nrow(osmext_net_buffer)
#> [1] 674

osmext_net_bbox <- oe_get_network(bbox, mode = "driving")
#> The input place was matched with Egypt. 
#> The chosen file was already detected in the download directory. Skip downloading.
#> Starting with the vectortranslate operations on the input file!
#> 0...10...20...30...40...50...60...70...80...90...100 - done.
#> Finished the vectortranslate operations on the input file!
#> Reading layer `lines' from data source 
#>   `C:\temp\osmextract\geofabrik_egypt-latest.gpkg' using driver `GPKG'
#> Simple feature collection with 674 features and 14 fields
#> Geometry type: LINESTRING
#> Dimension:     XY
#> Bounding box:  xmin: 31.19957 ymin: 30.03999 xmax: 31.23587 ymax: 30.09277
#> Geodetic CRS:  WGS 84
nrow(osmext_net_bbox)
#> [1] 674

osmext_net_wkt <- oe_get_network("Egypt", mode = "driving",wkt_filter = my_filter)
#> The input place was matched with: Egypt
#> The chosen file was already detected in the download directory. Skip downloading.
#> Starting with the vectortranslate operations on the input file!
#> 0...10...20...30...40...50...60...70...80...90...100 - done.
#> Finished the vectortranslate operations on the input file!
#> Reading layer `lines' from data source 
#>   `C:\temp\osmextract\geofabrik_egypt-latest.gpkg' using driver `GPKG'
#> Simple feature collection with 447 features and 14 fields
#> Geometry type: LINESTRING
#> Dimension:     XY
#> Bounding box:  xmin: 31.19957 ymin: 30.03999 xmax: 31.23587 ymax: 30.09277
#> Geodetic CRS:  WGS 84
nrow(osmext_net_wkt)
#> [1] 447

## Results of the original code
# nrow(osmext_net_full)
# [1] 1509041


qtm(osmext_net_buffer, col = "green",col_alpha = 0.5)+
  qtm(osmext_net_bbox, col = "red", col_alpha = 0.5)+
  qtm(osmext_net_wkt, col = "blue", col_alpha = 0.5)