fix tests

Author: lorenzwalthert

R/transform-files.R

@@ -260,7 +260,7 @@ parse_transform_serialize_r <- function(text,
 transformers_subset_impl <- function(transformers, token, scope, code) {
   transformer_names <- names(token)
   for (i in seq_along(token)) {
-    if (!any(token[i] %in% code)) {
+    if (!any(token[[i]] %in% code)) {
       transformers[[scope]][[transformer_names[i]]] <- NULL
     }
   }

tests/testthat/test-transformers-subset.R

@@ -63,7 +63,7 @@ test_that("if no subset_transformers is specified, no transformer is removed and
 
 test_that('semi-colon is parsed without error', {
   expect_equal(
-    transformers_subset(c("a", ";", "b"), t_fun),
-    t_fun
+    transformers_subset(c("!a", ";", "b"), t),
+    t
   )
 })