# NOT RUN {
if (require(rgdal)) {
if (fm_has_PROJ6()) {
crs1 <- fm_CRS("longlat_globe")
crs2 <- fm_CRS("lambert_globe")
crs3 <- fm_CRS("mollweide_norm")
crs4 <- fm_CRS("hammer_globe")
crs5 <- fm_CRS("sphere")
crs6 <- fm_CRS("globe")
} else {
# Old definitions for pre-PROJ6:
# Old radius-1 projections have a added "_norm" in the PROJ6 version of
# the fm_CRS() predefined projections. They are detected and converted
# to the new versions when RPOJ6 is available.
crs1 <- fm_CRS("longlat") # PROJ6: longlat_norm
crs2 <- fm_CRS("lambert") # PROJ6: lambert_norm
crs3 <- fm_CRS("mollweide") # PROJ6: mollweide_norm
crs4 <- fm_CRS("hammer") # PROJ6: hammer_norm
crs5 <- fm_CRS("sphere")
crs6 <- fm_CRS("globe")
}
}
# }
# NOT RUN {
names(fm_wkt_predef())
# }
Run the code above in your browser using DataLab