Assign .Depends from namespace to package environment to more closely…

… simulate library()

R/load.r

@@ -208,6 +208,9 @@ load_all <- function(path = ".", reset = TRUE, recompile = FALSE,
   # Copy over objects from the namespace environment
   export_ns(package)
 
+  # Assign .Depends, if any, to package environment from namespace
+  assign_depends(package)
+
   # Run hooks
   run_pkg_hook(package, "attach")
   run_user_hook(package, "attach")

R/package-env.r

@@ -45,6 +45,15 @@ export_ns <- function(package) {
   }
 }
 
+# Assign `.Depends` from namespace
+assign_depends <- function(package) {
+  pkgenv <- pkg_env(package)
+
+  desc <- pkg_desc(ns_path(package))
+  deps <- desc$get_deps()
+  depends <- unique(deps[deps$type == "Depends",]$package)
+  if (length(depends) > 0L) pkgenv$.Depends <- depends
+}
 
 #' Return package environment
 #'