fix message unicode

2024-09-19 16:14:30 -04:00
parent 962f8ea6b7
commit f3f13fcfe5
2 changed files with 2 additions and 2 deletions
@@ -158,7 +158,7 @@ race_short_names <- function(x) {
 #' na_sum(x) # 15
 na_sum <- function(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)
  return(sum(x))
 }