R/calcFAOFodder_aggrFEED.R

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

#' Calculate FAO Fodder Crop aggregated to MAgPIE_FEED sectors
#' 
#' Provides the FAOSTAT Fodder data aggregated to three MAgPIE_FEED fodder
#' categories.
#' 
#' 
#' @return FAO fodder data and corresponding weights as a list of two MAgPIE
#' objects
#' @author Isabelle Weindl
#' @seealso \code{\link{calcOutput}}, \code{\link{readFAO}},
#' \code{\link{convertFAO}}, \code{\link{readSource}}
#' @examples
#' 
#' \dontrun{ 
#' 
#' a <- calcOutput("FAOFodder_aggrFEED")
#' 
#' }
#' @importFrom utils read.csv

calcFAOFodder_aggrFEED <- function() {
  
  data <- readSource("FAO", "Fodder")
  # load sectoral mapping
  aggregation <- read.csv(toolMappingFile("sectoral","FAOFodder_magpieFEED_mapping.csv")) 
  # sectoral aggregation of data  
  data_agg <- toolAggregate(data, rel=aggregation, from="ProductionItem", to="MAgPIE_FEED_items", dim=3.1, partrel = TRUE)
    
  return(list(x=data_agg,
              weight=NULL,
              unit="in tonnes WM, if not specified differently in the dimension name",
              description="FAO fodder data aggregated to MAgPIE_FEED categories")
  )
}