Another round of xgb serialization

Ok, how about this. You can always assume that `object$output$options` is a list or NULL, so instead of `name_exists`, you can use:

`r if (is.element('data', names(object$output$options)))`

and it will give the same behavior.