将函数转换为字符串保存原始格式

Question

当我在R中创建函数时，该函数会记住用于创建它的格式，包括空格。这可以通过打印功能来揭示：

> f <- function( x )   {if  (x==1) {x} else {x+1}}
> print(f)
function( x )   {if  (x==1) {x} else {x+1}}

如何从函数中提取该表示;例如，将其保存到变量以进行进一步操作？