R/calcValidProductionGrowth.R

In pik-piam/mrplayground: MadRat playground

#' @title calcValidProductionGrowth
#' @description calculate historical production growth rate
#' 
#' 
#' @param datasource which data to use
#' @param detail if true, provides results for all commodities, otherwhise aggregates some groups
#' @param base_year y1995
#' @return Production growth rates (index)
#' @author Xiaoxi Wang
#' @examples
#' 
#'   \dontrun{
#'     x <- calcValidProductionGrowth(datasource = "FAO", detail = TRUE,base_year ="y1995")
#'   }
#' @importFrom  magpiesets findset


calcValidProductionGrowth <- function(datasource = "FAO", detail = TRUE,base_year ="y1995"){
  x <- calcOutput("ValidProduction",supplementary = TRUE)
  isocountries  <- x$isocountries
  x <- x$x
  if (any(grepl("\\+\\|", getNames(x)))) getNames(x) <- gsub("\\+\\|","",getNames(x))
  getNames(x) <- gsub("Production","Production growth rate",getNames(x))
  if(is.null(base_year)) base_year <- "y1995"
  x <- round(x,2)/setYears(round(x[,base_year,],2),NULL)
  x[(is.nan(x))] <- 0
  x[(is.infinite(x))] <- 0
  weight <- round(x[,base_year,],2)
  description <- "Production growth rate"
  return(list(x=x,weight=weight,description =description,isocountries = isocountries)) 
}