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

mitchelloharawild · web-flow · commit 72897ca34d81 · 2024-06-26T18:28:20.000+10:00
Resolves #305
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))

Original file line number	Diff line number	Diff line change
`@@ -51,7 +51,7 @@`
`51`	`51`	`}`
`52`	`52`
`53`	`53`	`new_key <- cn[cn %in% key_vars(x)]`
`54`		`- maybe_tsibble <- n_keys(x) > 1 && !all(is.element(key(x), new_key))`
	`54`	`+ maybe_tsibble <- n_keys(x) > 1 && !all(is.element(key_vars(x), new_key))`
`55`	`55`
`56`	`56`	`# Column subsetting only`
`57`	`57`	`if (is_null(i) && !is_null(j) && maybe_tsibble) return(as_tibble(res))`