took out animate-call from the join functions

if printed it will still call animate, but gives the user more flexibility about animation factors (such as times etc)

R/animate_helpers.R

   all <- bind_rows(step0, step1)
 
   if (export == "gif") {
-    animate_plot(all, title, ...) %>% animate()
+    animate_plot(all, title, ...)
   } else if (export == "first") {
     title <- ""
     static_plot(step0, title, ...)