butcher method for models fitted with brglm2

[tkx68]

The brglm2 fitting functions adds some more stuff and it would be nice to have a butcher method like the following:

butcher.brglmFit <- function(object, ...) {
  object <- NextMethod()   # ruft butcher.glm() aus {butcher}

  # -------------------------------------------------------
  # brglm2-spezifische Anhängsel löschen
  if (keep == "predict") {
    object$call <- NULL
    object$family$d1afun <- NULL
    object$family$d2afun <- NULL
    object$family$d3afun <- NULL
    object$family$d1variance <- NULL
    object$family$d2mu.deta <- NULL
  }
  object
}

[juliasilge]

Would you be interested in contributing a PR with the butcher methods for this model? You can check out the documentation we have on how to add a model to butcher here: https://butcher.tidymodels.org/articles/adding-models-to-butcher.html