In mdsumner/cartogony:

library(cartogony)
library(dplyr)
library(sf)
map <- world %>% select(NAME, POP2005)
data("epsg")
data("world")
for (i in sample(nrow(epsg), 100)) {
  x <- try(st_transform(map, st_crs(epsg$prj4[i])))

  y <- try(plot(x))
  if (!inherits(y, "try-error")) text(0, 0, epsg$prj4[i])
}

mdsumner/cartogony documentation built on May 22, 2019, 4:43 p.m.