# NOT RUN {
run <- new_proj_and_gdal()
if (run) {
discarded_datum <- showSRID("EPSG:27700", "PROJ")
(x <- list_coordOps(paste0(discarded_datum, " +type=crs"), "OGC:CRS84"))
}
if (run) {
best_instantiable_coordOp(x)
}
if (run) {
restored_datum <- showSRID("EPSG:27700", "PROJ")
list_coordOps(paste0(restored_datum, " +datum=OSGB36 +type=crs"), "OGC:CRS84")
}
if (run) {
wkt_datum <- showSRID("EPSG:27700", "WKT2")
(x <- list_coordOps(wkt_datum, "OGC:CRS84"))
}
if (run) {
best_instantiable_coordOp(x)
}
if (run) {
list_coordOps("EPSG:27700", "OGC:CRS84")
}
if (run) {
}
if (run) {
discarded_datum <- showSRID("EPSG:22525", "PROJ")
list_coordOps(paste0(discarded_datum, " +type=crs"), "EPSG:31985")
}
if (run) {
}
if (run) {
wkt_datum <- showSRID("EPSG:22525", "WKT2")
list_coordOps(wkt_datum, "EPSG:31985")
}
if (run) {
(x <- list_coordOps("EPSG:22525", "EPSG:31985"))
}
if (run) {
best_instantiable_coordOp(x)
}
# }
Run the code above in your browser using DataLab