if (FALSE) {
check_projection("32632")
check_projection("32631")
check_projection(32633)
check_projection(30, abort = FALSE)
check_projection("example of invalid string", abort = FALSE)
proj_wkt <- sf::st_as_text(sf::st_crs(32632))
check_projection(proj_wkt)
}
Run the code above in your browser using DataLab