Was not sure if the was allowed or not. Will not do again. In any case the proposed solution to this was
varsum <- sapply(a, function(x) c(summary(x), type = class(x), label = ...))
write.csv(varsum, file = 'varsum.csv')
But this did not work. and so I did a messy two step work around to tabulate all the variables and basic information and lables.
varsum = summary(aa)
write.csv(varsum, file = 'varsum.csv')
varlab = get_label(aa, def.value = NULL, case = NULL)
write.csv(varlab, file = 'varlab.csv')