Create progress bar for R functions

I have a long waiting function like this myList <- lapply(X=input,rjson::fromJSON). Is it possible to create visible progress bar for this function(R-studio)? THX!