data-raw/processData.R

In validmeasures/uypa: Urban Youth Participatory Assessment

################################################################################
#
# Install libraries
#
################################################################################

if(!require(rgdal)) install.packages("rgdal")
if(!require(rgeos)) install.packages("rgeos")


################################################################################
#
# Read Diamaguene commune shapefile
#
################################################################################

diamaguene <- readOGR(dsn = "data-raw/data", layer = "communeDiamaguene", verbose = FALSE)
usethis::use_data(diamaguene, overwrite = TRUE)

################################################################################
#
# Read mapping data
#
################################################################################

diamagueneLocations <- read.csv(file = "data-raw/data/urban.csv",
                                stringsAsFactors = FALSE)

diamagueneLocations$infra <- stringr::str_replace_all(string = diamagueneLocations$infra,
                                                      pattern = "é|è",
                                                      replacement = "e")

diamagueneLocations$infra_other <- stringr::str_replace_all(string = diamagueneLocations$infra_other,
                                                            pattern = "é|è",
                                                            replacement = "e")

diamagueneLocations$school_type_other <- stringr::str_replace_all(string = diamagueneLocations$school_type_other,
                                                                  pattern = "é|è",
                                                                  replacement = "e")

diamagueneLocations$description <- stringr::str_replace_all(string = diamagueneLocations$description,
                                                            pattern = "é|è",
                                                            replacement = "e")

diamagueneLocations$school_type_other <- stringr::str_replace_all(string = diamagueneLocations$school_type_other,
                                                                  pattern = "é|è",
                                                                  replacement = "e")

diamagueneLocations$name<- stringr::str_replace_all(string = diamagueneLocations$name,
                                                    pattern = "é|è",
                                                    replacement = "e")


usethis::use_data(diamagueneLocations, overwrite = TRUE)