rnorm(30) %>%
mean

rnorm(30) %>%
median

rnorm(30) %>% { c(mean = mean(.), median = median(.)) }
#       mean     median
# -0.2477345 -0.1126395

f <- function(x) c(mean = mean(x), median = median(x))
rnorm(30) %>% f
#        mean      median
# -0.12908354 -0.06667819