crs_epsg {crsmeta}

Extract 'EPSG' value

Description

Obtain the 'EPSG' string from an object, if it has one. Supported inputs include sf.

Usage

crs_epsg(x, ...)

Arguments

x

object with 'EPSG' value

...

ignored

Value

integer (or NA)

References

EPSG website

See Also

crs_wkt2() crs_proj() crs_input()

Examples

crs_epsg(sfx)
x <- sfx
attr(x$geom, "crs")$epsg <- NA ## oh no we lost it
crs_epsg(x)

crs_epsg(sfx_new) ## NA, doesn't exist now