I'm impressed with this, may thanks @walkerke!
crsuggest::suggest_crs(stplanr::cents_sf)
# A tibble: 10 × 6
crs_code crs_name crs_type crs_gcs crs_units crs_proj4
<chr> <chr> <chr> <dbl> <chr> <chr>
1 27700 OSGB36 / British National Grid projected 4277 m +proj=tm…
2 5643 ED50 / SPBA LCC projected 4230 m +proj=lc…