Civilytics/civilyticsR
3
0
Fork 0
Code Issues 8 Pull Requests Actions Packages Projects Releases Wiki Activity

fix message unicode
Gitea Organization/civilyticsR/pipeline/head This commit looks good
Details

Browse Source
This commit is contained in:
jared
2024-09-19 16:14:30 -04:00
parent 962f8ea6b7
commit f3f13fcfe5
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/utils.R
+1 -1
View File
@@ -158,7 +158,7 @@ race_short_names <- function(x) {
#' na_sum(x) # 15 #' na_sum(x) # 15
na_sum <- function(x) { na_sum <- function(x) {
stopifnot(is.numeric(x)) stopifnot(is.numeric(x))
message("Taking a sum with missing values equal to 0, be careful! \u1F601") message("Taking a sum with missing values equal to 0, be careful!")
x <- na_zero(x) x <- na_zero(x)
return(sum(x)) return(sum(x))
} }
tests/testthat/test_utils.R
+1 -1
View File
@@ -50,7 +50,7 @@ test_that("Function subs out NAs in numeric vectors with 0", {
# Test that na_sum works # Test that na_sum works
test_that("NA Sum takes sum setting NA values to 0", { test_that("NA Sum takes sum setting NA values to 0", {
expect_equivalent(na_sum(c(1:10, NA)), sum(1:10, 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! \u1F601") expect_message(na_sum(c(1:10, NA)), "Taking a sum with missing values equal to 0, be careful!")
}) })
test_that("na_sum fails with non-numerics", { test_that("na_sum fails with non-numerics", {