This commit is contained in:
@@ -50,7 +50,7 @@ test_that("Function subs out NAs in numeric vectors with 0", {
|
||||
# Test that na_sum works
|
||||
test_that("NA Sum takes sum setting NA values to 0", {
|
||||
expect_equivalent(na_sum(c(1:10, NA)), sum(1:10, 0))
|
||||
expect_message(na_sum(c(1:10, NA)), "Taking a sum with missing values equal to 0, be careful 🐲")
|
||||
expect_message(na_sum(c(1:10, NA)), "Taking a sum with missing values equal to 0, be careful! \u1F601")
|
||||
})
|
||||
|
||||
test_that("na_sum fails with non-numerics", {
|
||||
|
||||
Reference in New Issue
Block a user