data-raw/annual_mileage.R

In JGCRI/iamrpt: Convert GCAM results to the format required by various IAM experiment databases

## Process Annual Mileage data from GCAM input data system


calc.annual_mileage <- function(filename) {
    # read in data
    annual_mileage <- readr::read_csv(filename)

    annual_mileage <- tidyr::gather(annual_mileage,
                                          key=year ,
                                          value=value,
                                          -service, -mode, -submode, -car_type, -Units)
    annual_mileage <- annual_mileage %>%
        dplyr::group_by(service, mode, submode, year, Units) %>%
        dplyr::summarise(value=sum(value)) %>%
        dplyr::ungroup()
    annual_mileage$year <- as.integer(annual_mileage$year) # in order to join with other df's

    annual_mileage

}