# NOT RUN {
# chk_unused
fun <- function(x, ...) {
chk_unused(...)
x
}
fun(1)
try(fun(1, 2))
# vld_unused
fun <- function(x, ...) {
vld_unused(...)
}
fun(1)
try(fun(1, 2))
# chk_used
fun <- function(x, ...) {
chk_used(...)
x
}
try(fun(1))
fun(1, 2)
# vld_used
fun <- function(x, ...) {
vld_used(...)
}
fun(1)
fun(1, 2)
# }
Run the code above in your browser using DataLab