R/calcExoTcDummy.R

In pik-piam/moinput: Model Operations Input Data Library

#' calcExoTcDummy
#' 
#' Dummy file for regional exogenous tau path
#' 
#' @return Dummy file for regional exogenous tau path
#' @author Florian Humpenoeder
#' @seealso \code{\link{setConfig}}, \code{\link{readSource}},
#' \code{\link{calcOutput}}

calcExoTcDummy <- function() {
  #data(moinput)
  iso_country <- read.csv2(system.file("extdata","iso_country.csv",package = "moinput"),row.names=NULL)
  iso_country1<-as.vector(iso_country[,"x"])
  names(iso_country1)<-iso_country[,"X"]
  x <- new.magpie(cells_and_regions = iso_country1,years = seq(1995,2150,by=5), names = NULL, fill = 0)
  
  return(list(x=x,
              weight=NULL,
              unit="-",
              description="Dummy file for regional exogenous tau path",
              note='All values in the file are set to 0 if a new regional setup is used'))
}