Add lib_temporary implementation

NAMESPACE

@@ -3,6 +3,7 @@
 export(lib_activate)
 export(lib_create)
 export(lib_deactivate)
+export(lib_temporary)
 export(local_pkg_install)
 export(pkg_install)
 export(pkg_remove)

R/library.R

@@ -28,3 +28,14 @@ lib_deactivate <- function(lib) {
   old <- .libPaths()
   .libPaths(setdiff(old, lib))
 }
+
+#' Create a session specific temporary library
+#'
+#' @param dir Directory to create the library in
+#' @inheritParams base::tempfile
+#' @export
+lib_temporary <- function(dir = tempdir(), pattern = "library-") {
+  lib <- tempfile(pattern = pattern, tmpdir = dir)
+  dir.create(lib)
+  lib_activate(lib)
+}