Maybe this is a better solution. No complaining from broom!
library(tidyverse)
iris %>%
as_tibble() %>%
group_by(Species) %>%
summarize_all(~summary(.) %>% as_tibble_row() %>% list()) %>%
unnest(-Species, names_sep = "_")
#> # A tibble: 3 x 25
#> Species Sepal.Length_Mi~ `Sepal.Length_1~ Sepal.Length_Me~ Sepal.Length_Me~
#> <fct> <table> <table> <table> <table>
#> 1 setosa 4.3 4.800 5.0 5.006
#> 2 versicolor 4.9 5.600 5.9 5.936
#> 3 virginica 4.9 6.225 6.5 6.588
#> # ... with 20 more variables: Sepal.Length_3rd Qu. <table>,
#> # Sepal.Length_Max. <table>, Sepal.Width_Min. <table>,
#> # Sepal.Width_1st Qu. <table>, Sepal.Width_Median <table>,
#> # Sepal.Width_Mean <table>, Sepal.Width_3rd Qu. <table>,
#> # Sepal.Width_Max. <table>, Petal.Length_Min. <table>,
#> # Petal.Length_1st Qu. <table>, Petal.Length_Median <table>,
#> # Petal.Length_Mean <table>, Petal.Length_3rd Qu. <table>, ...
Created on 2022-01-18 by the reprex package (v2.0.1)