Correction of bugs in the script used to create GIS layers for country borders...

Correction of bugs in the script used to create GIS layers for country borders in West and Central Africa

src/Africa_gpkg.R

@@ -6,7 +6,8 @@ ctr <- c("Cameroon", "Central African Republic", "Chad", "Congo DR",
          "Congo", "Equatorial Guinea", "Gabon", "Sao Tome and Principe",
          "Benin", "Burkina Faso", "Cape Verde", "The Gambia", "Ghana",
          "Guinea", "Guinea Bissau", "Cote d'Ivoire", "Liberia",
-         "Mali", "Mauritania", "Niger", "Nigeria", "Senegal", "Sierra Leone", "Togo")
+         "Mali", "Mauritania", "Niger", "Nigeria", "Senegal",
+         "Sierra Leone", "Togo")
 ctry <- standardise_country_names(ctr)
 
 codes <- ccodes()
@@ -40,33 +41,21 @@ roi3@data <- roi1@data
 writeOGR(wcAfrica1,
          dsn = "data/geoWCAfrica.gpkg",
          layer = "geoWCAfrica",
-         driver = "GPKG", overwrite=T)
+         driver = "GPKG", overwrite = T)
 
 writeOGR(wcAfrica3,
-         dsn="data/geoWCAFricaLight.gpkg",
-         layer = "geoWCAFricaLight",
-         driver = "GPKG", overwrite=T)
+         dsn = "data/geoWCAFricaLight.gpkg",
+         layer = "geoWCAfricaLight",
+         driver = "GPKG", overwrite = T)
 
 writeOGR(roi1,
          dsn = "data/roiWCAfrica.gpkg",
-         layer = "roiWCAfrica_WCAfricaWWWWWWWWWWWwwwWWW    ",
+         layer = "roiWCAfrica",
          driver = "GPKG",
          overwrite = T)
 
 writeOGR(roi3,
-         dsn = "data/roiWCAFricaLight.g_..........  pkg",
-         layer = "roiWCAFricaLight",
+         dsn = "data/roiWCAfricaLight.gpkg",
+         layer = "roiWCAfricaLight",
          driver = "GPKG",
          overwrite = T)
-
-
-
-
-
-
-
-
-
-
-
-