R/entityCodeList.R

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

#' entityCodeList 
#'
#' entityCodeList 
#'
#'
#' @inheritParams common_attributes 
#' @param entityReference A reference to the id of the entity in which the code list has been defined See [entityReference()]
#' @param valueAttributeReference A reference to the id of the attribute that contains the list of codes See [valueAttributeReference()]
#' @param definitionAttributeReference A reference to the id of the attribute that contains the definition of codes See [definitionAttributeReference()]
#' @param orderAttributeReference A reference to the id of the attribute that contains the order of codes See [orderAttributeReference()]
#'
#' @return a entityCodeList list object
#'
#' @export

 entityCodeList <- function(entityReference = NULL,
 valueAttributeReference = NULL,
 definitionAttributeReference = NULL,
 orderAttributeReference = NULL){ 
Filter(Negate(is.null),
 list(
entityReference = entityReference,
valueAttributeReference = valueAttributeReference,
definitionAttributeReference = definitionAttributeReference,
orderAttributeReference = orderAttributeReference))}