if (FALSE) {
library(duckspatial)
library(sf)
conn <- ddbs_create_conn("memory")
nc <- st_read(system.file("shape/nc.shp", package="sf"), quiet = TRUE)
ddbs_register_vector(conn, nc, "nc_arrow_view")
dbGetQuery(conn, "SELECT COUNT(*) FROM nc_arrow_view;")
ddbs_stop_conn(conn, shutdown = TRUE)
}
Run the code above in your browser using DataLab