Search notes:

R function: body

f <- function(x, y) {
  if (x > 0) {
    x * y;
  } else {
    y - x;
  }
}

b <- body(f);

typeof(b);
#
#  "language"

class(b);
#
#  "{"

mode(b);
#
#  "call"

is.language(b);
#
#   TRUE

f(2, 3);
#
#  6

body(f) <- x + y ;

f(2, 3);

Github repository about-r, path: /functions/body/body.R

body(body)

body(body);
#
#  {
#      if (is.character(fun)) 
#          fun <- get(fun, mode = "function", envir = parent.frame())
#      .Internal(body(fun))
#  }

Github repository about-r, path: /functions/body/body-of-body.R

eval(…)

fun <- function(a, b) {
  a * b;
}

bod <- body(fun);

eval(bod, list(a=6, b=7));
#
#  42

Github repository about-r, path: /functions/body/eval.R

R function: body

body(body)

eval(…)

See also