data-raw/build_package_data.R

In cfree14/nutriR: Nutritional intake functions for R

# Packages
library(tidyverse)
library(countrycode)

# Our data
#####################################################################################

# Read distributions
dists_file <- "/Users/cfree/Dropbox/Chris/UCSB/projects/nutrition/subnational_nutrient_distributions/data/nutrient_intake_distributions_31countries_expanded_final.Rds"
dists_full <- readRDS(dists_file) %>%
  # Filter to useful columns
  filter(best_dist!="none" & status =="Fit") %>%
  # Simplify
  select(-status)
colnames(dists_full)

# Save for internal use
usethis::use_data(dists_full, overwrite = T)

# Other data
#####################################################################################

# Read RDIs (IOM/NASEM)
dris <- readRDS("/Users/cfree/Dropbox/Chris/UCSB/projects/nutrition/nutrient_endowment/data/ears/data/dietary_reference_intake_data.Rds")
usethis::use_data(dris, overwrite = T)

# Read NRVs (Allen et al. 2020)
nrvs <- readRDS("/Users/cfree/Dropbox/Chris/UCSB/projects/nutrition/subnational_nutrient_distributions/data/dris/processed/Allen_etal_2020_nrvs.Rds")
usethis::use_data(nrvs, overwrite = T)

# Read DRVs (EFSA)
drvs <- readxl::read_excel("/Users/cfree/Dropbox/Chris/UCSB/projects/nutrition/subnational_nutrient_distributions/data/dris/raw/efsa/EFSA_2019_dris_formatted.xlsx")
usethis::use_data(drvs, overwrite = T)