Use ns_registry_env() on older R versions

Author: lionel-

R/namespace-env.R

@@ -234,7 +234,12 @@ register_namespace <- function(name = NULL, env = NULL) {
   }
 
   # Add the environment to the registry
-  eval(call2(".Internal", call2("registerNamespace", name, env)))
+  if (getRversion() >= "4.6.0") {
+    eval(call2(".Internal", call2("registerNamespace", name, env)))
+  } else {
+    nsr <- ns_registry_env()
+    nsr[[name]] <- env
+  }
 
   env
 }
@@ -263,7 +268,11 @@ unregister_namespace <- function(name = NULL) {
   env_get_list(ns, names(active_bindings)[!active_bindings])
 
   # Remove the item from the registry
-  eval(call2(".Internal", call2("unregisterNamespace", name)))
+  if (getRversion() >= "4.6.0") {
+    eval(call2(".Internal", call2("unregisterNamespace", name)))
+  } else {
+    env_unbind(ns_registry_env(), name)
+  }
   invisible()
 }