R/pkg.R

In r-lib/revdepcheck: Automated Reverse Dependency Checking

pkg_check <- function(pkgdir) {
  if (!is_string(pkgdir)) {
    stop("`pkgdir` must be a string", call. = FALSE)
  }

  if (!file.exists(pkgdir) || !file.info(pkgdir)$isdir) {
    stop("`pkgdir` must be an existing directory", call. = FALSE)
  }

  if (!file.exists(file.path(pkgdir, "DESCRIPTION"))) {
    stop("`pkgdir` must contain a DESCRIPTION file", call. = FALSE)
  }

  normalizePath(pkgdir, mustWork = FALSE)
}

pkg_name <- function(pkgdir) {
  read.dcf(file.path(pkgdir, "DESCRIPTION"))[, "Package"][[1]]
}

pkg_version <- function(pkgdir) {
  read.dcf(file.path(pkgdir, "DESCRIPTION"))[, "Version"][[1]]
}

pkg_bug_reports <- function(pkgdir) {
  read.dcf(file.path(pkgdir, "DESCRIPTION"))[, "BugReports"][[1]]
}