Another round of xgb serialization

Oh I see. That seems slow and excessive. What's wrong with just:

`if (!is.element('data', ls(object$output$options)))`