data-raw/processData.R

In spatialworks/wwarnsurveyr: WWARN Antimalarial Resistance Surveyors in R

## Create datasets
library(readxl)
library(stringi)

## ACT partner drug molecular surveyor data ####################################
x <- read_xls(path = "data-raw/WWARN_ACT_Partner_Drug_Mol_Surveyor_data.xls",
              sheet = 1)

## create new object
act_partner <- x

## Save as .rda format
usethis::use_data(act_partner, overwrite = TRUE, compress = "xz")


## K13 #########################################################################
x <- read_xls(path = "data-raw/K13_surveyor_data.xls", sheet = 1)

## create new object
artemisinin <- x

## Save as .rda format
usethis::use_data(artemisinin, overwrite = TRUE, compress = "xz")


## SP ##########################################################################
x <- read_xls(path = "data-raw/dhfr_dhps_surveyor_data.xls", sheet = 1)

## create new object
sulphadoxine <- x

## Save as .rda format
usethis::use_data(sulphadoxine, overwrite = TRUE, compress = "xz")


## Vivax #######################################################################
x <- read.csv(file = "data-raw/Data_and_Instructions/IDDO_NMFI_Review_data.csv")

x$title <- iconv(x$title, to = "UTF-8")
x$first_author <- iconv(x$first_author, to = "UTF-8")
x$journal <- iconv(x$journal, to = "UTF-8")
x$abstract_content <- iconv(x$abstract_content, to = "UTF-8")
x$url <- iconv(x$url, to = "UTF-8")
x$clinical_disorder_name <- iconv(x$clinical_disorder_name, to = "UTF-8")
x$clinical_disorder.snomed_concept_name <- iconv(x$clinical_disorder.snomed_concept_name, to = "UTF-8")
x$country_name <- iconv(x$country_name, to = "UTF-8")
x$province_name <- iconv(x$province_name, to = "UTF-8")
x$site_name <- iconv(x$site_name, to = "UTF-8")

#stringi::stri_enc_mark(x$abstract_content)

## create new object
vivax <- tibble::tibble(x)

## Save as .rda format
usethis::use_data(vivax, overwrite = TRUE, compress = "xz")


## Medicine quality ############################################################
x <- read_xlsx(path = "data-raw/IDDO_MQ_Surveyor_Database/publications.xlsx",
               sheet = 1)

## create new object
medicine_quality <- x

## Save as .rda format
usethis::use_data(medicine_quality, overwrite = TRUE, compress = "xz")