if (FALSE) {
## load packages
library(duckspatial)
library(sf)
# read data
argentina_sf <- st_read(system.file("spatial/argentina.geojson", package = "duckspatial"))
# input as sf, and output as sf
env <- ddbs_envelope(x = argentina_sf, by_feature = TRUE)
# create a duckdb database in memory (with spatial extension)
conn <- ddbs_create_conn(dbdir = "memory")
# store in duckdb
ddbs_write_vector(conn, argentina_sf, "argentina")
# envelope for each feature
env <- ddbs_envelope("argentina", conn, by_feature = TRUE)
# single envelope for entire dataset
env_all <- ddbs_envelope("argentina", conn, by_feature = FALSE)
# create a new table with envelopes
ddbs_envelope("argentina", conn, name = "argentina_bbox", by_feature = TRUE)
}
Run the code above in your browser using DataLab