error with predict when newdata is tibble

[carlganz]

Hello,

When newdata in predict is a tibble there is an error:

library(mboost)
library(tibble)

# example from docs
data("bodyfat", package = "TH.data")

mod <- mboost(DEXfat ~ btree(age) + bols(waistcirc) + bbs(hipcirc),
              data = bodyfat)

predict(mod, as_tibble(bodyfat))
# errors

This line generates the error:

mboost/R/helpers.R

Line 245 in b3e9a98

if (!class(newdata) %in% c("list", "data.frame"))

Changing the if statement to if (!any(class(newdata) %in% c("list", "data.frame"))) works in this instance, but I haven't thought about it enough to know if it works in general.