#' @title Liest das gewünschte IV Schuldszenario ein
#'
#' @description Liest das in PARAM_GLOBAL bezeichnete IV Schuldszenario ein.
#'
#' @param PARAM_GLOBAL Ein einzeiliges `tbl` mit den globalen Parametern.
#'   - `ivschuld_scen`: Szenario IV Schuld
#'   - `jahr_ende`: année de fin de la projection
#'
#' @param IV_SCHULD_SCEN data frame mit IV Schuldszenarien
#'
#' @param list Eine `tidylist`. Anstatt die beiden `tbls` einzeln zu übergeben,
#'   können sie auch als `tidylist` übergeben werden.
#'
#' @return `IV_SCHULD`
#'
#' @author [MAS BSV](mailto:sekretariat.mas@bsv.admin.ch)
#'
#' @export
#'

path <- 
  "~/data/appl-wb/20_staff/kjo/fhh/2025-08-05T1106_u80874371_ahv_basis"

mod_ivschuld_scen <- function(PARAM_GLOBAL,
                              IV_SCHULD_SCEN) {
    
    print("Run module: mod_ivschuld_scen")

  # Choix du scénario
  IV_SCHULD_FILT <- IV_SCHULD_SCEN %>%
    filter(scen == PARAM_GLOBAL$ivschuld_scen) %>%
      select(-laufjahr, -version)

  if (last(IV_SCHULD_FILT$jahr) < PARAM_GLOBAL$jahr_ende) {
    IV_SCHULD_PR <- crossing(
      jahr = (last(IV_SCHULD_FILT$jahr) + 1):PARAM_GLOBAL$jahr_ende,
      tail(
        IV_SCHULD_FILT %>%
          dplyr::select(-jahr),
        1
      )
    )

    IV_SCHULD_FILT <- IV_SCHULD_FILT %>%
      bind_rows(IV_SCHULD_PR, .id = "version") %>%
      dplyr::select(-version)
  }
  
  IV_SCHULD <- IV_SCHULD_FILT %>%
    dplyr::select(-scen)

  #------ Output ------------------------------------------------------#

  return(IV_SCHULD = IV_SCHULD)
}
