How to omit huge unnecessary code produced by do.call?

Question

Let\'s consider function which allows user to use lm function with other flexible inputs :

regression <- function(y, x, lmargs = list()) {
  do.ca