R gt table formatting: How can I take my long gt table and make it wide?

Question

I would like to take a gt() table and transform it to a "wide" format instead of a "long" format by group level. So for, as an example using the iris data se