Append values to function body

Append values to function body

Usage

appendToBody(fun, values, after = 1L)

Arguments

fun

function.

values

call. Quoted values (i.e. call) to slot in the function body.

after

integer(1). Where to append in the body. The default of 1L places directly after the opening curly bracket.

Value

function.

Note

Updated 2019-08-23.

See also

Stack Overflow

Examples

## Add a deprecation call into function body.
fun <- function() {
    print("hello world")
}
body(fun)
#> {
#>     print("hello world")
#> }

## values: call ====
values <- as.call(quote(.Deprecated("XXX")))
x <- appendToBody(fun = fun, values = values)
body(x)
#> {
#>     .Deprecated("XXX")
#>     print("hello world")
#> }

## values: list ====
values <- list(
    quote(print("AAA")),
    quote(print("BBB"))
)
x <- appendToBody(fun = fun, values = values)
body(x)
#> {
#>     print("AAA")
#>     print("BBB")
#>     print("hello world")
#> }