CRS()
CRS("")
CRS(as.character(NA))
CRS("+proj=longlat +datum=WGS84")
run <- FALSE
run <- require(rgdal)
if (run) {
print(CRSargs(CRS("+proj=longlat +datum=NAD27")))
}
if (run) {
print(CRSargs(CRS("+init=epsg:4267")))
}
if (run) {
print(CRSargs(CRS("+init=epsg:26978")))
}
if (run) {
print(CRSargs(CRS(paste("+proj=sterea +lat_0=52.15616055555555",
"+lon_0=5.38763888888889 +k=0.999908 +x_0=155000 +y_0=463000 +ellps=bessel",
" +towgs84=565.237,50.0087,465.658,-0.406857,0.350733,-1.87035,4.0812 +units=m"))))
}
if (run) {
print(CRSargs(CRS("+init=epsg:28992")))
}
if (run) {
print(CRSargs(CRS("EPSG:28992")))
}
if (run) {
print(CRSargs(CRS(SRS_string="EPSG:28992")))
}
if (run) {
o <- try(CRS(SRS_string="ESRI:102760"))
if (!inherits(o, "try-error")) print(CRSargs(o))
}
if (run) {
o <- try(CRS("EPSG:4326"))
if (!inherits(o, "try-error")) print(CRSargs(o))
}
if (run) {
o <- try(CRS("ESRI:102760"))
if (!inherits(o, "try-error")) print(CRSargs(o))
}
if (run) {
o <- new("Spatial")
proj4string(o) <- CRS("+init=epsg:27700")
}
if (run && !is.null(comment(slot(o, "proj4string")))) {
cat(wkt(o), sep="\n")
cat(wkt(slot(o, "proj4string")), sep="\n")
}
Run the code above in your browser using DataLab