Extract can_install_dev()

R/install-dev.R

@@ -1,17 +1,21 @@
 #' Install the development version of a package
 #'
+#' @description
 #' `install_dev()` retrieves the package DESCRIPTION from the CRAN mirror and
 #' looks in the 'URL' and 'BugReports' fields for GitHub, GitLab or Bitbucket
 #' URLs. It then calls the appropriate `install_()` function to install the
 #' development package.
 #'
+#' `can_install_dev()` checks if the development version can be installed.
+#'
 #' @param package The package name to install.
 #' @param cran_url The URL of the CRAN mirror to use, by default based on the
 #'   'repos' option. If unset uses 'https://cloud.r-project.org'.
 #' @param ... Additional arguments passed to [install_github()],
 #'   [install_gitlab()], or [install_bitbucket()] functions.
 #' @family package installation
 #' @export
+#' @name install_dev
 #' @examples
 #' \dontrun{
 #' # From GitHub
@@ -23,7 +27,7 @@
 #' # From Bitbucket
 #' install_dev("argparser")
 #' }
-install_dev <- function(package, cran_url = getOption("repos")[["CRAN"]], ...) {
+install_dev <- function(package, cran_url = getOption("repos")[["CRAN"]]) {
   if (is.null(cran_url) || identical(cran_url, "@CRAN@")) {
     cran_url <- "https://cloud.r-project.org"
   }
@@ -40,7 +44,7 @@ install_dev <- function(package, cran_url = getOption("repos")[["CRAN"]], ...) {
   url_fields <- c(desc$URL, desc$BugReports)
 
   if (length(url_fields) == 0) {
-    stop("Could not determine development repository", call. = FALSE)
+    return(FALSE)
   }
 
   pkg_urls <- unlist(strsplit(url_fields, "[[:space:]]*,[[:space:]]*"))
@@ -64,7 +68,13 @@ install_dev <- function(package, cran_url = getOption("repos")[["CRAN"]], ...) {
 
   parts <- unique(stats::na.omit(parts))
 
-  if (nrow(parts) != 1) {
+  # Can install if we have exactly one valid part
+  nrow(parts) == 1
+}
+
+#' @export
+install_dev <- function(package, cran_url = getOption("repos")[["CRAN"]], ...) {
+  if (!can_install_dev(package, cran_url)) {
     stop("Could not determine development repository", call. = FALSE)
   }