Fix test error

insightsengineering · Oct 3, 2023 · 811cc50 · 811cc50
1 parent ed9bb05
commit 811cc50
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/utils_default_stats_formats_labels.R b/R/utils_default_stats_formats_labels.R
@@ -279,7 +279,8 @@ get_indents_from_stats <- function(stats, indents_in = NULL, row_nms = NULL) {
   }
 
   if (is.null(names(indents_in)) && length(indents_in) == 1) {
-    return(indents_in)
+    out <- rep(indents_in, length(stats) * if (!is.null(row_nms)) length(row_nms) else 1)
+    return(out)
   }
 
   if (!is.null(row_nms)) {