R/codeDefinition.R

In cboettig/build.eml: Build Ecological Metadata Language Files

#' codeDefinition 
#'
#' codeDefinition 
#'
#'
#' @inheritParams common_attributes 
#' @param code Code value allowed in the domain See [code()]
#' @param definition Definition of the associated code See [definition()]
#' @param source The name of the source for this code and its definition See [source()]
#' @param order Mechanism for specifying what the order of the code-definitions included should be
#'
#' @return a codeDefinition list object
#'
#' @export

 codeDefinition <- function(code = NULL,
 definition = NULL,
 source = NULL,
 order = NULL){ 
Filter(Negate(is.null),
 list(
code = code,
definition = definition,
source = source,
order = order))}