df <- data.frame(a = 1:3, b = 4:6)
# Apply a function that returns column mean and name
fmapc(df, function(x, name) list(mean = mean(x), var = var(x), name = name))
# With progress and parallel execution
# \donttest{
fmapc(df, function(x, name) mean(x), ncores = 2, pb = TRUE)
# }
Run the code above in your browser using DataLab