`do.call()` but with duplicated

do-call.R

do_call <- function(fun, ...) {
  fun <- match.fun(fun)
  forms <- as.list(formals(fun))
  params <- list(...)
  nms <- names(params)

  o <- order(match(nms, names(forms)))
  params <- params[o]
  nms <- nms[o]

  ok <- nzchar(nms)
  none <- which(!ok)
  nms <- nms[ok]

  # for params without names, use the order in which they are passed
  for (no in none) {
    forms[[no]] <- params[[no]]
  }

  # for params with a name, explicitly set those
  for (nm in nms) {
    forms[[nm]] <- params[[nm]]
  }

  do.call(fun, forms)
}