data-raw/organizations/IHEID/prepare-IHEID.R

In globalgov/manyhealth: Health Agreements for manydata

# IHEID Preparation Script

# This is a template for importing, cleaning, and exporting data
# ready for the many package.

# Stage one: Collecting data
IHEID <- readxl::read_excel("data-raw/organizations/IHEID/IHEID.xlsx")

# Stage two: Correcting data
# In this stage you will want to correct the variable names and
# formats of the 'IHEID' object until the object created
# below (in stage three) passes all the tests.
# manydata includes several functions that should help cleaning
# and standardising your data.
# Please see the vignettes or website for more details.
IHEID <- as_tibble(IHEID) %>%
  manydata::transmutate(Organization = Name,
                        organizationID = Abbreviation,
                        Begin = messydates::as_messydate(as.character(Start)),
                        City = `HQ/Offices`) %>%
  dplyr::relocate(organizationID, Organization, Begin) %>%
  dplyr::arrange(Begin)
# If using the data in combination with manystates data on state actors,
# please note that there may be overlaps in three-letter organizationID and
# three-letter stateID.

# Stage three: Connecting data
# Next run the following line to make IHEID available
# within the package.
# 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 note that the export_data() function requires a .bib file to be
# present in the data_raw folder of the package for citation purposes.
# Therefore, please make sure that you have permission to use the dataset
# that you're including in the package.
# To add a template of .bib file to package,
# run `manypkgs::add_bib(organizations, IHEID)`.
manypkgs::export_data(IHEID, datacube = "organizations",
                      URL = "https://www.graduateinstitute.ch/GHC-directories")