#' nr_food_kcal_pc
#'
#' @param fulldata data to perform actions on
#' @param populationcsv ???
#' @param fish_PJ_csv ???
#'
#' @author Jan-Philipp Dietrich
nr_food_kcal_pc<-function(fulldata, populationcsv,fish_PJ_csv=NULL){
pop<-read.magpie(populationcsv)
food_dem<-readGDX(fulldata,"i16_food_demand","f16_food_demand", format="first_found")
food_dem_pc<-setNames(food_dem/pop/365/4.184*1000000,"food_kcal_pcpd_no_fish")
if (!is.null(fish_PJ_csv)) {
fish_dem_pc<-nr_fish_kcal_pc(populationcsv=populationcsv,fish_PJ_csv=fish_PJ_csv)
food_dem_pc<-setNames(food_dem_pc+fish_dem_pc,"food_kcal_pcpd_incl_fish")
}
return(food_dem_pc)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.