R/nr_intake.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_intake
#'
#' @param fulldata data to perform actions on
#' @param waste_shr ???
#' @param fish_PJ_csv ???
#'
#' @author Jan-Philipp Dietrich
nr_intake<-function(fulldata, waste_shr, fish_PJ_csv=NULL){
    if (!is.null(fish_PJ_csv)) {
            food1<-nr_food_products(fulldata=fulldata)
            food2<-nr_fish(fish_PJ_csv=fish_PJ_csv)[,getYears(food1),]
            food_demand<-food1+setNames(food2,NULL) 
    }else {
        food_demand<-nr_food_products(fulldata=fulldata)
    }
    out<-food_demand*(1-setNames(waste_shr,NULL)[,getYears(food_demand),])
    return(setNames(out,"intake"))
}