Nothing
context("deprecatedArg")
test_that("basic",{
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)
)
expect_equal(fun1(a=1),1)
bb=3
fun1(b=bb)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.