CODEWITHSUNDEEP
rdeprecation-warningtestthat
Sam Firke
Sam Firke

Reputation: 23014

Unit tests for deprecated functions in R package cause warnings during check

I've deprecated several functions in my R package by including a .Deprecated("new_function_name") line at the start of the function. I had full unit test coverage for those deprecated functions. Now those tests produce warnings (because of the deprecation message) and muddy up the results of testthat::test() and devtools::check().

I could just delete the test coverage for deprecated functions, but it seems like as long as users can still call the functions, I should retain test coverage. Is there a way I can keep the tests but avoid the clutter in the result of check()? E.g., tell testthat to count them as passing if the expect_equal() still works, ignoring the deprecation warnings?

Upvotes: 9

Views: 703

Answers (2)

Michael Dewar
Michael Dewar

Reputation: 3258

This is an old question, but now the 'lifecycle' package offers a good method. The documentation is clear and concise:

library(testthat)

mytool <- function() {
  deprecate_soft("1.0.0", "mytool()")
  10 * 10
}

# Forcing the verbosity level is useful for unit testing. You can
# force errors to test that the function is indeed deprecated:
test_that("mytool is deprecated", {
  rlang::local_options(lifecycle_verbosity = "error")
  expect_error(mytool(), class = "defunctError")
})

# Or you can enforce silence to safely test that the function
# still works:
test_that("mytool still works", {
  rlang::local_options(lifecycle_verbosity = "quiet")
  expect_equal(mytool(), 100)
})

You can use tests/testthat/setup.R to set the option globally for the tests.

Upvotes: 2

Dason
Dason

Reputation: 61933

.Deprecated produces a warning. So you can always temporarily store the output and wrap that in a call to expect_warning or suppressWarnings if you don't care to test that it gives a warning.

my_dep_fun <- function(x){
   .Deprecated("my_new_fun")
   return(x+1)
}

Using this 

> # This is what I expect you're doing right now
> expect_equal(my_dep_fun(3), 4)
Warning message:
'my_dep_fun' is deprecated.
Use 'my_new_fun' instead.
See help("Deprecated") 
> 
> # If we store and use expect_warning we don't get the warning
> expect_warning(tmp <- my_dep_fun(3))
> expect_equal(tmp, 4)
> # Alternatively...
> suppressWarnings(expect_equal(my_dep_fun(3), 4))
>

Upvotes: 8

Related Questions