tstFn <- function(x)missing0(x)
# missing
stopifnot(
all.equal(tstFn(), TRUE)
)
# length 0
stopifnot(
all.equal(tstFn(logical()), TRUE)
)
# supplied
stopifnot(
all.equal(tstFn(1), FALSE)
)
Run the code above in your browser using DataLab