crs0 <- crs1 <- fm_crs("longlat_globe")
fm_crs_oblique(crs1) <- c(0, 90)
print(c(
fm_crs_is_identical(crs0, crs0),
fm_crs_is_identical(crs0, crs1),
fm_crs_is_identical(crs0, crs1, crsonly = TRUE)
))
Run the code above in your browser using DataLab