data-raw/agreements/AIGGO/prepare-AIGGO.R

In globalgov/qEnviron: Environmental Agreements for the many Universe

# AIGGO Preparation Script

# This is a template for importing, cleaning, and exporting data
# for the 'many' packages.

# Start with HUGGO dataset
AIGGO <- manyenviron::agreements$HUGGO

# Add Action-Area Column
AIGGO$action_area <- manypkgs::code_lineage(AIGGO$Title)

# Add linkage column
AIGGO$linkage <- manypkgs::code_linkage(AIGGO$Title, AIGGO$Begin)

# Code accession conditions and procedures
AIGGO$accessionC <- manypkgs::code_accession_terms(AIGGO$TreatyText,
                                                   AIGGO$Title,
                                                   accession = "condition")
AIGGO$accessionP <- manypkgs::code_accession_terms(AIGGO$TreatyText,
                                                   AIGGO$Title,
                                                   accession = "process")
# Code termination clause and date
AIGGO$termination_type <- manypkgs::code_term(AIGGO$Title, AIGGO$TreatyText)

AIGGO$termination_date <- manypkgs::code_term_date(AIGGO$Title,
                                                   AIGGO$TreatyText)

# Remove duplicates and convert NAs
AIGGO <- AIGGO %>%
  dplyr::select(manyID, treatyID, Title, Begin, End, Signature,
                Force, action_area, linkage, accessionC, accessionP,
                termination_type, termination_date) %>%
  mutate(across(everything(), ~stringr::str_replace_all(., "^NA$",
                                                        NA_character_))) %>%
  mutate(linkage = ifelse(linkage == "" ,
                          NA_character_, linkage)) %>%
  mutate(Signature = messydates::as_messydate(Signature),
         Force = messydates::as_messydate(Force),
         Begin = messydates::as_messydate(Begin),
         End = messydates::as_messydate(End)) %>%
  dplyr::distinct()

# Stage three: Connecting data
manypkgs::export_data(AIGGO, datacube = "agreements",
                      URL = "Programatically coded data by the GGO team")

# This function also does two additional things.
# First, it creates a set of tests for this object to ensure
# adherence to certain standards. You can hit Cmd-Shift-T (Mac)
# or Ctrl-Shift-T (Windows) to run these tests locally at any point.
# Any test failures should be pretty self-explanatory and may require
# you to return to stage two and further clean, standardise, or wrangle
# your data into the expected format.
# Second, it also creates a documentation file for you to fill in.
# Please make sure that you cite any sources appropriately and
# fill in as much detail about the variables etc as possible.