R/get_example_filenames.R

In pureseqtmr: Predict Transmembrane Protein Topology

#' Get the full path to all PureseqTM example files
#' @inheritParams default_params_doc
#' @return a character vector with all PureseqTM example files
#' @examples
#' if (is_pureseqtm_installed()) {
#'   get_example_filenames()
#' }
#' @seealso use \link{get_example_filename} to get the full
#'   path to a PureseqTM example file
#' @author Richèl J.C. Bilderbeek
#' @export
get_example_filenames <- function(
  folder_name = get_default_pureseqtm_folder()
) {
  pureseqtmr::check_pureseqtm_installation(folder_name)
  pureseqtm_folder <- file.path(folder_name, "PureseqTM_Package")
  testthat::expect_true(dir.exists(pureseqtm_folder))
  pureseqtm_examples_folder <- file.path(pureseqtm_folder, "example")
  testthat::expect_true(dir.exists(pureseqtm_examples_folder))
  list.files(
    pureseqtm_examples_folder,
    full.names = TRUE
  )
}