How to create an R function programmatically?

by

This is an expansion on the discussion here.

Our three pieces need to be an argument list, a body and an environment.

For the environment, we will simply use env = parent.frame() by default.

We do not really want a regular old list for the arguments, so instead we use alist
which has some different behavior:

“…values are not evaluated, and tagged arguments with no value are allowed”

args <- alist(a = 1, b = 2)

For the body, we quote our expression to get a call:

body <- quote(a + b)

One option is to convert args to a pairlist and then simply call the function function
using eval:

make_function1 <- function(args, body, env = parent.frame()) {
      args <- as.pairlist(args)
      eval(call("function", args, body), env)
}

Another option is to create an empty function, and then fill it with the desired values:

make_function2 <- function(args, body, env = parent.frame()) {
      f <- function() {}
      formals(f) <- args
      body(f) <- body
      environment(f) <- env

      f
}

A third option is to simply use as.function:

make_function3 <- function(args, body, env = parent.frame()) {
      as.function(c(args, body), env)
}

And finally, this seems very similar to the first method to me, except
we are using a somewhat different idiom to create the function call, using
substitute rather than call:

make_function4 <- function(args, body, env = parent.frame()) {
      subs <- list(args = as.pairlist(args), body = body)
      eval(substitute(`function`(args, body), subs), env)
}


library(microbenchmark)
microbenchmark(
      make_function1(args, body),
      make_function2(args, body),
      make_function3(args, body),
      make_function4(args, body),
      function(a = 1, b = 2) a + b
    )

Unit: nanoseconds
                          expr   min      lq  median      uq    max
1 function(a = 1, b = 2) a + b   187   273.5   309.0   363.0    673
2   make_function1(args, body)  4123  4729.5  5236.0  5864.0  13449
3   make_function2(args, body) 50695 52296.0 53423.0 54782.5 147062
4   make_function3(args, body)  8427  8992.0  9618.5  9957.0  14857
5   make_function4(args, body)  5339  6089.5  6867.5  7301.5  55137

More Related Contents:

  1. Transform the form of the function's result and get the maximum value
  2. Create a function within a function [closed]
  3. how to apply a function on a data set?
  4. Error: could not find function … in R
  5. How can I view the source code for a function?
  6. How to use R’s ellipsis feature when writing your own function?
  7. data.table objects assigned with := from within function not printed
  8. Update data frame via function doesn’t work
  9. Returning multiple objects in an R function [duplicate]
  10. dplyr: “Error in n(): function should not be called directly”
  11. converting multiple columns from character to numeric format in r
  12. Function to calculate R2 (R-squared) in R
  13. Reading multiple files and calculating mean based on user input
  14. Apply a function to every row of a matrix or a data frame
  15. How do I override a non-visible function in the package namespace?
  16. What is the meaning of the dollar sign “$” in R function()?
  17. How to compare functions?
  18. Return a data frame from function
  19. R: Obtaining Rules from a Function
  20. Object not found error with ddply inside a function
  21. Call by reference in R (using function to modify an object)
  22. “Correct” way to specifiy optional arguments in R functions
  23. R function not returning values
  24. Using get() with replacement functions
  25. Getting a function name as a string
  26. Run a custom function on a data frame in R, by group
  27. R specify function environment
  28. How to pass aes parameters of ggplot to function
  29. How to use data.table within functions and loops?
  30. Test if an argument of a function is set or not in R

Leave a Comment