[R] undo compile? (or: remove bytecode from closure)

Benjamin Tyner btyner @end|ng |rom gm@||@com
Tue Jul 17 02:23:13 CEST 2018


Thanks Rui and Duncan, this is most helpful.


On 07/16/2018 06:58 AM, Duncan Murdoch wrote:
> 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 using 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 using 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.
>>
>




More information about the R-help mailing list