r - 强制 R 函数调用是纯的

Question

问题

有没有办法强制 R 中的函数调用是纯的？用例：drake. 我想保护调用环境及其祖先免受用户函数的修改。

测试用例

before <- ls()
f <- function() {
  x <<- 1
  data("mtcars")
  return("abc")
}
output <- pure_function_call(f())
after <- setdiff(ls(), c("before", "f", "output"))
print(before)
print(after)
print(output)

要求

• before并且after必须同意。
• 字符串"x"and"mtcars"必须不在beforeandafter中。
• output必须相等"abc"。
• pure_function_call()必须f()在调用测试用例的同一个 R 会话中调用。例如callr::r()不允许。

过去的尝试失败

• local(f())
• (function(){f()})()

标签： rpurely-functional