predict_parts with mlr3

[hbaniecki]

library(mlr3proba)
library(mlr3extralearners)
library(mlr3pipelines)
library(survex)
library(survival)
veteran_task <- as_task_surv(veteran,
                             time = "time",
                             event = "status",
                             type = "right")
ranger_learner <- lrn("surv.ranger")    
ranger_learner$train(veteran_task)
ranger_learner_explainer <- explain(ranger_learner, 
                                    data = veteran[, -c(3,4)],
                                    y = Surv(veteran$time, veteran$status),
                                    label = "Ranger model")
# error
pp <- predict_parts(ranger_learner_explainer,
                    ranger_learner_explainer$data[1,])

[hbaniecki]

mlr-org/mlr3proba#307