Simplify xpath

r-lib · Jun 22, 2024 · 231abff · 231abff
1 parent 396a239
commit 231abff
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/seq_linter.R b/R/seq_linter.R
@@ -80,9 +80,7 @@ seq_linter <- function() {
   seq_funcs <- xp_text_in_table(c("seq_len", "seq"))
   sequence_xpath <- glue("
     parent::expr[following-sibling::expr/SYMBOL[ {seq_funcs} ]]
-    /parent::expr/parent::expr[
-      expr/SYMBOL_FUNCTION_CALL[text() = 'unlist']
-    ]"
+    /parent::expr[preceding-sibling::expr/SYMBOL_FUNCTION_CALL[text() = 'unlist']]"
   )
 
   ## The actual order of the nodes is document order