bug: target_market_share needlessly expects same scenario end year across all sectors

[jacobvjk]

When sectors in the same scenario file have different forward-looking time frames, target_market_share() errors. This does not seem warranted from a methodological perspective and it restricts the scenario information we can make available to users.

---

library(tidyverse)
library(r2dii.data)
library(r2dii.match)
library(r2dii.analysis)

abcd <- r2dii.data::abcd_demo %>% 
  mutate(year = year + 3)

lbk <- r2dii.data::loanbook_demo
region <- r2dii.data::region_isos
scenario_sda <- readr::read_csv("/Users/jkastl/Desktop/git/workflow.scenario.preparation/outputs/2023Q4_20240529_T073706Z/p4b_ei_scenarios_2023.csv")
#> Rows: 303 Columns: 7
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","
#> chr (5): scenario_source, region, scenario, sector, emission_factor_unit
#> dbl (2): year, emission_factor
#> 
#> ℹ Use `spec()` to retrieve the full column specification for this data.
#> ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
scenario_tms <- readr::read_csv("/Users/jkastl/Desktop/git/workflow.scenario.preparation/outputs/2023Q4_20240529_T073706Z/p4b_scenarios_2023.csv")
#> Rows: 31932 Columns: 8
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","
#> chr (5): scenario_source, region, scenario, sector, technology
#> dbl (3): year, smsp, tmsr
#> 
#> ℹ Use `spec()` to retrieve the full column specification for this data.
#> ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

matched <- r2dii.match::match_name(
  loanbook = lbk,
  abcd = abcd,
  by_sector = TRUE
) %>% 
  r2dii.match::prioritize()

out_sda <- r2dii.analysis::target_sda(
  data = matched,
  abcd = abcd,
  co2_intensity_scenario = scenario_sda,
  region_isos = region
)
#> Warning: Removing rows in abcd where `emission_factor` is NA

scenario_tms_2030 <- scenario_tms %>% 
  dplyr::filter(year <= 2030)

scenario_tms %>% 
  dplyr::summarise(final_year = max(year), .by = "sector")
#> # A tibble: 4 × 2
#>   sector      final_year
#>   <chr>            <dbl>
#> 1 coal              2050
#> 2 oil and gas       2050
#> 3 power             2050
#> 4 automotive        2030

scenario_tms_2030 %>% 
  dplyr::summarise(final_year = max(year), .by = "sector")
#> # A tibble: 4 × 2
#>   sector      final_year
#>   <chr>            <dbl>
#> 1 coal              2030
#> 2 oil and gas       2030
#> 3 power             2030
#> 4 automotive        2030

out_tms_2030 <- r2dii.analysis::target_market_share(
  data = matched,
  abcd = abcd,
  scenario = scenario_tms_2030,
  region_isos = region
)

out_tms_standard <- r2dii.analysis::target_market_share(
  data = matched,
  abcd = abcd,
  scenario = scenario_tms,
  region_isos = region
)
#> Error in `check_no_value_is_missing()`:
#> ! Column `production_target` must not contain any `NA`s.

^{Created on 2024-05-30 with reprex v2.1.0}

AB#11095