From 4c8db0ced6359f567a841985164eab76051bc8d1 Mon Sep 17 00:00:00 2001
From: mpadge <mark.padgham@email.com>
Date: Wed, 18 Oct 2023 17:38:17 +0200
Subject: [PATCH] revert changes for #85

---
 DESCRIPTION         |  2 +-
 R/function-params.R | 29 +++++++++++++++--------------
 codemeta.json       |  2 +-
 3 files changed, 17 insertions(+), 16 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 439e9b3..2a64220 100644
--- a/DESCRIPTION
+++ b/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", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265")),
diff --git a/R/function-params.R b/R/function-params.R
index bd12dae..7809a57 100644
--- a/R/function-params.R
+++ b/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)
 
diff --git a/codemeta.json b/codemeta.json
index 12447c3..ce117c1 100644
--- a/codemeta.json
+++ b/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",