Handle package dependencies during auto-reloading

Author: klmr

R/autoreload.r

@@ -185,6 +185,10 @@ autoreload = local({
     }
 
     needs_reloading = function (info, ns) {
+        UseMethod('needs_reloading')
+    }
+
+    `needs_reloading.box$mod_info` = function (info, ns) {
         included(info) && (
             is_file_modified(info, ns) || {
                 imports = namespace_info(ns, 'imports')
@@ -193,6 +197,10 @@ autoreload = local({
         )
     }
 
+    `needs_reloading.box$pkg_info` = function (info, ns) {
+        FALSE
+    }
+
     reset()
 
     self

R/env.r

@@ -134,13 +134,25 @@ make_export_env = function (info, spec, ns) {
     structure(
         new.env(parent = emptyenv()),
         name = paste0('mod:', spec_name(spec)),
-        class = autoreload$export_env_class(info),
+        class = export_env_class(info),
         spec = spec,
         info = info,
         namespace = ns
     )
 }
 
+export_env_class = function (info) {
+    UseMethod('export_env_class')
+}
+
+`export_env_class.box$mod_info` = function (info) {
+    autoreload$export_env_class(info)
+}
+
+`export_env_class.box$pkg_info` = function (info) {
+    'box$mod'
+}
+
 strict_extract = function (e1, e2) {
     # Implemented in C since this function is called very frequently and needs
     # to be fast, and the C implementation is about 270% faster than an R

tests/testthat/test-autoreload.r

@@ -10,7 +10,11 @@ create_simple_test_module = function (dir) {
     mod = file.path(dir, 'mod')
     dir.create(mod)
     a = file.path(mod, 'a.r')
-    writeLines(c("#' @export", 'f = function () 1L'), a)
+    writeLines(c(
+        'box::use(stats)',
+        "#' @export",
+        'f = function () 1L'
+    ), a)
 }
 
 edit_simple_test_module = function (dir) {