R/internals.R

In DataSlingers/MoMA: MoMA - Modern Multivariate Analysis in R

#' @importFrom utils packageDescription
moma_git_hash <- function() {
    pd <- packageDescription("moma")
    gh_file <- system.file("GIT.HASH", package = "moma")

    if (!is.null(pd$RemoteSha)) { # devtools install
        return(pd$RemoteSha)
    } else if (file.exists(gh_file)) {
        return(readLines(gh_file))
    } else {
        NA
    }
}


#' Session Info used for Bug Reporting
#'
#' A helper function which prints information useful in
#' bug reports.
#'
#' @return None. Called for side-effects (printed to the screen)
#'        only.
#' @export
#' @importFrom utils sessionInfo
moma_session_info <- function() {
    old_print <- options(max.print = 9999)
    on.exit(options(old_print))

    cat("MoMA Git Hash: ", moma_git_hash(), "\n")

    if (requireNamespace("devtools")) {
        print(devtools::session_info("moma"))
    } else {
        print(sessionInfo())
    }

    invisible(NULL)
}