minor function changes

R/animate_options.R

@@ -151,7 +151,7 @@ validate_anim_opts <- function(ao, quiet = FALSE, strict = getOption("tidyexplai
   if (!quiet && length(extra_names)) {
     extra_names <- paste0(sprintf("`%s`", extra_names), collapse = ", ")
     msg <- paste("Unknown animation options will be ignored:", extra_names)
-    if (isTrue(strict)) rlang::abort(msg) else rlang::warn(msg)
+    if (isTRUE(strict)) rlang::abort(msg) else rlang::warn(msg)
   }
   invisible(ao)
 }

R/process_data_helpers.R

@@ -72,7 +72,6 @@ process_data_join <- function(x, ids, by, width = 1, side = NA, fill = TRUE,
 
   x <- x %>%
     mutate(.r = row_number()) %>%
-    # TODO re-evaluate gather_ here
     tidyr::gather_(key = ".col", value = ".val", names(x)[grepl("^[^.]", names(x))]) %>%
     mutate(.x = x_keys[.col],
            .y = -.r) %>%

R/tidyr_helpers.R

@@ -253,7 +253,8 @@ process_long <- function(x, ids, key, value, ...) {
 #'
 #' @examples
 #' NULL
-gather_spread <- function(lhs, rhs, sequence, key_values, export, detailed, ..., anim_opts = anim_options()) {
+gather_spread <- function(lhs, rhs, sequence, key_values, export, detailed, ...,
+                          anim_opts = anim_options(...)) {
   # lhs is the one state of the df
   # rhs is the target state