testthat shinytest does not contribute to the coverage

[stla]

Hello,

I have a package containing a Shiny app. Obviously the functions of the package which are used in the Shiny app do not contribute to the coverage. But I test my Shiny app with shinytest and testthat:

test_that("Shiny test", {
  skip_if_not_installed("shinytest")
  library(shinytest)
  expect_pass(
    testApp(
      system.file("shinyapp", package = "circularDichroismData"),
      compareImages = FALSE
    )
  )
})

I expected that thanks to this test, the functions used in the Shiny app would contribute to the coverage, since covr takes into account the unit tests. But no, this is not the case.