Title: | Delayed Read for 'GDAL' Vector Data Sources |
---|---|
Description: | Lazy read for drawings. A 'dplyr' back end for data sources supported by 'GDAL' vector drivers, that allows working with local or remote sources as if they are in-memory data frames. Basic features works with any drawing format ('GDAL vector data source') supported by the 'sf' package. |
Authors: | Michael Sumner [aut, cre] |
Maintainer: | Michael Sumner <[email protected]> |
License: | GPL-3 |
Version: | 0.1.9001 |
Built: | 2024-12-05 04:12:15 UTC |
Source: | https://github.com/hypertidy/lazysf |
dbConnect for drawings that may be read by package sf
## S4 method for signature 'SFSQLDriver' dbConnect(drv, DSN = "", readonly = TRUE, ...)
## S4 method for signature 'SFSQLDriver' dbConnect(drv, DSN = "", readonly = TRUE, ...)
drv |
SFSQLDriver created by |
DSN |
data source name, may be a file, or folder path, database connection string, or URL |
readonly |
open in readonly mode ( |
... |
ignored |
The 'OGRSQL' available is documented with GDAL: https://gdal.org/user/ogr_sql_dialect.html
afile <- system.file("gpkg/nc.gpkg", package = "sf", mustWork = TRUE) db <- dbConnect(SFSQL(), afile) dbSendQuery(db, 'SELECT * FROM "nc.gpkg"')
afile <- system.file("gpkg/nc.gpkg", package = "sf", mustWork = TRUE) db <- dbConnect(SFSQL(), afile) dbSendQuery(db, 'SELECT * FROM "nc.gpkg"')
A lazy data frame for GDAL drawings ('vector data sources'). lazysf is DBI
compatible and designed to work with dplyr. It should work with any data source
(file, url, connection string) readable by the sf package function sf_read
.
lazysf(x, layer, ...) ## S3 method for class 'character' lazysf(x, layer, ..., query = NA) ## S3 method for class 'SFSQLConnection' lazysf(x, layer, ..., query = NA)
lazysf(x, layer, ...) ## S3 method for class 'character' lazysf(x, layer, ..., query = NA) ## S3 method for class 'SFSQLConnection' lazysf(x, layer, ..., query = NA)
x |
the data source name (file path, url, or database connection string
|
layer |
layer name (varies by driver, may be a file name without
extension); in case |
... |
ignored |
query |
SQL query to pass in directly |
Lazy means that the usual behaviour of reading the entirety of a data source into memory is avoided. Printing the output results in a preview query being run and displayed (the top few rows of data).
The output of lazysf()
is a 'tbl_SFSQLConnectionthat extends
tbl_dbi' and
may be used with functions and workflows in the normal DBI way, see SFSQL()
for
the lazysf DBI support.
The kind of q uery that may be run will depend on the type of format, see the list on the GDAL vector drivers page. For some details see the GDALSQL vignette.
When dplyr is attached the lazy data frame can be used with the usual verbs
verbs (filter, select, distinct, mutate, transmute, arrange, left_join, pull,
collect etc.). To see the result as a SQL query rather than a data frame
preview use dplyr::show_query()
.
To obtain an in memory data frame use an explict collect()
or st_as_sf()
.
A call to collect()
is triggered by st_as_sf()
and will add the sf class
to the output. A result may not contain a geometry column, and so cannot be
convert to an sf data frame. Using collect()
on its own returns an
unclassed data.frame and may include a classed sfc
geometry column.
As well as collect()
it's also possible to use tibble::as_tibble()
or
as.data.frame()
or pull()
which all force computation and retrieve the
result.
a 'tbl_SFSQLConnection', extending 'tbl_lazy' (something that works
with dplyr verbs, and only shows a preview until you commit the result via
collect()
) see Details
# online sources can work geojson <- file.path("https://raw.githubusercontent.com/SymbolixAU", "geojsonsf/master/inst/examples/geo_melbourne.geojson") lazysf(geojson) ## normal file stuff ## (Geopackage is an actual database so with SELECT we must be explicit re geom-column) f <- system.file("gpkg/nc.gpkg", package = "sf", mustWork = TRUE) lazysf(f) lazysf(f, query = "SELECT AREA, FIPS, geom FROM \"nc.gpkg\" WHERE AREA < 0.1") lazysf(f, layer = "nc.gpkg") %>% dplyr::select(AREA, FIPS, geom) %>% dplyr::filter(AREA < 0.1) ## the famous ESRI Shapefile (not an actual database) ## so if we SELECT we must be ex shp <- lazysf(system.file("shape/nc.shp", package = "sf", mustWork = TRUE)) library(dplyr) shp %>% filter(NAME %LIKE% 'A%') %>% mutate(abc = 1.3) %>% select(abc, NAME, `_ogr_geometry_`) %>% arrange(desc(NAME)) #%>% show_query() ## a multi-layer file system.file("extdata/multi.gpkg", package = "lazysf", mustWork = TRUE)
# online sources can work geojson <- file.path("https://raw.githubusercontent.com/SymbolixAU", "geojsonsf/master/inst/examples/geo_melbourne.geojson") lazysf(geojson) ## normal file stuff ## (Geopackage is an actual database so with SELECT we must be explicit re geom-column) f <- system.file("gpkg/nc.gpkg", package = "sf", mustWork = TRUE) lazysf(f) lazysf(f, query = "SELECT AREA, FIPS, geom FROM \"nc.gpkg\" WHERE AREA < 0.1") lazysf(f, layer = "nc.gpkg") %>% dplyr::select(AREA, FIPS, geom) %>% dplyr::filter(AREA < 0.1) ## the famous ESRI Shapefile (not an actual database) ## so if we SELECT we must be ex shp <- lazysf(system.file("shape/nc.shp", package = "sf", mustWork = TRUE)) library(dplyr) shp %>% filter(NAME %LIKE% 'A%') %>% mutate(abc = 1.3) %>% select(abc, NAME, `_ogr_geometry_`) %>% arrange(desc(NAME)) #%>% show_query() ## a multi-layer file system.file("extdata/multi.gpkg", package = "lazysf", mustWork = TRUE)
SFSQL driver, use to dbConnect()
to a data source readable by sf
SFSQL()
SFSQL()
lazysf dbConnect
SFSQL()
SFSQL()
Convert lazysf to an in memory data frame or sf object
## S3 method for class 'tbl_SFSQLConnection' st_as_sf(x, ...) collect(x, ...)
## S3 method for class 'tbl_SFSQLConnection' st_as_sf(x, ...) collect(x, ...)
x |
output of |
... |
passed to |
An object of class function
of length 1.
collect()
retrieves data into a local table, preserving grouping and ordering.
st_as_sf()
retrieves data into a local sf data frame (will succeed only if there is a geometry column of class sfc
)
a data frame from collect()
, sf data frame from st_as_sf()
(only if it contains an sfc
geometry column)
lazysf
f <- system.file("gpkg/nc.gpkg", package = "sf", mustWork = TRUE) lsf <- lazysf(f) %>% dplyr::select(AREA, FIPS, geom) %>% dplyr::filter(AREA < 0.1) st_as_sf(lsf)
f <- system.file("gpkg/nc.gpkg", package = "sf", mustWork = TRUE) lsf <- lazysf(f) %>% dplyr::select(AREA, FIPS, geom) %>% dplyr::filter(AREA < 0.1) st_as_sf(lsf)