Match formula, data call in R function and create corresponding dataframe. Typical beginning of new functions utilizing formula interface.

match_formula_call.r

someFun <- function(formula, data, ...) {
  mc <- match.call()
  m <- match(c("formula","data"), names(mc), 0L)
  mf <- mc[c(1L, m)]
  mf[[1L]] <- as.name("model.frame")
  mf <- eval(mf, parent.frame())
  data.st <- data.frame(mf)
  
  return(data.st)
}