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

@@ -106,7 +106,7 @@ animate_join <- function(x, y, by, type, export = "gif", ...) {
   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, ...)