if (FALSE) { # interactive()
# note we can read in remote data in a variety of vector formats:
countries <-
paste0("/vsicurl/",
"https://github.com/cboettig/duckdbfs/",
"raw/spatial-read/inst/extdata/world.gpkg") |>
open_dataset(format = "sf")
cities <-
paste0("/vsicurl/https://github.com/cboettig/duckdbfs/raw/",
"spatial-read/inst/extdata/metro.fgb") |>
open_dataset(format = "sf")
countries |>
dplyr::filter(iso_a3 == "AUS") |>
spatial_join(cities)
}
Run the code above in your browser using DataLab