Incorect code coverage using covr on shinytest2 + testthat tests

[StatisMike]

I've encountered a problem during calculation of code coverage using covr. Even though the tests scripts were executing lines, they were not appearing in the results of covr::package_coverage().

Issue was reported there, and it seems like, as the answer here points out, the app_stop() is executing SIGKILL too soon for covr to trace the lines.

Using this answer as a guidelines, I was able to countermeasure this problem using a simple function that is executed before calling app$stop():

app_wait <- function(app,
                     time = 1000) {
  
  app$.__enclos_env__$private$shiny_process$interrupt()
  app$.__enclos_env__$private$shiny_process$wait(timeout = time)
}

I suggest either upping the time before the SIGKILL execution or providing the user an option to overwrite this time.