Написание декоратора для функций R

Недавно коллега смотрел на графики вызовов и хотел посмотреть, что называется. Мы отсортировали это с foodweb от mvbutils, но мне было интересно, как лучше всего создать декоратор (в python говорить) в R. Итак, я сделал это:

instrument=function(z){
  force(z) 
  n=deparse(substitute(z)) # get the name
  f=function(...){
   cat("calling ", n,"\n")
   x=z(...)
   cat("done\n")
   return(x)
   }
  return(f)
}

Это позволяет мне:

> foo=function(x,y){x+y}
> foo(1,2)
[1] 3

и теперь я могу сделать сам журнал функций, обернув его:

> foo=instrument(foo)
> foo(1,2)
calling  foo
done
[1] 3

Это было сделано раньше, в пакете, и я пропустил какие-либо ошибки, которые нарушат мой способ сделать это?

Ответ 1