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"
)
object to test
error message to overwrite default if check fails
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
.
# NOT RUN {
testConditionalSet(Set$new(2, 3))
testConditionalSet(list(Set$new(2), Set$new(3)))
testConditionalSet(Tuple$new(2, 3))
testConditionalSet(Interval$new())
testConditionalSet(FuzzySet$new(2, 0.1))
testConditionalSet(FuzzyTuple$new(2, 0.1))
testConditionalSet(ConditionalSet$new(function(x) x == 0))
# }
Run the code above in your browser using DataLab