summary_output.R

library(dplyr)

d <- data.frame(x=rnorm(10), y=runif(10))

tab <- t(sapply(d, function(v) return(list(min=min(v), 
                                           "1st q"=quantile(v, 0.25), 
                                           median=median(v), 
                                           max=max(v)))))
tab <- data.frame(tab)
tab$name <- rownames(tab)
tab <- select(tab, name, everything() )
tab
write.csv(tab, file="foo.csv", row.names = FALSE)