From b94e296426fb539389fc914ccad223d3f63b9ca6 Mon Sep 17 00:00:00 2001 From: Andrew Johnson Date: Sat, 8 Jun 2024 03:33:21 +0300 Subject: [PATCH] Update data.R --- R/data.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/data.R b/R/data.R index 09f9486e..ce5b9cf6 100644 --- a/R/data.R +++ b/R/data.R @@ -188,7 +188,7 @@ process_data <- function(data, model_variables = NULL) { && !is.integer(data[[var_name]])) { if (!isTRUE(all(is_wholenumber(data[[var_name]])))) { # Don't warn for NULL/NA, as different warnings are used for those - if (!any(is.null(data[[var_name]]) || is.na(data[[var_name]]))) { + if (!isTRUE(any(is.na(data[[var_name]])))) { warning("A non-integer value was supplied for '", var_name, "'!", " It will be truncated to an integer.", call. = FALSE) }