Calculate project emissions for aerobic composting systems — calculate_project_emissions

Equation (2) of AMS-III.F quantifies residual methane from the composting process and adds fossil energy use required to operate the system.

calculate_project_emissions_iiif(
  data,
  composted_waste_col = "composted_waste_tonnes",
  doc_fraction_col = "doc_fraction",
  docf_col = "docf_fraction",
  compost_mcf_col = "compost_mcf_fraction",
  methane_fraction = 0.5,
  compost_oxidation_col = NULL,
  electricity_consumption_col = "electricity_mwh",
  electricity_emission_factor_col = "grid_ef_tco2_per_mwh",
  fossil_fuel_consumption_col = "diesel_litres",
  fossil_fuel_emission_factor_col = "diesel_ef_tco2_per_litre",
  group_cols = NULL,
  output_col = "project_emissions_tco2e",
  gwp_ch4 = 28
)

Arguments

data: Tibble containing composting operation data.
composted_waste_col: Column storing the amount of waste composted (tonnes).
doc_fraction_col: Column storing the degradable organic carbon fraction.
docf_col: Column storing the fraction of DOC that degrades.
compost_mcf_col: Column storing the methane correction factor achieved by the composting system.
methane_fraction: Methane fraction of landfill gas.
compost_oxidation_col: Optional column storing the oxidation factor for the compost matrix.
electricity_consumption_col: Optional column storing electricity use (MWh).
electricity_emission_factor_col: Optional column storing the grid emission factor (tCO2e per MWh).
fossil_fuel_consumption_col: Optional column storing fossil fuel consumption.
fossil_fuel_emission_factor_col: Optional column storing emission factors for fossil fuel inputs.
group_cols: Optional character vector specifying grouping columns.
output_col: Name of the output column containing project emissions in tCO2e.
gwp_ch4: Global warming potential of methane.

Value

Tibble containing grouped project emissions in tCO2e.

Examples

project <- tibble::tibble(
  site_id = c("A", "B"),
  composted_waste_tonnes = c(950, 800),
  doc_fraction = c(0.15, 0.16),
  docf_fraction = 0.5,
  compost_mcf_fraction = c(0.1, 0.12),
  electricity_mwh = c(40, 32),
  grid_ef_tco2_per_mwh = 0.6
)
calculate_project_emissions_iiif(project)
#> Error in dplyr::mutate(data_tbl, .oxidation = if (!is.null(compost_oxidation_col)) .data[[compost_oxidation_col]] else 0,     .residual_ch4_t = .data[[composted_waste_col]] * .data[[doc_fraction_col]] *         .data[[docf_col]] * .data[[compost_mcf_col]] * methane_fraction *         (16/12) * (1 - .oxidation), .residual_component = .residual_ch4_t *         gwp_ch4, .electricity_component = if (!is_null_dual(electricity_consumption_col,         electricity_emission_factor_col)) {        .data[[electricity_consumption_col]] * .data[[electricity_emission_factor_col]]    } else {        0    }, .fuel_component = if (!is_null_dual(fossil_fuel_consumption_col,         fossil_fuel_emission_factor_col)) {        .data[[fossil_fuel_consumption_col]] * .data[[fossil_fuel_emission_factor_col]]    } else {        0    }, .project_component = .residual_component + .electricity_component +         .fuel_component): ℹ In argument: `.fuel_component = if (...) NULL`.
#> Caused by error in `.data[["diesel_litres"]]`:
#> ! Column `diesel_litres` not found in `.data`.