# NOT RUN {
arg1 <- 'something'
checkLength(list(arg1), 1)
checkLength(list('somethingElse', TRUE), 1)
checkLength(list('somethingElse', TRUE), c(1, 1))
arg2 <- 2:5
checkLength(list(arg1, arg2), c(1, 4))
# }
# NOT RUN {
checkLength(list(arg1, arg2), 1)
# }
Run the code above in your browser using DataLab