if (FALSE) {
fun1 <- function(a=1,b=2){
## b is deprecated
a <- deprecatedArg("b","a")
a
}
expect_error(
fun1(a=1,b=2)
)
expect_message(
fun1(b=2)
)
}
Run the code above in your browser using DataLab