Save open files in the IDE for command functions

DESCRIPTION

@@ -24,7 +24,7 @@ Imports:
     memoise (>= 1.0.0),
     whisker,
     digest,
-    rstudioapi (>= 0.2.0),
+    rstudioapi (>= 0.6.0.9000),
     jsonlite,
     stats,
     git2r (>= 0.12.1),
@@ -58,7 +58,8 @@ Remotes:
   mangothecat/callr,
   r-lib/sessioninfo,
   r-lib/usethis,
-  r-hub/rhub
+  r-hub/rhub,
+  rstudio/rstudioapi
 License: GPL (>= 2)
 VignetteBuilder: knitr
 RoxygenNote: 6.0.1

NAMESPACE

@@ -163,12 +163,10 @@ export(uses_testthat)
 export(wd)
 export(with_debug)
 importFrom(memoise,memoise)
-importFrom(pkgbuild,build)
 importFrom(pkgbuild,clean_dll)
 importFrom(pkgbuild,with_debug)
 importFrom(pkgload,check_dep_version)
 importFrom(pkgload,check_suggested)
-importFrom(pkgload,load_all)
 importFrom(pkgload,parse_deps)
 importFrom(pkgload,unload)
 importFrom(stats,update)

NEWS.md

@@ -1,5 +1,8 @@
 # devtools 1.13.3.9000
 
+* `document()`, `load_all()`, `check()`, `build()` and `test()` now
+  automatically save open files when they are run inside the RStudio IDE. (#1576)
+
 * New `rhub_check()` function to check packages using <https://builder.r-hub.io/>.
 
 * `run_examples` was mistakenly passing `show` to

R/check.r

@@ -62,6 +62,10 @@ check <- function(pkg = ".",
                   quiet = FALSE) {
   pkg <- as.package(pkg)
 
+  if (rstudioapi::isAvailable()) {
+    rstudioapi::documentSaveAll()
+  }
+
   # document only if package uses roxygen, i.e. has RoxygenNote field
   if (identical(document, NA)) {
     document <- !is.null(pkg$roxygennote)

R/document.r

@@ -24,6 +24,10 @@ document <- function(pkg = ".", clean = NULL, roclets = NULL, reload = TRUE) {
   pkg <- as.package(pkg)
   message("Updating ", pkg$package, " documentation")
 
+  if (rstudioapi::isAvailable()) {
+    rstudioapi::documentSaveAll()
+  }
+
   load_all(pkg$path)
 
   if (packageVersion("roxygen2") > "4.1.1") {

R/pkgbuild.R

@@ -1,6 +1,14 @@
-#' @importFrom pkgbuild build
+#' @inherit pkgbuild::build
+#' @param ... Additional arguments passed to [pkgbuild::build].
 #' @export
-pkgbuild::build
+build <- function(path = ".", dest_path = NULL, binary = FALSE, vignettes = TRUE,
+                  manual = FALSE, args = NULL, quiet = FALSE, ...) {
+  if (rstudioapi::isAvailable()) {
+    rstudioapi::documentSaveAll()
+  }
+  pkgbuild::build(path = path, dest_path = dest_path, binary = binary,
+    vignettes = vignettes, manual = manual, args = args, quiet = quiet, ...)
+}
 
 #' @importFrom pkgbuild with_debug
 #' @export

R/pkgload.R

@@ -1,6 +1,17 @@
-#' @importFrom pkgload load_all
+#' @inherit pkgload::load_all
+#' @param ... Additional arguments passed to [pkgload::load].
 #' @export
-pkgload::load_all
+load_all <- function(path = ".", reset = TRUE, recompile = FALSE,
+                     export_all = TRUE, helpers = TRUE, recollate = FALSE,
+                     quiet = FALSE, ...) {
+  if (rstudioapi::isAvailable()) {
+    rstudioapi::documentSaveAll()
+  }
+
+  pkgload::load_all(path = path, reset = reset, recompile = recompile,
+    export_all = export_all, helpers = helpers, recollate = recollate,
+    quiet = quiet, ...)
+}
 
 #' @importFrom pkgload unload
 #' @export

R/test.r

@@ -19,6 +19,11 @@
 #' @export
 test <- function(pkg = ".", filter = NULL, ...) {
   check_suggested("testthat")
+
+  if (rstudioapi::isAvailable()) {
+    rstudioapi::documentSaveAll()
+  }
+
   pkg <- as.package(pkg)
 
   if (!uses_testthat(pkg) && interactive()) {