Clean up return statements for #15

R/move_together.R

@@ -93,7 +93,7 @@ move_together <- function(lhs, rhs, type) {
            .x = xvals[.col],
            .y = yvals[.id_long])
 
-  res <- bind_rows(
+  bind_rows(
     # take,
     take_vals,
     # fade in place:
@@ -102,5 +102,4 @@ move_together <- function(lhs, rhs, type) {
     all %>% filter(.id_long %in% take_ids$.id_long & !.col %in% take_cols$.col) %>%
       mutate(.alpha = 0)
   )
-  return(res)
 }

R/process_data_helpers.R

@@ -38,7 +38,7 @@ process_join <- function(x, y, by, fill = TRUE, ...) {
   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_)
 }
 
 
@@ -102,8 +102,7 @@ process_data_join <- function(x, ids, by, width = 1, side = NA, fill = TRUE, ...
     }
   }
 
-  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