data-raw/sysdata.R

## Generate the internal data for the package
## This must be sourced as a script because of the way devtools::use_data works.
## Source it from the top level of a development copy of the package.
library(magrittr)

source('data-raw/gdpdef.R')
gdpdef <- calc.gdpdef('data-raw/GDPDEF.csv')

source('data-raw/pm_emissions_factors.R')
pm_emissions_factors <- calc.pm_emissions_factors('data-raw/pm_emissions_factors.csv')

source('data-raw/annual_mileage.R')
annual_mileage <- calc.annual_mileage('data-raw/annual_mileage.csv')

source('data-raw/areaconv.R')
areaconv <- prep.areaconv()

source('data-raw/energyconv.R')
energyconv <- prep.energyconv()

source('data-raw/countconv.R')
countconv <- prep.countconv()

source('data-raw/emissionsconv.R')
emissionsconv <- prep.emissionsconv()

source('data-raw/weightconv.R')
massconv <- prep.weightconv()

gwp_ar4 <- readr::read_csv('data-raw/GWP_AR4.csv')
gwp_ar5 <- readr::read_csv('data-raw/GWP_AR5.csv')
ghg_gas_type <- readr::read_csv('data-raw/GHG_gas_type.csv')

final_energy_fuel <- readr::read_csv('data-raw/final_energy_fuel.csv')
final_energy_end_use_sector <- readr::read_csv('data-raw/final_energy_end_use_sector.csv')

devtools::use_data(gdpdef, pm_emissions_factors, annual_mileage, areaconv,
                   energyconv, countconv, emissionsconv, massconv,
                   gwp_ar4, gwp_ar5, ghg_gas_type, final_energy_fuel, final_energy_end_use_sector,
                   internal=TRUE, overwrite=TRUE,
                   compress='xz')
JGCRI/iamrpt documentation built on June 30, 2019, 3:19 a.m.