From af43f7a5075cba0557434b2c3e12964acbec2bcc Mon Sep 17 00:00:00 2001 From: Emily de la Rua Date: Wed, 14 May 2025 17:24:36 -0400 Subject: [PATCH] Fix warning from `get_formats_from_stats()` --- R/utils_default_stats_formats_labels.R | 2 ++ 1 file changed, 2 insertions(+) diff --git a/R/utils_default_stats_formats_labels.R b/R/utils_default_stats_formats_labels.R index bd0de67df9..4cab644751 100644 --- a/R/utils_default_stats_formats_labels.R +++ b/R/utils_default_stats_formats_labels.R @@ -286,6 +286,8 @@ get_formats_from_stats <- function(stats, out <- .fill_in_vals_by_stats(levels_per_stats, formats_in, tern_defaults) # Default to NULL if no format + which_null <- names(which(sapply(levels_per_stats, is.null))) + levels_per_stats[which_null] <- which_null case_input_is_not_stat <- unlist(out, use.names = FALSE) == unlist(levels_per_stats, use.names = FALSE) out[names(out) == out | case_input_is_not_stat] <- list(NULL)