Pass ncpus to install.packages.

Manual merge. Closes #401.

NEWS.md

@@ -1,5 +1,9 @@
 # devtools 1.4.1.99
 
+* `install()` gains `thread` argument which allows you to install multiple
+  packages in parallel (@mllg, #401). `threads` argument to `check_cran()`
+  now defaults to `getOption("Ncpus")`
+
 * `install_github()` now prefers personal access tokens supplied to
   `auth_token` rather than passwords (#418, @jeroenooms).
 
@@ -20,7 +24,7 @@
 * `release()` does a better job of opening your email client if you're inside
   of Rstudio (#433).
 
-* `build_win()` now builds R-release and R-devel by default. 
+* `build_win()` now builds R-release and R-devel by default.
   (Thanks to @krlmlr, #438)
 
 * The `with_options()` function works as expected, used to throw an error when

R/check-cran.r

@@ -18,6 +18,7 @@
 #' @param bioconductor include bioconductor packages in checking?
 #' @param type binary package type of test
 #' @param threads number of concurrent threads to use for checking.
+#'   It defaults to the option \code{"Ncpus"} or \code{1} if unset.
 #' @param check_dir the directory in which the package is checked
 #' @return invisible \code{TRUE} if successful and no ERRORs or WARNINGS,
 #' @importFrom tools package_dependencies
@@ -32,7 +33,7 @@
 #' }
 check_cran <- function(pkgs, libpath = file.path(tempdir(), "R-lib"),
   srcpath = libpath, bioconductor = FALSE, type = getOption("pkgType"),
-  threads = 1, check_dir = tempfile("check_cran")) {
+  threads = getOption("Ncpus", 1), check_dir = tempfile("check_cran")) {
   stopifnot(is.character(pkgs))
   if (length(pkgs) == 0) return()
 

R/install.r

@@ -38,6 +38,9 @@
 #' @param keep_source If \code{TRUE} will keep the srcrefs from an installed
 #'   package. This is useful for debugging (especially inside of RStudio).
 #'   It defaults to the option \code{"keep.source.pkgs"}.
+#' @param threads number of concurrent threads to use for installing
+#'   dependencies.
+#'   It defaults to the option \code{"Ncpus"} or \code{1} if unset.
 #' @export
 #' @family package installation
 #' @seealso \code{\link{with_debug}} to install packages with debugging flags
@@ -46,12 +49,13 @@
 install <- function(pkg = ".", reload = TRUE, quick = FALSE, local = TRUE,
                     args = getOption("devtools.install.args"), quiet = FALSE,
                     dependencies = NA, build_vignettes = !quick,
-                    keep_source = getOption("keep.source.pkgs")) {
+                    keep_source = getOption("keep.source.pkgs"),
+                    threads = getOption("Ncpus", 1)) {
 
   pkg <- as.package(pkg)
 
   if (!quiet) message("Installing ", pkg$package)
-  install_deps(pkg, dependencies = dependencies)
+  install_deps(pkg, dependencies = dependencies, threads = threads)
 
   # Build the package. Only build locally if it doesn't have vignettes
   has_vignettes <- length(pkgVignettes(dir = pkg$path)$doc > 0)
@@ -85,7 +89,8 @@ install <- function(pkg = ".", reload = TRUE, quick = FALSE, local = TRUE,
 #' @export
 #' @examples
 #' \dontrun{install_deps(".")}
-install_deps <- function(pkg = ".", dependencies = NA) {
+install_deps <- function(pkg = ".", dependencies = NA,
+                         threads = getOption("Ncpus", 1)) {
   pkg <- as.package(pkg)
   info <- pkg_deps(pkg, dependencies)
 
@@ -103,7 +108,7 @@ install_deps <- function(pkg = ".", dependencies = NA) {
 
   message("Installing dependencies for ", pkg$package, ":\n",
     paste(deps, collapse = ", "))
-  install.packages(deps, dependencies = NA)
+  install.packages(deps, dependencies = NA, Ncpus = threads)
   invisible(deps)
 }
 

man/check_cran.Rd

@@ -4,8 +4,8 @@
 \title{Check a package from CRAN.}
 \usage{
 check_cran(pkgs, libpath = file.path(tempdir(), "R-lib"), srcpath = libpath,
-  bioconductor = FALSE, type = getOption("pkgType"), threads = 1,
-  check_dir = tempfile("check_cran"))
+  bioconductor = FALSE, type = getOption("pkgType"),
+  threads = getOption("Ncpus", 1), check_dir = tempfile("check_cran"))
 }
 \arguments{
 \item{pkgs}{Vector of package names - note that unlike other \pkg{devtools}
@@ -23,7 +23,8 @@ redownload the packages every time you run the package.}
 
 \item{type}{binary package type of test}
 
-\item{threads}{number of concurrent threads to use for checking.}
+\item{threads}{number of concurrent threads to use for checking.
+It defaults to the option \code{"Ncpus"} or \code{1} if unset.}
 
 \item{check_dir}{the directory in which the package is checked}
 }

man/install.Rd

@@ -6,7 +6,8 @@
 install(pkg = ".", reload = TRUE, quick = FALSE, local = TRUE,
   args = getOption("devtools.install.args"), quiet = FALSE,
   dependencies = NA, build_vignettes = !quick,
-  keep_source = getOption("keep.source.pkgs"))
+  keep_source = getOption("keep.source.pkgs"), threads = getOptions("Ncpus",
+  1))
 }
 \arguments{
 \item{pkg}{package description, can be path or package name.  See
@@ -42,6 +43,10 @@ sure vignettes are built even if a build never happens (i.e. because
 \item{keep_source}{If \code{TRUE} will keep the srcrefs from an installed
 package. This is useful for debugging (especially inside of RStudio).
 It defaults to the option \code{"keep.source.pkgs"}.}
+
+\item{threads}{number of concurrent threads to use for installing
+dependencies.
+It defaults to the option \code{"Ncpus"} or \code{1} if unset.}
 }
 \description{
 Uses \code{R CMD INSTALL} to install the package. Will also try to install

man/install_deps.Rd

@@ -3,7 +3,8 @@
 \alias{install_deps}
 \title{Install package dependencies}
 \usage{
-install_deps(pkg = ".", dependencies = NA)
+install_deps(pkg = ".", dependencies = NA, threads = getOption("Ncpus",
+  1))
 }
 \arguments{
 \item{pkg}{package description, can be path or package name.  See
@@ -12,6 +13,10 @@ install_deps(pkg = ".", dependencies = NA)
 \item{dependencies}{\code{logical} indicating to also install uninstalled
 packages which this \code{pkg} depends on/links to/suggests. See
 argument \code{dependencies} of \code{\link{install.packages}}.}
+
+\item{threads}{number of concurrent threads to use for installing
+dependencies.
+It defaults to the option \code{"Ncpus"} or \code{1} if unset.}
 }
 \description{
 Install package dependencies