# NOT RUN {
arg1 <- TRUE
checkLogicVec(list(arg1))
# }
# NOT RUN {
checkLogicVec(list(TRUE, T, 2))
checkLogicVec(list(TRUE, T, 2), c('Var1', 'Var2', 'Var3'))
arg2 <- 0.8
checkLogicVec(list(arg2))
checkLogicVec(list(arg2, 'T', 2))
# }
Run the code above in your browser using DataLab