Clean up return statements for #15

R/move_together.R

            .x = xvals[.col],
            .y = yvals[.id_long])
 
-  res <- bind_rows(
+  bind_rows(
     # take,
     take_vals,
     # fade in place:
     all %>% filter(.id_long %in% take_ids$.id_long & !.col %in% take_cols$.col) %>%
       mutate(.alpha = 0)
   )
-  return(res)
 }

R/process_data_helpers.R

   y_ <- process_data_join(y, ids, by, fill = fill, ...) %>%
     mutate(.x = .x + ncol(x) - 1)
 
-  return(list(x = x_, y = y_))
+  list(x = x_, y = y_)
 }
 
 
     }
   }
 
-  res <- add_color_join(x, rev(ids$.id), by, ...)
-  return(res)
+  add_color_join(x, rev(ids$.id), by, ...)
 }
 
 #' Adds Color to a processed data_frame