data-raw/maps.R

In OMNeoHealth/papuanewguinea: OMNeoHealth Datasets for Papua New Guinea

library(maptools)
library(rgdal)
library(rgeos)
library(raster)
library(stringr)
library(readxl)

#
#
#
country <- readOGR(dsn = "data-raw/maps/png_admbnda_adm0_20180419",
                   layer = "png_admbnda_adm0_20180419",
                   verbose = FALSE)

usethis::use_data(country, overwrite = TRUE, compress = "xz")
#
#
#
province <- readOGR(dsn = "data-raw/maps/png_admbnda_adm1_20180419",
                    layer = "png_admbnda_adm1_20180419",
                    verbose = FALSE)

province$ADM1_PCODE <- str_replace(string = province$ADM1_PCODE,
                                   pattern = "PG",
                                   replacement = "")

usethis::use_data(province, overwrite = TRUE, compress = "xz")
#
#
#
district <- readOGR(dsn = "data-raw/maps/png_admbnda_adm2_20180419",
                    layer = "png_admbnda_adm2_20180419",
                    verbose = FALSE)

district$ADM2_PCODE <- str_replace(string = district$ADM2_PCODE,
                                   pattern = "PG",
                                   replacement = "")

usethis::use_data(district, overwrite = TRUE, compress = "xz")
#
#
#
llg <- readOGR(dsn = "data-raw/maps/png_admbnda_adm3_20180419",
               layer = "png_admbnda_adm3_20180419",
               verbose = FALSE)

llg$ADM3_PCODE <- str_replace(string = llg$ADM3_PCODE,
                              pattern = "PG",
                              replacement = "")

usethis::use_data(llg, overwrite = TRUE, compress = "xz")


healthfacility <- read_xlsx("data-raw/png_health_facilities_geocoded.xlsx")

healthfacility$LLG_Pcode <- str_replace(string = healthfacility$LLG_Pcode, pattern = "PG", replacement = "")
healthfacility$Dis_Pcode <- str_replace(string = healthfacility$Dis_Pcode , pattern = "PG", replacement = "")
healthfacility$Prov_Pcode <- str_replace(string = healthfacility$Prov_Pcode, pattern = "PG", replacement = "")

usethis::use_data(healthfacility, overwrite = TRUE, compress = "xz")