Set temporary libpath in build.

Fixes #335
r-lib · Oct 7, 2013 · 2a4bcac · 2a4bcac
1 parent 9a7253b
commit 2a4bcac
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/NEWS b/NEWS
@@ -1,6 +1,9 @@
 devtools 1.3.99
 ----------------
 
+* `build(binary = TRUE)` now no longer installs the package as a side-effect.
+  (#335)
+
 * `install()` gains a `build_vignettes` which defaults to TRUE, and ensures 
   that vignettes are built even when doing a local install. (#344)
 

diff --git a/R/build.r b/R/build.r
@@ -55,8 +55,7 @@ build <- function(pkg = ".", path = NULL, binary = FALSE, vignettes = TRUE,
 
     ext <- "tar.gz"
   }
-  R(cmd, path, quiet = quiet)
-
+  with_libpaths(c(tempdir(), .libPaths()), R(cmd, path, quiet = quiet))
   targz <- paste0(pkg$package, "_", pkg$version, ".", ext)
 
   file.path(path, targz)