# ------- to be used to prepare base maps to be used --------------------- # ------------ load libraries to be used ---------------------------------- libs <- c('tidyverse','sf','rworldmap','rworldxtra');lapply(libs,library, character.only=TRUE) # -------------- prepare base maps --------------------------------------- # -------- get and prepare base maps -------------------------------------- world <- getMap(resolution = "high") ### convert the spatialPolygonsDataFrame to an sf object world_sf <- st_as_sf(world) al_shape <- world_sf%>% st_crop(xmin=0.05,xmax=80,ymin=-38.45,ymax=-16.05)%>%lwgeom::st_make_valid() # ------- write prepared base maps to a file ------------------------------ save(list = c('al_shape'),file = here::here('spatial/shape','base_map_shapeFiles.RData'))