Is a Progress Bar possible while running ExecuteDiagnostics()?

[berzinpeter]

I was asked by a client if we can have a running progress bar on the R Shiny app while invoking the executediagnostics() function in the code. I was not able to find a way since the export folder is empty before the run and has files after the run. Is there a way to get that output while the code is running? I assume not.