Defines functions .onAttach

.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) {
            "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")

Try the admixr package in your browser

Any scripts or data that you put into this service are public.

admixr documentation built on July 8, 2020, 6:19 p.m.