# NOT RUN {
# by key
res1 <- mr_geojson(key = "Morocco:dam")
# by name -- not working right now
if (requireNamespace("geojsonio")) {
library("geojsonio")
as.json(unclass(res1)) %>% map_leaf
# MEOW - marine ecoregions
as.json(unclass(mr_geojson("Ecoregions:ecoregions"))) %>% map_leaf()
}
# }
Run the code above in your browser using DataLab