wk_wkb.md

library(wk)

(x <- as_wkb("POINT (0 1)"))
#> <wk_wkb[1]>
#> [1] <POINT (0 1)>

# under the hood this is a list() of raw()
unclass(x)
#> [[1]]
#>  [1] 01 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 f0 3f

# ...with basic methods for sf
sf::st_as_sfc(x)
#> Geometry set for 1 feature
#> Geometry type: POINT
#> Dimension:     XY
#> Bounding box:  xmin: 0 ymin: 1 xmax: 0 ymax: 1
#> CRS:           NA
#> POINT (0 1)
sf::st_geometry(x)
#> Geometry set for 1 feature
#> Geometry type: POINT
#> Dimension:     XY
#> Bounding box:  xmin: 0 ymin: 1 xmax: 0 ymax: 1
#> CRS:           NA
#> POINT (0 1)
sf::st_bbox(x)
#> xmin ymin xmax ymax
#>    0    1    0    1

# ...and a wk_handle() method that powers a bunch of operations
wk_handle(x, xy_writer())
#> <wk_xy[1]>
#> [1] (0 1)

# you can assign a CRS and/or mark edges as geodesic
wkb(x, crs = wk_crs_longlat(), geodesic = TRUE)
#> <geodesic wk_wkb[1] with CRS=OGC:CRS84>
#> [1] <POINT (0 1)>

# you can create wkb() vectors using wkb(<list of raw>),
# as_wkb(), and wk_handle(some_object, wkb_writer())
wk_handle(wkt("POINT (0 1)"), wkb_writer())
#> <wk_wkb[1]>
#> [1] <POINT (0 1)>

^{Created on 2022-01-13 by the reprex package (v2.0.1)}