如何在R中创建代理对象

Question

我想创建一个通用代理机制，可以拦截对该对象的任何访问。基本上对于一个函数它看起来像这样：

proxy <- function (fn) function (...) {
  do.call (fn, list (...));
}

这样我就可以轻松添加日志记录。通过分配形式，我甚至可以看起来像传入的原始函数，但是这对于任何不是函数的东西都不起作用，是否可以将这个概念扩展到其他类型？我可以通过某种方式包装一个号码，并在访问时随时收到回叫