assert/check/test/ConditionalSet

Validation checks to test if a given object is an R6 ConditionalSet.

testConditionalSet(
  object,
  errormsg = "This is not an R6 ConditionalSet object"
)

checkConditionalSet(
  object,
  errormsg = "This is not an R6 ConditionalSet object"
)

assertConditionalSet(
  object,
  errormsg = "This is not an R6 ConditionalSet object"
)

Arguments

object	object to test
errormsg	error message to overwrite default if check fails

Value

If check passes then assert returns object invisibly and test/check return TRUE. If check fails, assert stops code with error, check returns an error message as string, and test returns FALSE.

Examples

testConditionalSet(Set$new(2, 3))
#> [1] FALSE
testConditionalSet(list(Set$new(2), Set$new(3)))
#> [1] FALSE
testConditionalSet(Tuple$new(2, 3))
#> [1] FALSE
testConditionalSet(Interval$new())
#> [1] FALSE
testConditionalSet(FuzzySet$new(2, 0.1))
#> [1] FALSE
testConditionalSet(FuzzyTuple$new(2, 0.1))
#> [1] FALSE
testConditionalSet(ConditionalSet$new(function(x) x == 0))
#> [1] TRUE