explain() with lrm() model gives Warning

The code below gives the following warning :

Warning messages:
1: In formula.character(object, env = baseenv()) :
Using formula(x) is deprecated when x is a character vector of length > 1.
Consider formula(paste(x, collapse = " ")) instead.
2: In formula.character(object, env = baseenv()) :
Using formula(x) is deprecated when x is a character vector of length > 1.
Consider formula(paste(x, collapse = " ")) instead.
3: In formula.character(object, env = baseenv()) :
Using formula(x) is deprecated when x is a character vector of length > 1.
Consider formula(paste(x, collapse = " ")) instead.

library("rms")
library(DALEX)
data(titanic_imputed, package="DALEX")

model_titanic_lmr <- lrm(survived ~ class + gender + rcs(age) + sibsp +
                           parch + fare + embarked, titanic_imputed)

explain_titanic_lmr <- explain(model_titanic_lmr, data = titanic_imputed, 
                               y = titanic_imputed$survived, verbose=F,
                               predict_function = function(m,x) 
                                 predict(m, x, type = "fitted"),
                               label = "Logistic regression")

Start by running the reported titanic_imputed example with rms::lrm() and DALEX::explain(), then inspect the explain() path that handles the supplied model and predict_function. Done means the example no longer emits the deprecated formula.character warnings.