knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-", out.width = "100%", dpi = 300 )
Whereas the wk package provides headers and class definitions for well-known geometry formats, this package uses those headers to interrogate and transform these vectors.
You can install the released version of wkutils from CRAN with:
install.packages("wkutils")
And the development version from GitHub with:
# install.packages("remotes") remotes::install_github("paleolimbot/wkutils")
The gist of the functions in this package:
library(wkutils) wkt_coords("POINT (30 10)") coords_point_translate_wkt(30, 10) wkt_debug("POINT (30 10)") wkt_set_srid("POINT (30 10)", 1234) wkt_set_z("POINT (30 10)", 1234) wkt_meta("POINT (30 10)") wkt_ranges("POINT (30 10)")
The package also contains plot methods for wk::wkb()
and wk::wkt()
vectors. These aren't intended to be high-performance, but are helpful for debugging geometries.
plot(wk::wkt("LINESTRING (1 2, 4 7)")) plot(wk::wkt("POINT (3 4)"), add = T)
Finally, the package contains slightly faster functions to send points, lines, and polygons to a graphics device:
nc_sf <- sf::read_sf(system.file("shape/nc.shp", package = "sf")) nc_wkb <- wk::as_wkb(sf::st_as_binary(nc_sf$geometry)) wkb_plot_new(nc_wkb) wkb_draw_polypath(nc_wkb)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.