R/rangeOfDates.R

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

#' rangeOfDates 
#'
#' rangeOfDates 
#'
#'
#' @inheritParams common_attributes 
#' @param beginDate A single time stamp signifying the beginning of some time period See [beginDate()]
#' @param endDate A single time stamp signifying the end of some time period See [endDate()]
#'
#' @return a rangeOfDates list object
#'
#' @export

 rangeOfDates <- function(beginDate = NULL,
 endDate = NULL){ 
Filter(Negate(is.null),
 list(
beginDate = beginDate,
endDate = endDate))}