tinyplot.parameters_model = function(
  x,
  flip = TRUE,
  zero = TRUE,
  ...
) {
  xlabs = attr(x, "pretty_labels")
  x$Parameter = xlabs[x$Parameter]
  tinyplot(
    Coefficient ~ Parameter, ymin = CI_low, ymax = CI_high,
    data = x,
    type = "pointrange",
    flip = flip,
    ...
  )
  if (zero) if (flip) abline(v = 0, lty = 2) else abline(h = 0, lty = 2)
}

library(tinyplot)
library(parameters)

res = parameters(lm(wt ~ am * cyl, data = mtcars))
plt(res)

tinytheme("classic")
plt(res)