R/indexIfNoneFound.R

In arcolombo/TxDbLite: Lightweight SQLite-based annotation classes/packages for use with arkas

#' helper function for findDupes
#' 
#' @param fastaFile   the name of the FASTA file
#' @importFrom Rsamtools indexFa
#' @return   the index invisibly
#' 
#' @export
indexIfNoneFound <- function(fastaFile) {
  if (!file.exists(paste0(fastaFile, ".fai"))) {
    message("Indexing ", fastaFile, " to extract sequence names...")
    invisible(indexFa(fastaFile))
  }
}