# NOT RUN {
flea_std <- rescale(tourr::flea[,1:6])
tpath <- save_history(flea_std, max = 3)
play_tour_path(tour_path = tpath, data = flea_std, angle = .15)
play_tour_path(tour_path = tpath, data = flea_std, angle = .15, fps = 4,
render_type = render_gganimate, col = col_of(flea$species), axes = "bottomleft")
# }
Run the code above in your browser using DataLab