inst/scripts/1-load-and-clean.R

library(plyr)
library(dplyr)
library(magrittr)
library(lubridate)

load_all()

get_current_sos()
data(sos_raw)

# Create Unique ID
sosid <- paste0("SOS", 1:nrow(sos_raw))

# Run individual variable cleaning functions.
name <- clean_name(sos_raw)
entity_type <- clean_entity_type(sos_raw)
status <- clean_status(sos_raw)
date_created <- clean_date_created(sos_raw)
date_terminated <- clean_date_terminated(sos_raw)
countries <- clean_countries(sos_raw)
syndromic <- clean_syndromic(sos_raw)
humans <- clean_humans(sos_raw)
animals <- clean_animals(sos_raw)
plants <- clean_plants(sos_raw)

sos_cleaned <- data.frame(sosid, name, entity_type, status, date_created, date_terminated, humans, animals, plants, syndromic)
sos_countries <- data.frame(sosid, countries)

write.csv(sos_cleaned, file = "inst/out/sos_cleaned.csv", row.names = FALSE)
save(sos_cleaned, file = "data/sos_cleaned.RData")
write.csv(sos_countries, file = "inst/out/sos_countries.csv", row.names = FALSE)
save(sos_countries, file = "data/sos_countries.RData")
ecohealthalliance/sos documentation built on May 15, 2019, 7:56 p.m.