R/constraint.R

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

#' constraint 
#'
#' constraint 
#'
#'
#' @inheritParams common_attributes 
#' @param primaryKey The primary key in the entity See [primaryKey()]
#' @param uniqueKey A unique key in the entity See [uniqueKey()]
#' @param checkConstraint A constraint which checks a conditional clause within an entity. See [checkConstraint()]
#' @param foreignKey A foreign key relationship among entities See [foreignKey()]
#' @param joinCondition A non primary/foreign key join See [joinCondition()]
#' @param notNullConstraint A constraint that indicates that no null values should be present for an attribute. See [notNullConstraint()]
#'
#' @return a constraint list object
#'
#' @export

 constraint <- function(primaryKey = NULL,
 uniqueKey = NULL,
 checkConstraint = NULL,
 foreignKey = NULL,
 joinCondition = NULL,
 notNullConstraint = NULL,
 id = NULL,
 system = NULL,
 scope = NULL){ 
Filter(Negate(is.null),
 list(
primaryKey = primaryKey,
uniqueKey = uniqueKey,
checkConstraint = checkConstraint,
foreignKey = foreignKey,
joinCondition = joinCondition,
notNullConstraint = notNullConstraint,
id = id,
system = system,
scope = scope))}