ggsave does not work with gg_tsresiduals

[sillasgonzaga]

Code:

p <- tsibbledata::aus_production %>%
  model(ETS(Beer)) %>%
  gg_tsresiduals()

ggsave("residuals.png", p)

Error:

Saving 9.1 x 3.26 in image
Error in UseMethod("grid.draw") : 
  no applicable method for 'grid.draw' applied to an object of class "c('gg_tsensemble', 'gg')"

What is the best way to save this kind of plots?