From 02ae588debed0a1b857fdc9599cc6a469506dd25 Mon Sep 17 00:00:00 2001 From: ahmedjoubest Date: Thu, 28 Nov 2024 10:54:36 +0100 Subject: [PATCH] debug when fertilizer exists --- R/merge_outputs.R | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/R/merge_outputs.R b/R/merge_outputs.R index b29ae40..2f1e648 100644 --- a/R/merge_outputs.R +++ b/R/merge_outputs.R @@ -411,9 +411,8 @@ combineOutputs <- function(para, feed_basket_quality, energy_required, land_requ rice_production_methane_tot_kg_co2_e <- rice_production_methane*methane rice_production_methane_per_ha_kg_co2_e <- ifelse(area_required_on_farm_ha<0.001,0,rice_production_methane_tot_kg_co2_e/area_required_on_farm_ha) rice_production_methane_kg_co2_e_per_kg_fpcm <- rice_production_methane_tot_kg_co2_e/total_milk_produced_kg_fpcm_per_year - # quick fix for the case with no fertilizer - if (ghg_emissions[["fetilizer_ghg"]] == 0) { + if (!is.list(ghg_emissions[["fetilizer_ghg"]])) { on_farm_fertilizer_emission <- 0 } else { on_farm_fertilizer_emission <- sum(ghg_emissions[["fetilizer_ghg"]][["fertlizer_emission_by_crop"]]$farm_fertiliser_emission) @@ -434,7 +433,7 @@ combineOutputs <- function(para, feed_basket_quality, energy_required, land_requ rough_of_soil_indirect_N2O_kg_co2_e_per_kg_fpcm <- rough_of_soil_indirect_N2O_tot_kg_co2_e/total_milk_produced_kg_fpcm_per_year # fix for the case with no fertilizer - if (ghg_emissions[["fetilizer_ghg"]] == 0) { + if (!is.list(ghg_emissions[["fetilizer_ghg"]])) { rough_of_fertilizer_emission <- 0 } else { rough_of_fertilizer_emission <- sum(ghg_emissions[["fetilizer_ghg"]][["fertlizer_emission_by_crop"]]$rough_of_fertiliser_emission) @@ -454,7 +453,7 @@ combineOutputs <- function(para, feed_basket_quality, energy_required, land_requ conc_of_soil_indirect_N2O_per_ha_kg_co2_e <- ifelse(area_required_concentrates_off_farm_ha<0.001,0,conc_of_soil_indirect_N2O_tot_kg_co2_e/area_required_concentrates_off_farm_ha) conc_of_soil_indirect_N2O_kg_co2_e_per_kg_fpcm <- conc_of_soil_indirect_N2O_tot_kg_co2_e/total_milk_produced_kg_fpcm_per_year - if (ghg_emissions[["fetilizer_ghg"]] == 0) { + if (!is.list(ghg_emissions[["fetilizer_ghg"]])) { conc_of_fertilizer_emission <- 0 } else { conc_of_fertilizer_emission <- sum(ghg_emissions[["fetilizer_ghg"]][["fertlizer_emission_by_crop"]]$conc_of_fertiliser_emission) @@ -475,7 +474,7 @@ combineOutputs <- function(para, feed_basket_quality, energy_required, land_requ conc_ip_soil_indirect_N2O_per_ha_kg_co2_e <- ifelse(area_required_imported_concentrates_ha<0.001,0,conc_ip_soil_indirect_N2O_tot_kg_co2_e/area_required_imported_concentrates_ha) conc_ip_soil_indirect_N2O_kg_co2_e_per_kg_fpcm <- conc_ip_soil_indirect_N2O_tot_kg_co2_e/total_milk_produced_kg_fpcm_per_year - if (ghg_emissions[["fetilizer_ghg"]] == 0) { + if (!is.list(ghg_emissions[["fetilizer_ghg"]])) { conc_ip_fertilizer_emission <- 0 } else { conc_ip_fertilizer_emission <- sum(ghg_emissions[["fetilizer_ghg"]][["fertlizer_emission_by_crop"]]$conc_ip_fertiliser_emission)