Using emmeans with metafor objects - "quick and dirty reference grid"

qdrg_metafor.R

# Using emmeans with metafor objects - "quick and dirty reference grid"
# usage:
# emmeans(qdrg_metafor(my_metafor_object), "categorical_var")
qdrg_metafor <- function(object) {
  coefs <- coef(object)
  names(coefs)[1] <- "(Intercept)"
  vcovs <- vcov(object)
  rownames(vcovs)[1] <- "(Intercept)"
  colnames(vcovs)[1] <- "(Intercept)"
  qdrg(
    formula = formula(object), 
    coef = coefs,
    vcov = vcovs,
    data = object$data
  )
}