mlearning() force data

Author: phgrosjean

R/mlearning.R

@@ -126,9 +126,9 @@ mlearning <- function(formula, data, method, model.args, call = match.call(),
   if (missing(model.args)) {
     if (missing(subset) || is.null(subset) || !length(subset) ||
         as.character(subset) == "") {
-      model.args <- list(formula  = formula, data = data) #substitute(data))
+      model.args <- list(formula  = formula, data = force(data)) #substitute(data))
     } else {
-      model.args <- list(formula  = formula, data = data, #substitute(data),
+      model.args <- list(formula  = formula, data = force(data), #substitute(data),
         subset = substitute(subset))
     }
   }