data(pitches)
#generate animation and prompt default web browser to view the sequence of plots
## Not run:
# animation::saveHTML({ animateFX(pitches, layer = facet_grid(pitcher_name~stand)) })
# animation::saveHTML({ animateFX(pitches, avg.by="pitch_types",
# layer = facet_grid(pitcher_name~stand))
# })
# ## End(Not run)
Run the code above in your browser using DataLab