R/nr_fertilizer.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_fertilizer
#'
#' @param fulldata data to perform actions on
#' @param nutrient the nutrient
#'
#' @author Jan-Philipp Dietrich
nr_fertilizer<-function(fulldata, nutrient="nr") {
    if(nutrient=="nr"){
        nr<-collapseNames(readGDX(fulldata, "ov51_nr_inorg_fert_reg", format="first_found")[,,"level"])
    } else {stop("only nr fertlizer parametrized in fertilizer()")}
    return(nr)
}