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",