R/spheroid.R

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

#' spheroid 
#'
#' spheroid 
#'
#'
#' @inheritParams common_attributes 
#' @param name The name of the spheroid.
#' @param semiAxisMajor The larger of two orthogonal axes that define the ellipse
#'
#' @return a spheroid list object
#'
#' @export

 spheroid <- function(name = NULL,
 semiAxisMajor = NULL,
 denomFlatRatio = NULL){ 
Filter(Negate(is.null),
 list(
name = name,
semiAxisMajor = semiAxisMajor,
denomFlatRatio = denomFlatRatio))}