R/test_installation_blast.R

In HajkD/LTRpred: De novo functional annotation of retrotransposons

#' @title Helper function to test BLAST installation
#' @noRd
test_installation_blast <- function() {
# test if a valid BLAST version is installed
tryCatch({
    sys_out <-
        system("blastp -version", intern = TRUE)
}, error = function(e)
    stop(
        "It seems like you don't have BLAST installed locally on your machine or the PATH variable to the BLAST program is not set correctly. Please go to https://www.ncbi.nlm.nih.gov/books/NBK279671/ and install BLAST on your machine.",
        call. = FALSE
    ))

if (any(stringr::str_detect(sys_out, "blast")))
    return(TRUE)

}