Remove fable key dropping functionality for now

tidyverts · May 19, 2020 · b735f0a · b735f0a
1 parent fcf6f5e
commit b735f0a
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/R/fable.R b/R/fable.R
@@ -150,11 +150,11 @@ restore_fable <- function(data, template){
   data <- as_tibble(data)
   data_cols <- names(data)
 
-  key_vars <- setdiff(key_vars(template), data_cols)
-  key_data <- select(key_data(template), key_vars)
-  if (vec_size(key_data) == 1) {
-    template <- remove_key(template, setdiff(key_vars(template), key_vars))
-  }
+  # key_vars <- setdiff(key_vars(template), data_cols)
+  # key_data <- select(key_data(template), key_vars)
+  # if (vec_size(key_data) == 1) {
+  #   template <- remove_key(template, setdiff(key_vars(template), key_vars))
+  # }
 
   # Variables to keep
   tsbl_vars <- setdiff(c(index_var(template), key_vars(template)), data_cols)