R/descriptor.R

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

#' descriptor 
#'
#' descriptor 
#'
#'
#' @inheritParams common_attributes 
#' @param descriptorValue Description of some aspect of the study area. See [descriptorValue()]
#' @param citation A citation for this descriptor. See [citation()]
#' @param name The name of the descriptor system.
#' @param citableClassificationSystem This boolean attribute defines whether this descriptor comes from a citable classification system or not.
#'
#' @return a descriptor list object
#'
#' @export

 descriptor <- function(descriptorValue = NULL,
 citation = NULL,
 name = NULL,
 citableClassificationSystem = NULL){ 
Filter(Negate(is.null),
 list(
descriptorValue = descriptorValue,
citation = citation,
name = name,
citableClassificationSystem = citableClassificationSystem))}