District heating

[lucas-vivier]

In dev_inputs branch:

# initialize DF stock by vintage (baseyear) - detailed fuel level bld_det_age_i <- geo_data %>% select_at(geo_levels) %>% left_join(stock_arch_base) %>% # baseyear results left_join(ct_eneff) %>% left_join(ct_fuel_comb) %>% left_join(shr_fuel_heat_base) %>% left_join(shr_distr_heat) %>% #left_join(shr_acc_cool) %>% mutate(n_units_eneff = stock_arch_base) %>% # assumption: one eneff per period of construction mutate(n_units_fuel = ifelse(fuel_heat == "district_heat", round(n_units_eneff * shr_distr_heat,rnd), # district heating round(n_units_eneff * (1 - shr_distr_heat) * shr_fuel_heat_base,rnd))) %>% # other fuels (decentralized) mutate(n_units_fuel = round(n_units_fuel, rnd)) %>% mutate_cond(mat == "sub", n_units_fuel = n_units_eneff) %>% # sub-standard buildings - one fuel type only select(-c(stock_arch_base, shr_fuel_heat_base, shr_distr_heat, n_units_eneff, mod_decision))
If I understood correctly, condition fuel_heat == "district_heat" is never TRUE because shr_fuel_heat_base variable does not contain this information.