testParameterSetCollection(
object,
errormsg = paste(object, "is not an R6 ParameterSetCollection object")
)
checkParameterSetCollection(
object,
errormsg = paste(object, "is not an R6 ParameterSetCollection object")
)
assertParameterSetCollection(
object,
errormsg = paste(object, "is not an R6 ParameterSetCollection object")
)
Arguments
object
object to test
errormsg
custom error message to return if assert/check fails
Value
If check passes then assert returns invisibly and test/check
return TRUE. If check fails, assert stops code with error, check returns
an error message as string, test returns FALSE.