Is there a way to disaggregate a forecast from fpp3 in R?

Question

I am working with fpp3 forecasting package in R and I am trying forecast something similar to this example. (source: https://otexts.com/fpp3/single-level.html)

li