# NOT RUN {
WR_coords = loadCoordWR(res = "low")
str(WR_coords, 1)
WR_ocde = loadCoordWR(unit = "ocde",res = "low")
str(WR_ocde, 1)
WR_continent = loadCoordWR(unit = "continent",res = "low")
str(WR_continent, 1)
# }
# NOT RUN {
WR_type_income = loadCoordWR(unit = "type_income",res = "low")
str(WR_type_income, 1)
library(tmap)
tm_shape(WR_coords) + tm_borders()
tm_shape(WR_continent) + tm_borders()
tm_shape(WR_ocde) + tm_borders()
library(mapview)
mapview(WR_coords)
mapview(WR_continent)
mapview(WR_ocde)
coords_wr <- loadCoordWR(unit = "country", unit_subset = c("Italy", "Spain"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab