I find bquote() handy for this sort of manipulation. E.g.,
> f <- function() { 1 }
> origBody <- body(f)
> newBody <- bquote({ .(origBody) ; .(addedStuff) }, list(origBody=origBody,
> addedStuff=quote(function(){})))
> body(f) <- newBody
> f
function ()
{
{
1
}
function() {
}
}
> f()
function ()
{
}
<environment: 0x2a38350>
Bill Dunlap
TIBCO Software
wdunlap tibco.com
On Sun, Jul 27, 2014 at 6:41 AM, super <desolato...@163.com> wrote:
> Suppose that I had a function as below:
> f<-function() {
> return(1)
> }
> i want to change the body of f to the form like this:
> f<-function(){
> 1
> function() {}
> }
> How can i do the task using body(f) or something else solutions?
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list
> 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@r-project.org mailing list
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.
