Summarize w/ across(): motivation

messy <- df |> summarize(
  n = n(), 
  a = median(a), 
  b = median(b), 
  c = median(c)
)