Example of function aliasing

example_fn_aliasing.R

for (i in 1:10) {
  assign(paste0("fn", i), eval(bquote(function(x) { x + .(i) })))
}

#' This is my function.
#'
#' This does stuff.
#'
#' @param x
#' @return foo.
fn1 <- force

#' @name fn2
#' @rdname fn1
NULL