R/system-check-scalar-isCleanSystemLibrary.R

In steinbaugh/goalie: Assertive Check Functions

#' Is the R system library clean?
#'
#' @name check-scalar-isCleanSystemLibrary
#' @note Updated 2023-10-06.
#'
#' @inherit check return
#'
#' @examples
#' isCleanSystemLibrary()
NULL



#' @rdname check-scalar-isCleanSystemLibrary
#' @export
isCleanSystemLibrary <- function() {
    requireNamespaces("utils")
    x <- utils::installed.packages()
    ## Subset information on base packages.
    base <- x[which(x[, "Priority"] == "base"), , drop = FALSE]
    ## Expect a single system library.
    syslib <- unique(base[, "LibPath"])
    if (!identical(length(syslib), 1L)) {
        return(false("Detected multiple system libraries."))
    }
    ## Subset packages in the system library.
    system <- x[which(x[, "LibPath"] == syslib), ]
    if (isTRUE(anyNA(system[, "Priority"]))) {
        return(false("Detected user-installed packages in system library."))
    }
    ## Check for packages built against a different point release.
    version <- getRversion()
    version <- sub(pattern = "\\.\\d$", replacement = "", x = version)
    if (!all(grepl(
        pattern = paste0("^", version),
        x = system[, "Built"]
    ))) {
        ## e.g. Ubuntu CRAN binary install now fails this.
        return(false("Detected packages built against a different release."))
    }
    TRUE
}