Check Coordinate Reference System

It returns st_crs object from sf/Spat* objects.

Usage

crs_check(x = NULL)

Arguments

x

sf/stars/SpatVector/SpatRaster object.

Value

A st_crs or crs object.

See also

Other Helper functions: any_class_args(), clip_ras_ext(), clip_vec_ext(), datamod(), dep_check(), dep_switch(), ext2poly(), get_clip_ext(), is_bbox_within_reference(), is_within_ref(), par_def_q(), reproject_b2r(), reproject_std(), vect_valid_repair()

Author

Insang Song geoissong@gmail.com

Examples

# data
library(sf)
ncpath = system.file("shape/nc.shp", package = "sf")
nc = read_sf(ncpath)
crs_check(nc)
#> Coordinate Reference System:
#>   User input: NAD27 
#>   wkt:
#> GEOGCRS["NAD27",
#>     DATUM["North American Datum 1927",
#>         ELLIPSOID["Clarke 1866",6378206.4,294.978698213898,
#>             LENGTHUNIT["metre",1]]],
#>     PRIMEM["Greenwich",0,
#>         ANGLEUNIT["degree",0.0174532925199433]],
#>     CS[ellipsoidal,2],
#>         AXIS["latitude",north,
#>             ORDER[1],
#>             ANGLEUNIT["degree",0.0174532925199433]],
#>         AXIS["longitude",east,
#>             ORDER[2],
#>             ANGLEUNIT["degree",0.0174532925199433]],
#>     ID["EPSG",4267]]