ensure renv unloaded on devtools::load_all() (#1591)

rstudio · Jul 25, 2023 · fd5aedc · fd5aedc
1 parent dc09173
commit fd5aedc
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/R/aaa.R b/R/aaa.R
@@ -1 +1,3 @@
+
+# global variables
 the <- new.env(parent = emptyenv())
diff --git a/R/zzz.R b/R/zzz.R
@@ -26,6 +26,13 @@
 
 }
 
+# NOTE: required for devtools::load_all()
+.onDetach <- function(libpath) {
+  package <- Sys.getenv("DEVTOOLS_LOAD", unset = NA)
+  if (identical(package, .packageName))
+    .onUnload(libpath)
+}
+
 renv_zzz_load <- function() {
 
   # NOTE: needs to be visible to embedded instances of renv as well