#' nr_livestock_products
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_livestock_products<-function(fulldata) {
kli <- expand.set(fulldata,"kli")
out <- livestock_production(fulldata)[,,kli]*collapseNames(readGDX(fulldata, "f55_attributes_livstproducts", format="first_found")[,,"nr"][,,kli])
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.