if (FALSE) {
## load packages
library(duckspatial)
library(sf)
# create a duckdb database in memory (with spatial extension)
conn <- ddbs_create_conn(dbdir = "memory")
## read data
argentina_sf <- st_read(system.file("spatial/argentina.geojson", package = "duckspatial")) |>
st_transform("EPSG:3857")
## store in duckdb
ddbs_write_vector(conn, argentina_sf, "argentina")
## calculate area (returns sf object with area column)
ddbs_area("argentina", conn)
## calculate area with custom column name
ddbs_area("argentina", conn, new_column = "area_sqm")
## create a new table with area calculations
ddbs_area("argentina", conn, name = "argentina_with_area")
## calculate area in a sf object
ddbs_area(argentina_sf)
}
Run the code above in your browser using DataLab