Is there an elegant way to show a progress bar during the computation of a grouped data.frame in R?

Question

I am applying a complex function to a grouped data.frame. For simplicity reasons, here, this function will be treated as the colSums function. Let\'s assume we have the foll