On 16/07/2018 5:31 AM, Rui Barradas wrote:> Hello,
>
> Maybe the following is not the recommended way but it works
> (and I believe makes sense).
>
>
> f <- function(){}
> formals(f) <- formals(fc)
> body(f) <- body(fc)
That's not quite right: it might lose the environment of fc, if it
isn't the environment where this took place. But a simpler solution is just
f <- fc
body(f) <- body(f)
because any assignment to the body of a function causes the bytecode to
be dropped.
Both of our approaches will also cause the source references to be
dropped. If you want to save those, you need more steps:
f <- fc
body(f) <- body(f)
attr(f, "srcref") <- getSrcref(fc)
Duncan Murdoch
>
> f
> #function (x)
> #{
> # x <- x + 1
> # pi * x
> #}
>
> f(1)
> #[1] 6.283185
>
>
> Hope this helps,
>
> Rui Barradas
>
> ?s 03:25 de 16-07-2018, Benjamin Tyner escreveu:
>> Hi
>>
>> Given a closure which has been compiled, what's the recommended way
to
>> recover the original? For example,
>>
>> ??? > f <- function(x) x+1
>> ??? > fc <- cmpfun(f)
>> ??? > rm(f)
>> ??? > fc
>> ??? function(x) x+1
>> ??? <bytecode: 0x41d9228>
>>
>> what's the best way to recover f from fc ?
>>
>> Regards
>>
>> Ben
>>
>> ______________________________________________
>> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>