R/zzz.R

In admixr: An Interface for Running 'ADMIXTOOLS' Analyses

.onAttach <- function(libname, pkgname) {
  ## check for presence of an ADMIXTOOLS command on user's PATH and display
    ## a warning if it's not present
    cmds  <- c("qp3Pop", "qpDstat", "qpF4ratio", "qpAdm", "qpWave")
    path_check <- all(Sys.which(cmds) != "")
    if (!path_check) {
        packageStartupMessage(
            "ADMIXTOOLS programs required by admixr are not in your $PATH variable.\n",
            "At the very least, the following programs should be available:\n    ",
            paste(cmds, collapse = ", "),
            "\nMake sure to modify the $PATH variable in your .Renviron file so \n",
            "that it points to the directory containing the ADMIXTOOLS programs.\n")
    }
}