Don't keep the names that model.response() adds to a vector response

Author: DavisVaughan

R/convert_data.R

@@ -57,6 +57,11 @@ convert_form_to_xy_fit <-function(
   #    cbound numeric columns, factors, Surv objects, etc).
   y <- model.response(mod_frame, type = "any")
 
+  # if y is a numeric vector, model.response() added names
+  if(is.atomic(y)) {
+    names(y) <- NULL
+  }
+
   w <- as.vector(model.weights(mod_frame))
   if (!is.null(w) && !is.numeric(w))
     stop("'weights' must be a numeric vector", call. = FALSE)