inst/scripts/call-fun.R

In yihui/xfun: Supporting Functions for Packages Maintained by 'Yihui Xie'

# This script is executed via the command line `Rscript call-fun.R arg1 arg2`,
# where arg1 is a path to an .rds file, which contains the function and its
# arguments saved as a list, and arg2 is a path to an .rds file to which the
# returned value of the function call is saved.

local({
  if (length(a <- commandArgs(TRUE)) != 2)
    stop('The number of arguments passed to Rscript should be 2.')
  x = readRDS(a[1])  # list(fun, args)
  f = x[[1]]
  if (is.character(f)) f = eval(parse(text = f), envir = globalenv())
  r = do.call(f, x[[2]], envir = globalenv())
  saveRDS(r, a[2])
})