adapt test: now only 3x faster, previously 5x.

Author: lorenzwalthert

R/nest.R

@@ -116,13 +116,12 @@ drop_cached_children <- function(pd) {
 #'   top level expression, potentially cached.
 #' @keywords internal
 find_pos_id_to_keep <- function(pd) {
-    if (pd$is_cached[1]) {
-      idx_comment <- which(pd$token == "COMMENT")
-      pd$pos_id[unique(c(1, idx_comment))]
-    } else {
-      pd$pos_id
-    }
+  if (pd$is_cached[1]) {
+    pd$pos_id[c(TRUE, pd[-1L, "token"] == "COMMENT")]
+  } else {
+    pd$pos_id
   }
+}
 
 
 #' Turn off styling for parts of the code

tests/testthat/test-cache-with-r-cache.R

@@ -56,7 +56,7 @@ test_that("top-level test: Caches top-level expressions efficiently on style_tex
   cache_deactivate()
   not_cached_benchmark <- system.time(style_text(text_styled))
   expect_lt(
-    partially_cached_benchmark['elapsed'] * 5,
+    partially_cached_benchmark['elapsed'] * 3,
     not_cached_benchmark['elapsed']
   )
 })