geom_mosaic and aes magic

Question

I use the following library for mosaic plots. In the documentation it provides the following example:

ggplot(data = fly) +
   geom_mosaic(aes(x = product(DoYouRec