check for new data was broken (fixes #68)

boost-R · Jan 31, 2017 · 4859b95 · 4859b95
1 parent 7d1ebb4
commit 4859b95
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/helpers.R b/R/helpers.R
@@ -242,7 +242,7 @@ check_newdata <- function(newdata, blg, mf, to.data.frame = TRUE) {
         stop(sQuote("newdata"),
              " must contain all predictor variables,",
              " which were used to specify the model.")
-    if (!class(newdata) %in% c("list", "data.frame"))
+    if (!any(class(newdata) %in% c("list", "data.frame")))
         stop(sQuote("newdata"), " must be either a data.frame or a list")
     if (any(duplicated(nm)))  ## removes duplicates
         nm <- unique(nm)