Fix key comparison for column selection matching non-syntactical names

Resolves #305
tidyverts · Mar 2, 2024 · 8e8b687 · 8e8b687
1 parent 9e0057e
commit 8e8b687
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/subset.R b/R/subset.R
@@ -51,7 +51,7 @@
   }
 
   new_key <- cn[cn %in% key_vars(x)]
-  maybe_tsibble <- n_keys(x) > 1 && !all(is.element(key(x), new_key))
+  maybe_tsibble <- n_keys(x) > 1 && !all(is.element(key_vars(x), new_key))
 
   # Column subsetting only
   if (is_null(i) && !is_null(j) && maybe_tsibble) return(as_tibble(res))