using dplyr summarise() with across() with glue-based formatting does not produce column names as expected

Question

In R, I am trying to aggregate multiple columns by computing multiple summary statistics. I also want to use .names argument in across() function s