Fix key comparison for column selection matching non-syntactical names (

#306) Resolves #305
tidyverts · Jun 26, 2024 · 72897ca · 72897ca
1 parent 9e0057e
commit 72897ca
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))