allows multiple id-columns

-id1, -id2 work, id1:id2 does not (yet)

R/animate_tidyr.R

@@ -38,6 +38,8 @@ animate_gather <- function(w, key, value, ..., export = "gif", detailed = TRUE)
   # ids <- ""
   # what happens if ids := -year or ids := x:y
 
+  # the case that ... contains two -arguments. i.e., -year, -region
+  ids <- ids[2, ]
   ids <- ids[!ids %in% c(key, value)]
   ids <- ids[ids != "-"]
 

R/tidyr_helpers.R

@@ -178,7 +178,7 @@ process_long <- function(x, ids, key, value, ...) {
   key_values <- x %>% pull(key) %>% unique()
 
   type_dict <- c(rep("id", length(ids)), rep("key", length(key)), rep("value", length(value)))
-  names(type_dict) <-  c(rep(ids, length(ids)), rep(key, length(key)), rep(value, length(value)))
+  names(type_dict) <-  c(ids, key, value)
 
   x_dict <- 1:nc
   names(x_dict) <- xn