Check coverage of file when `test_coverage_active_file()` does not find Rds files in tests

alt_coverage.R

alt_coverage <- function(file_name =  devtools:::find_active_file() |> 
                            fs::path_file(),
                          report = TRUE) {
  
  rf <- fs::path("R", file_name)
  tf <- "tests/testthat" |> 
    fs::path(paste0("test-", file_name))
  
  dd <- covr::file_coverage(source_files = rf, 
                           test_files = tf) 
  
  
  if (report == TRUE) {
   covr::report(dd)
  }
  
  dd
}