damn

easystats · Sep 9, 2024 · e3e2523 · e3e2523
1 parent 07b67fa
commit e3e2523
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/R/utilities.R b/R/utilities.R
@@ -89,7 +89,7 @@ n_unique <- function(x, ...) {
 
 #' @rdname trim_ws
 #' @export
-n_unique.default <- function(x, remove_na = TRUE, na.rm, ...) {
+n_unique.default <- function(x, remove_na = TRUE, na.rm = TRUE, ...) {
   if (is.null(x)) {
     return(0)
   }
@@ -103,23 +103,23 @@ n_unique.default <- function(x, remove_na = TRUE, na.rm, ...) {
 }
 
 #' @export
-n_unique.data.frame <- function(x, remove_na = TRUE, na.rm, ...) {
+n_unique.data.frame <- function(x, remove_na = TRUE, na.rm = TRUE, ...) {
   ## TODO:: remove deprecation warning later
   if (!missing(na.rm)) {
     format_warning("The `na.rm` argument is deprecated. Use `remove_na` instead.")
     remove_na <- na.rm
   }
-  vapply(x, n_unique, na.rm = remove_na, FUN.VALUE = numeric(1L))
+  vapply(x, n_unique, remove_na = remove_na, FUN.VALUE = numeric(1L))
 }
 
 #' @export
-n_unique.list <- function(x, remove_na = TRUE, na.rm, ...) {
+n_unique.list <- function(x, remove_na = TRUE, na.rm = TRUE, ...) {
   ## TODO:: remove deprecation warning later
   if (!missing(na.rm)) {
     format_warning("The `na.rm` argument is deprecated. Use `remove_na` instead.")
     remove_na <- na.rm
   }
-  lapply(x, n_unique, na.rm = remove_na)
+  lapply(x, n_unique, remove_na = remove_na)
 }
 
 
@@ -155,7 +155,7 @@ safe_deparse_symbol <- function(x) {
 
 #' @rdname trim_ws
 #' @export
-has_single_value <- function(x, remove_na = FALSE, na.rm, ...) {
+has_single_value <- function(x, remove_na = FALSE, na.rm = TRUE, ...) {
   ## TODO:: remove deprecation warning later
   if (!missing(na.rm)) {
     format_warning("The `na.rm` argument is deprecated. Use `remove_na` instead.")