R/readProdShares.R

In pik-piam/mrremind: MadRat REMIND Input Data Package

#'Reads shares of world manufacture for spv modules and wind turbines.
#' @author Aman Malik
#' @importFrom dplyr bind_rows
#' @importFrom readxl read_excel

readProdShares <- function(){


  input_spv <- read_excel("shares.xlsx",sheet = "spv")
  input_spv$tech <- "spv"
  
  
  input_wind <- read_excel("shares.xlsx",sheet="wind")
  input_wind$tech <- "wind"
  
  input <- bind_rows(input_spv,input_wind)
  
  x <- as.magpie(input,spatial=1)
  
  return (x)

}