Summarize w/ across(): cleaner

clean <- df |> summarize(
  n = n(), 
  dplyr::across(a:c, median)
)
identical(clean, messy)

## [1] TRUE