address augment.betareg() failure (closes #1216)

NEWS.md

@@ -1,5 +1,8 @@
 # broom (development version)
 
+* Addressed "arguments imply differing number of rows" error in 
+  `augment.betareg()` with `data = NULL` and non-null `newdata` (#1216).
+
 * `glance.lm()` now returns non-`NA` values for `statistic`, `p.value`, and `df` 
   for models fitted with a single predictor and no intercept (@jrob95, #1209).
 

R/utilities.R

@@ -209,7 +209,8 @@ unrowname <- function(x) {
 #' @param type.residuals Type of residuals to compute; by default
 #' same as `type`
 #' @param se.fit Value to pass to predict's `se.fit`, or NULL for
-#' no value
+#' no value. Ignored for model types that do not accept an `se.fit`
+#' argument
 #' @param ... extra arguments (not used)
 #'
 #' @export
@@ -233,7 +234,9 @@ augment_columns <- function(x, data, newdata = NULL, type, type.predict = type,
   if (!missing(type.predict)) {
     args$type <- type.predict
   }
-  args$se.fit <- se.fit
+  if (!inherits(x, "betareg")) {
+    args$se.fit <- se.fit
+  }
   args <- c(args, list(...))