R/readINNOPATHS.R

Defines functions readINNOPATHS

Documented in readINNOPATHS

#' Read INNOPATHS
readINNOPATHS <- function() {
  utils::read.csv(file = "INNPATHS database.csv", sep = ";") %>%
    tidyr::pivot_longer(tidyselect::starts_with("X"),
                        names_to = "period",
                        names_pattern = "X(.*)",
                        names_transform = as.numeric) %>%
    dplyr::filter(!is.na(.data$value)) %>%
    dplyr::select(-"MODEL", -"SCENARIO") %>%
    as.magpie(spatial = 1, temporal = 4)
}
pik-piam/mrremind documentation built on Sept. 18, 2024, 2:58 p.m.