R/readCEEW.R

Defines functions readCEEW

Documented in readCEEW

#' Read Employment factors and cumulative jobs for RE techs (for India)
#' @details Reports published by CEEW et al. See README.txt in the source folder for more information.
#' @author Aman Malik
#' @importFrom readxl read_excel
#' @param subtype data subtype. Either "Employment factors" or "Employment"
#' @examples
#'  \dontrun{
#' a <- readSource("CEEW",convert=F,subtype="Employment")
#' }


readCEEW <- function(subtype) {
  if (subtype == "Employment factors") {

    input <- readxl::read_excel("Employment_CEEW.xlsx", sheet = 1)
    input$Tech <- gsub(x = input$Tech, pattern = "Solar \\(ground mounted\\)", replacement = "Solar|PV-utility")
    input$Tech <- gsub(x = input$Tech, pattern = "Solar \\(rooftop\\)", replacement = "Solar|PV-rooftop")
    input$Tech <- gsub(x = input$Tech, pattern = "Large Hydro", replacement = "Hydro-large")
    input$Tech <- gsub(x = input$Tech, pattern = "Small Hydro", replacement = "Hydro-small")
    input$Tech <- gsub(x = input$Tech, pattern = "Wind", replacement = "Wind onshore")

    colnames(input)[2] <- "CI"
    colnames(input)[3] <- "OM"

    input$CI <- input$CI * input$`Construction Period`
    input <- input[, c(1:3)]
    x <- as.magpie(input)

    return(x)
  }

  if (subtype == "Employment") {
    input <- readxl::read_excel("Employment_CEEW.xlsx", sheet = 3)
    # Assuming FY2016 to be year 2015 and FY2019 to be year 2018
    input$Year <- gsub(x = input$Year, pattern = "FY16", replacement = "2015")
    input$Year <- gsub(x = input$Year, pattern = "FY17", replacement = "2016")
    input$Year <- gsub(x = input$Year, pattern = "FY18", replacement = "2017")
    input$Year <- gsub(x = input$Year, pattern = "FY19", replacement = "2018")
    # naming convention according to Rutovitz et al. 2015
    input$Tech <- gsub(x = input$Tech, pattern = "Utility-scale Solar", replacement = "Solar|PV-utility")
    input$Tech <- gsub(x = input$Tech, pattern = "Rooftop Solar", replacement = "Solar|PV-rooftop")
    input$Tech <- gsub(x = input$Tech, pattern = "Large Hydro", replacement = "Hydro-large")
    input$Tech <- gsub(x = input$Tech, pattern = "Small Hydro", replacement = "Hydro-small")
    input$Tech <- gsub(x = input$Tech, pattern = "Wind", replacement = "Wind onshore")

    x <- as.magpie(input, spatial = NULL)

    return(x)
  }
}
pik-piam/mrremind documentation built on Sept. 18, 2024, 2:58 p.m.