R/check-pkgname-available.R

In ropenscilabs/pkgcheck: rOpenSci Package Checks

#' Check that package name is available and/or already on CRAN.
#'
#' @param checks A 'pkgcheck' object with full \pkg{pkgstats} summary and
#' \pkg{goodpractice} results.
#' @noRd
pkgchk_pkgname_available <- function (checks) {

    desc <- data.frame (
        read.dcf (fs::path (
            checks$pkg$path,
            "DESCRIPTION"
        )),
        stringsAsFactors = FALSE
    )
    pkg <- desc$Package

    pkg_grepped <- grep (
        .standard_regexps ()$valid_package_name,
        pkg,
        value = TRUE
    )

    ap <- get_available_packages ()

    return (
        !pkg %in% ap$Package &
            pkg == pkg_grepped
    )
}

output_pkgchk_pkgname <- function (checks) {

    out <- list (
        check_pass = TRUE,
        summary = "",
        print = ""
    ) # no print method

    if (checks$checks$pkgname_available & !checks$checks$on_cran) {
        out$summary <- "Package name is available"
    } else if (checks$checks$on_cran) {
        out$summary <- "Package is already on CRAN."
    } else {
        out$check_pass <- FALSE
        out$summary <- "Package name is not available (on CRAN)."
    }

    return (out)
}