Add check before deregistering modules

Fixes #363. Squashed commit of the following: commit 9e02d8840f6b832e8bf9a870cc8787fe44925c88 Author: Konrad Rudolph <[email protected]> Date: Sat Jun 29 18:51:36 2024 +0200 Check before dereginstering a module A module may have already been deregistered if it was loaded by two modules which are both loaded by the module being unloaded by the user. commit b7a464c9024e58e42e44ac5cd6ba5c76db248e80 Author: Konrad Rudolph <[email protected]> Date: Sun Jun 30 23:13:42 2024 +0200 Add failing unit test commit ccf9a10 Author: Konrad Rudolph <[email protected]> Date: Sun Jun 30 23:31:49 2024 +0200 Set dev version number commit b88b59b069b63a2facdbbaf7f364afa5b2063858 Author: Konrad Rudolph <[email protected]> Date: Sun Jun 30 23:43:17 2024 +0200 Document changes
klmr · Jun 30, 2024 · e0a64e3 · e0a64e3
1 parent 10e1b45
commit e0a64e3
Show file tree

Hide file tree

Showing 7 changed files with 26 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: box
 Title: Write Reusable, Composable and Modular R Code
-Version: 1.2.0
+Version: 1.2.0.9000
 Authors@R: c(
         person(
             'Konrad', 'Rudolph',

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,10 @@
+# box (development version)
+
+## Bug fixes
+
+* Suppress a spurious internal warning upon reloading a module, caused by a dependent module being imported more than once (#363).
+
+
 # box 1.2.0
 
 ## Breaking changes

diff --git a/R/loaded.r b/R/loaded.r
@@ -41,7 +41,11 @@ register_mod = function (info, mod_ns) {
 
 #' @rdname loaded
 deregister_mod = function (info) {
-    rm(list = info$source_path, envir = loaded_mods)
+    # May already have been removed if called by `unload_mod_recursive`, where
+    # a given module is imported by multiple submodules.
+    if (exists(info$source_path, envir = loaded_mods)) {
+        rm(list = info$source_path, envir = loaded_mods)
+    }
 }
 
 #' @rdname loaded

diff --git a/tests/testthat/mod/reload/nested/a.r b/tests/testthat/mod/reload/nested/a.r
@@ -0,0 +1 @@
+box::export()
diff --git a/tests/testthat/mod/reload/nested/b.r b/tests/testthat/mod/reload/nested/b.r
@@ -0,0 +1,3 @@
+box::use(./a)
+
+box::export()
diff --git a/tests/testthat/mod/reload/nested/c.r b/tests/testthat/mod/reload/nested/c.r
@@ -0,0 +1,3 @@
+box::use(./a, ./b)
+
+box::export()
diff --git a/tests/testthat/test-reload.r b/tests/testthat/test-reload.r
@@ -115,3 +115,9 @@ test_that('`reload` shows expected errors', {
         '"reload" expects a module object, got "x", which is of type "integer" instead'
     )
 })
+
+test_that('reloading a module used twice does not cause a warning', {
+    box::use(mod/reload/nested/c)
+
+    expect_warning(box::reload(c), NA)
+})