showWaterfall2 = function(xgb.model, explainer, DMatrix, data.matrix,
idx, type = "binary", threshold = 0.0001,
limits = c(NA, NA), explanations = NULL){
if(!is.null(explanations)){
breakdown = explanations[idx,]
} else{
breakdown = explainPredictions(xgb.model,
explainer,
slice(DMatrix,as.integer(idx)))
}
etc...