Group Index Does Not Print When Applying stby Through a Function on a List of Data Frames

[greg-botwin]

Hi, I love the package. Huge thank you for your efforts in maintenance and improvements!

Issue: I am attempting to lapplythrough a large number of data frames and I am uncovering a minor annoyance. When calling stby through an apply function, the group index name fails to print. Any idea on how I can get the similar behavior as if I called 'stby' individually? Below is a minimal example.

library(summarytools)
test_list <- list(df1 = data.frame(Group = c("a", "b", "a"), Data = c(2,4,6)),
                  df2 = data.frame(Group = c("c", "d", "c"), Data = c(3,5, 7)))

test_function <- function(x){
  summary <- stby(data = x, 
                  INDICES   = x$Group, 
                  FUN       = dfSummary, 
                  stats     = "common", 
                  transpose = TRUE,
                  simplify = FALSE)
}

lapply(test_list, test_function)

^{Created on 2023-11-12 with reprex v2.0.2}

Session info

``` r sessionInfo() #> R version 4.0.2 (2020-06-22) #> Platform: x86_64-w64-mingw32/x64 (64-bit) #> Running under: Windows 10 x64 (build 19045) #> #> Matrix products: default #> #> locale: #> [1] LC_COLLATE=English_United States.1252 #> [2] LC_CTYPE=English_United States.1252 #> [3] LC_MONETARY=English_United States.1252 #> [4] LC_NUMERIC=C #> [5] LC_TIME=English_United States.1252 #> #> attached base packages: #> [1] stats graphics grDevices utils datasets methods base #> #> loaded via a namespace (and not attached): #> [1] digest_0.6.29 withr_2.5.2 lifecycle_1.0.3 reprex_2.0.2 #> [5] evaluate_0.23 rlang_1.1.2 cli_3.6.1 rstudioapi_0.15.0 #> [9] fs_1.5.2 rmarkdown_2.25 tools_4.0.2 glue_1.6.2 #> [13] xfun_0.41 yaml_2.3.5 fastmap_1.1.0 compiler_4.0.2 #> [17] htmltools_0.5.7 knitr_1.45 ```