#' 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)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.