This function is a convenience method to workaround PROJ4/PROJ6
differences, and the lack of a crs extraction method for Spatial objects.
For newer code, use fm_crs() instead, that returns crs objects,
and use fm_as_sp_crs() to convert to old style sp::CRS objects.