R/paths-koopa.R

In acidgenomics/r-koopa: Shell Bootloader for Bioinformatics

#' Koopa paths
#'
#' @name paths
#' @note Updated 2020-08-23.
#'
#' @examples
#' koopa()
#' koopaPrefix()
#' koopaAppPrefix()
NULL



#' @rdname paths
#' @export
koopa <- function() {
    cmd <- "koopa"
    assert(isASystemCommand(cmd))
    x <- Sys.which(cmd)
    assert(isAFile(x))
    x <- unname(x)
    x <- realpath(x)
    x
}



#' @rdname paths
#' @export
koopaPrefix <- function() {
    x <- koopa()
    x <- file.path(dirname(x), "..")
    x <- realpath(x)
    x
}



#' @rdname paths
#' @export
koopaAppPrefix <- function() {
    x <- shell(
        command = koopa(),
        args = c("system", "prefix", "app"),
        print = FALSE
    )
    x <- .stdoutString(x)
    x
}



#' @rdname paths
#' @export
koopaOptPrefix <- function() {
    x <- shell(
        command = koopa(),
        args = c("system", "prefix", "opt"),
        print = FALSE
    )
    x <- .stdoutString(x)
    x
}