R/list_test_files.R

In testthis: Utils and 'RStudio' Addins to Make Testing Even More Fun

list_test_files <- function(
  full_names = TRUE,
  skip = FALSE,
  recursive = TRUE
){
  tpath <- file.path(usethis::proj_get(), 'tests', 'testthat')
  res   <- list.files(
    tpath,
    full.names = TRUE,
    recursive = recursive
  )

  res <- res[grepl('.*\\.R$', res, ignore.case = TRUE)]

  if(skip){
    res <- skip_test_files(res)
  }

  if(identical(full_names, FALSE)){
    res <- basename(res)
  }

  return(res)
}




list_rdir_files <- function(
  full_names = TRUE,
  skip = FALSE
){
  tpath   <- file.path(usethis::proj_get(), 'R')
  list.files(
    tpath,
    full.names = full_names
  )
}




skip_test_files <- function(ttfiles){
  skip <- vector('logical', length(ttfiles))
  for(i in seq_along(ttfiles)){
    x <- get_taglist(ttfiles[[i]])
    skip[[i]] <- !is.null(get_tag(x, 'skip'))
  }
  return(ttfiles[!skip])
}