R/file_utilities.R

In alexpiper/seqateurs: Tools for trimming and processing sequence data

#' Find executable
#'
#' @param exe
#' @param interactive
#'
#' @return
#' @export
#'
#' @examples
.findExecutable <- function(exe, interactive=TRUE) {
  path <- Sys.which(exe)
  if(all(path=="")) {
    if(interactive) stop("Executable for ", paste(exe, collapse=" or "), " not found! Please make sure that the software is correctly installed and, if necessary, path variables are set.", call.=FALSE)
    return(character(0))
  }

  path[which(path!="")[1]]
}