revert changes for #85

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: autotest
 Title: Automatic Package Testing
-Version: 0.0.2.203
+Version: 0.0.2.204
 Authors@R: c(
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265")),

R/function-params.R

@@ -51,20 +51,21 @@ get_params <- function (res, i, this_fn) {
     }
     pars <- formals (fun = this_fn, envir = pkg_env)
 
-    # Eval any formals in function environment:
-    params_env <- as.environment (params)
-    parent.env (params_env) <- pkg_env
-    index <- which (vapply (
-        pars,
-        function (i) methods::is (i, "call") && !is.symbol (i),
-        logical (1)
-    ))
-    pars [index] <- lapply (pars [index], function (p) {
-        res <- p
-        if (methods::is (p, "call") && !is.symbol (p)) {
-            res <- eval (p, envir = params_env)
-        }
-    })
+    # Eval any formals in function environment (#85):
+    # (This does not work, and can not be implemented in this form.)
+    # params_env <- as.environment (params)
+    # parent.env (params_env) <- pkg_env
+    # index <- which (vapply (
+    #     pars,
+    #     function (i) methods::is (i, "call") && !is.symbol (i),
+    #     logical (1)
+    # ))
+    # pars [index] <- lapply (pars [index], function (p) {
+    #     res <- p
+    #     if (methods::is (p, "call") && !is.symbol (p)) {
+    #         res <- eval (p, envir = params_env)
+    #     }
+    # })
 
     nms <- names (pars)
 

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/autotest",
   "issueTracker": "https://github.com/ropensci-review-tools/autotest/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.0.2.203",
+  "version": "0.0.2.204",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",