Assign .Depends to package environment to mimic more closely to library()

NEWS.md

@@ -1,5 +1,8 @@
 # pkgload 0.0.0.9000
 
+* `load_all()` now assigns `DESCRIPTION/Depends` to `.Depends` object of 
+  package environment. (@yiufung pkgload#61)
+
 * `load_all()` now attaches `testthat` if the `attach_testthat` option is
   `TRUE`. This allows `load_all()` to more closely mimics the testing
   environment. (#56)

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,16 @@ 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"
+                         & deps$package != "R",]$package)
+  if (length(depends) > 0L) pkgenv$.Depends <- depends
+}
 
 #' Return package environment
 #'

tests/testthat/test-depend.r

@@ -48,3 +48,10 @@ test_that("Parse dependencies", {
   expect_equal(deps$compare, c("<", "=="))
   expect_equal(deps$version, c("2.1", "3.0.1"))
 })
+
+test_that("Declared dependencies are added to .Depends object", {
+  load_all("testDependsExists")
+  expect_equal(get(".Depends", "package:testDependsExists", inherits = FALSE),
+                "httr")
+  unload("testDependsExists")
+})

tests/testthat/testDependsExists/DESCRIPTION

@@ -0,0 +1,8 @@
+Package: testDependsExists
+Title: Packages in Depends are assigned to .Depends object of package environment
+License: GPL-2
+Description:
+Author: Yiufung <cheongyiufung@gmail.com>
+Maintainer: Yiufung <cheongyiufung@gmail.com>
+Version: 0.1
+Depends: R, httr