R help - Jul 2014 - How to modify the body of a function?

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]]