Return name of package which was installed

Fixes r-lib#55

NEWS.md

@@ -5,6 +5,9 @@
 
 # Development
 
+* `install_()` functions now return the name of the package(s) which were
+  installed (#55).
+
 * Dependency parsing is now more robust to whitespace around the dependency
   specifications (#73).
 

R/install-remote.R

@@ -24,14 +24,14 @@ install_remote <- function(remote, ..., force = FALSE, quiet = FALSE) {
         " the SHA1 (", substr(remote_sha, 1L, 8L), ") has not changed since last install.\n",
         "  Use `force = TRUE` to force installation")
     }
-    return(invisible(FALSE))
+    return(invisible(package_name))
   }
 
   if (inherits(remote, "cran_remote")) {
     install_packages(
       package_name, repos = remote$repos, type = remote$pkg_type,
       ..., quiet = quiet)
-    return(invisible(TRUE))
+    return(invisible(package_name))
   }
 
   bundle <- remote_download(remote, quiet = quiet)
@@ -51,7 +51,7 @@ install_remote <- function(remote, ..., force = FALSE, quiet = FALSE) {
 }
 
 install_remotes <- function(remotes, ...) {
-  invisible(vapply(remotes, install_remote, ..., FUN.VALUE = logical(1)))
+  invisible(vapply(remotes, install_remote, ..., FUN.VALUE = character(1)))
 }
 
 # Add metadata

R/install.R

@@ -33,7 +33,8 @@ install <- function(pkgdir = ".", dependencies = NA, quiet = TRUE, build =
     ...
   )
 
-  invisible(TRUE)
+  pkg_name <- load_pkg_description(pkgdir)$package
+  invisible(pkg_name)
 }