Running examples in ‘mapping-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: loadCoordWR
> ### Title: Get worldwide countries coordinates
> ### Aliases: loadCoordWR
> 
> ### ** Examples
> 
> 
> 
> WR_coords = loadCoordWR(res = "low")
> str(WR_coords, 1)
Classes ‘sf’, ‘WR’ and 'data.frame':	248 obs. of  20 variables:
 $ country     : chr  "Indonesia" "Malaysia" "Chile" "Bolivia" ...
 $ name_formal : chr  "Republic of Indonesia" "Malaysia" "Republic of Chile" "Plurinational State of Bolivia" ...
 $ name_wb     : chr  "Indonesia" "Malaysia" "Chile" "Bolivia" ...
 $ iso2        : chr  "ID" "MY" "CL" "BO" ...
 $ iso3        : chr  "IDN" "MYS" "CHL" "BOL" ...
 $ iso3_eh     : chr  "IDN" "MYS" "CHL" "BOL" ...
 $ iso3_numeric: chr  "360" "458" "152" "068" ...
 $ iso3_un     : chr  "360" "458" "152" "068" ...
 $ iso2_wb     : chr  "ID" "MY" "CL" "BO" ...
 $ iso3_wb     : chr  "IDN" "MYS" "CHL" "BOL" ...
 $ continent   : chr  "Asia" "Asia" "South America" "South America" ...
 $ region      : chr  "Asia" "Asia" "Americas" "Americas" ...
 $ subregion   : chr  "South-Eastern Asia" "South-Eastern Asia" "South America" "South America" ...
 $ region_wb   : chr  "East Asia & Pacific" "East Asia & Pacific" "Latin America & Caribbean" "Latin America & Caribbean" ...
 $ type        : chr  "Sovereign country" "Sovereign country" "Sovereign country" "Sovereign country" ...
 $ type_economy: chr  "Emerging" "Developing" "Emerging" "Emerging" ...
 $ type_income : chr  "Lower middle income" "Upper middle income" "Upper middle income" "Lower middle income" ...
 $ nato        : logi  FALSE FALSE FALSE FALSE FALSE FALSE ...
 $ ocde        : logi  FALSE FALSE TRUE FALSE FALSE FALSE ...
 $ geometry    :sfc_MULTIPOLYGON of length 248; first list element: List of 178
  ..- attr(*, "class")= chr [1:3] "XY" "MULTIPOLYGON" "sfg"
 - attr(*, "sf_column")= chr "geometry"
 - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA NA NA NA NA ...
  ..- attr(*, "names")= chr [1:19] "country" "name_formal" "name_wb" "iso2" ...
 - attr(*, "unit")= chr "country"
 - attr(*, "colID")= chr "country"
> 
> 
> WR_ocde = loadCoordWR(unit = "ocde",res = "low")
trying URL 'https://raw.githubusercontent.com/dataallaround/geospatial/master/world/GeoJSON/world_ocde_low.geojson'
Content type 'text/plain; charset=utf-8' length 335197 bytes (327 KB)
==================================================
downloaded 327 KB

> str(WR_ocde, 1)
Classes ‘sf’, ‘WR’ and 'data.frame':	41 obs. of  19 variables:
 $ country     : chr  "Chile" "Israel" "France" "South Korea" ...
 $ name_formal : chr  "Republic of Chile" "State of Israel" "French Republic" "Republic of Korea" ...
 $ name_wb     : chr  "Chile" "Israel" "France" "Korea, Republic of" ...
 $ iso2        : chr  "CL" "IL" "FR" "KR" ...
 $ iso3        : chr  "CHL" "ISR" "FRA" "KOR" ...
 $ iso3_eh     : chr  "CHL" "ISR" "FRA" "KOR" ...
 $ iso3_numeric: chr  "152" "376" "250" "410" ...
 $ iso3_un     : chr  "152" "376" "250" "410" ...
 $ iso2_wb     : chr  "CL" "IL" "FR" "KR" ...
 $ iso3_wb     : chr  "CHL" "ISR" "FRA" "KOR" ...
 $ continent   : chr  "South America" "Asia" "Europe" "Asia" ...
 $ region      : chr  "Americas" "Asia" "Europe" "Asia" ...
 $ subregion   : chr  "South America" "Western Asia" "Western Europe" "Eastern Asia" ...
 $ region_wb   : chr  "Latin America & Caribbean" "Middle East & North Africa" "Europe & Central Asia" "East Asia & Pacific" ...
 $ type        : chr  "Sovereign country" "Country" "Country" "Sovereign country" ...
 $ type_economy: chr  "Emerging" "Developed" "Developed" "Emerging" ...
 $ type_income : chr  "Upper middle income" "High income" "High income" "High income" ...
 $ nato        : logi  FALSE FALSE TRUE FALSE TRUE TRUE ...
 $ geometry    :sfc_MULTIPOLYGON of length 41; first list element: List of 41
  ..- attr(*, "class")= chr [1:3] "XY" "MULTIPOLYGON" "sfg"
 - attr(*, "sf_column")= chr "geometry"
 - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA NA NA NA NA ...
  ..- attr(*, "names")= chr [1:18] "country" "name_formal" "name_wb" "iso2" ...
 - attr(*, "unit")= chr "ocde"
 - attr(*, "colID")= chr "ocde"
> 
> WR_continent = loadCoordWR(unit = "continent",res = "low")
trying URL 'https://raw.githubusercontent.com/dataallaround/geospatial/master/world/GeoJSON/world_continent_low.geojson'
Warning in download.file(url, paste(tempdir(), file, sep = "/")) :
  cannot open URL 'https://raw.githubusercontent.com/dataallaround/geospatial/master/world/GeoJSON/world_continent_low.geojson': HTTP status was '503 Service Unavailable'
Error in download.file(url, paste(tempdir(), file, sep = "/")) : 
  cannot open URL 'https://raw.githubusercontent.com/dataallaround/geospatial/master/world/GeoJSON/world_continent_low.geojson'
Calls: loadCoordWR -> download.file
Execution halted