Update R/tt_as_df.R

Co-authored-by: Emily de la Rua <[email protected]> Signed-off-by: Davide Garolini <[email protected]>
insightsengineering · Dec 5, 2024 · d1317bf · d1317bf
1 parent 7187c7e
commit d1317bf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/tt_as_df.R b/R/tt_as_df.R
@@ -250,7 +250,7 @@ as_result_df <- function(tt, spec = NULL,
         stat_name <- lapply(seq_along(stat_name), function(sn_i) {
           stat_name[[sn_i]][seq_len(necessary_stat_lengths[sn_i])]
         })
-        stat_name[sapply(stat_name, function(x) length(x) == 0)] <- NA
+        stat_name[!nzchar(stat_name)] <- NA
 
         # unnesting stat_name and stat
         tmp_ret_by_col_i <- NULL