get class "CRS" of coordinate reference system
proj_crs(proj_type = "cea")crs class object
## By default, the output projection is Equal-Area Scalable Earth (EASE) Global
## Global cylindrical equal-area projection
## See https://epsg.io/54034
proj_crs(proj_type = "cea")
#> Coordinate Reference System:
#> User input: ESRI:54034
#> wkt:
#> PROJCRS["World_Cylindrical_Equal_Area",
#> BASEGEOGCRS["WGS 84",
#> DATUM["World Geodetic System 1984",
#> ELLIPSOID["WGS 84",6378137,298.257223563,
#> LENGTHUNIT["metre",1]]],
#> PRIMEM["Greenwich",0,
#> ANGLEUNIT["Degree",0.0174532925199433]]],
#> CONVERSION["World_Cylindrical_Equal_Area",
#> METHOD["Lambert Cylindrical Equal Area",
#> ID["EPSG",9835]],
#> PARAMETER["Latitude of 1st standard parallel",0,
#> ANGLEUNIT["Degree",0.0174532925199433],
#> ID["EPSG",8823]],
#> PARAMETER["Longitude of natural origin",0,
#> ANGLEUNIT["Degree",0.0174532925199433],
#> ID["EPSG",8802]],
#> PARAMETER["False easting",0,
#> LENGTHUNIT["metre",1],
#> ID["EPSG",8806]],
#> PARAMETER["False northing",0,
#> LENGTHUNIT["metre",1],
#> ID["EPSG",8807]]],
#> CS[Cartesian,2],
#> AXIS["(E)",east,
#> ORDER[1],
#> LENGTHUNIT["metre",1]],
#> AXIS["(N)",north,
#> ORDER[2],
#> LENGTHUNIT["metre",1]],
#> USAGE[
#> SCOPE["Not known."],
#> AREA["World."],
#> BBOX[-90,-180,90,180]],
#> ID["ESRI",54034]]
## Another readily available projection is Antarctic Polar Stereographic
## https://epsg.io/3031
proj_crs(proj_type = "Antarctic")
#> Coordinate Reference System:
#> User input: EPSG:3031
#> wkt:
#> PROJCRS["WGS 84 / Antarctic Polar Stereographic",
#> BASEGEOGCRS["WGS 84",
#> ENSEMBLE["World Geodetic System 1984 ensemble",
#> MEMBER["World Geodetic System 1984 (Transit)"],
#> MEMBER["World Geodetic System 1984 (G730)"],
#> MEMBER["World Geodetic System 1984 (G873)"],
#> MEMBER["World Geodetic System 1984 (G1150)"],
#> MEMBER["World Geodetic System 1984 (G1674)"],
#> MEMBER["World Geodetic System 1984 (G1762)"],
#> MEMBER["World Geodetic System 1984 (G2139)"],
#> MEMBER["World Geodetic System 1984 (G2296)"],
#> ELLIPSOID["WGS 84",6378137,298.257223563,
#> LENGTHUNIT["metre",1]],
#> ENSEMBLEACCURACY[2.0]],
#> PRIMEM["Greenwich",0,
#> ANGLEUNIT["degree",0.0174532925199433]],
#> ID["EPSG",4326]],
#> CONVERSION["Antarctic Polar Stereographic",
#> METHOD["Polar Stereographic (variant B)",
#> ID["EPSG",9829]],
#> PARAMETER["Latitude of standard parallel",-71,
#> ANGLEUNIT["degree",0.0174532925199433],
#> ID["EPSG",8832]],
#> PARAMETER["Longitude of origin",0,
#> ANGLEUNIT["degree",0.0174532925199433],
#> ID["EPSG",8833]],
#> PARAMETER["False easting",0,
#> LENGTHUNIT["metre",1],
#> ID["EPSG",8806]],
#> PARAMETER["False northing",0,
#> LENGTHUNIT["metre",1],
#> ID["EPSG",8807]]],
#> CS[Cartesian,2],
#> AXIS["(E)",north,
#> MERIDIAN[90,
#> ANGLEUNIT["degree",0.0174532925199433]],
#> ORDER[1],
#> LENGTHUNIT["metre",1]],
#> AXIS["(N)",north,
#> MERIDIAN[0,
#> ANGLEUNIT["degree",0.0174532925199433]],
#> ORDER[2],
#> LENGTHUNIT["metre",1]],
#> USAGE[
#> SCOPE["Antarctic Digital Database and small scale topographic mapping."],
#> AREA["Antarctica."],
#> BBOX[-90,-180,-60,180]],
#> ID["EPSG",3031]]
## Otherwise, many projection can be retrieved from EPSG code