allows multiple id-columns

-id1, -id2 work, id1:id2 does not (yet)
gadenbuie · Aug 23, 2018 · 259b44f · 259b44f
1 parent 64bfc54
commit 259b44f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/R/animate_tidyr.R b/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 != "-"]
 

diff --git a/R/tidyr_helpers.R b/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