Remove pipe on end of commented code prior to checking parsability

NEWS.md

@@ -29,6 +29,7 @@
 * `.lintr` configs set by option `lintr.linter_file` or environment variable `R_LINTR_LINTER_FILE` can point to subdirectories (#2512, @MichaelChirico).
 * `indentation_linter()` returns `ranges[1L]==1L` when the offending line has 0 spaces (#2550, @MichaelChirico).
 * `literal_coercion_linter()` doesn't surface a warning about NAs during coercion for code like `as.integer("a")` (#2566, @MichaelChirico).
+* `commented_code_linter()` can detect commented out code ending with a pipe (#2671, @jcken95)
 
 ## Changes to default linters
 

R/commented_code_linter.R

@@ -86,6 +86,10 @@ commented_code_linter <- function() {
     # ignore trailing ',' when testing for parsability
     extracted_code <- re_substitutes(extracted_code, rex(",", any_spaces, end), "")
     extracted_code <- re_substitutes(extracted_code, rex(start, any_spaces, ","), "")
+    # ignore a trailing pipe (|> or %>%) when testing parsability
+    extracted_code <- re_substitutes(extracted_code, rex("|>", any_spaces, end), "")
+    extracted_code <- re_substitutes(extracted_code, rex("%>%", any_spaces, end), "")
+
     is_parsable <- which(vapply(extracted_code, parsable, logical(1L)))
 
     lint_list <- xml_nodes_to_lints(

tests/testthat/test-commented_code_linter.R

@@ -103,3 +103,19 @@ test_that("commented_code_linter can detect operators in comments and lint corre
     commented_code_linter()
   )
 })
+
+test_that("commented_code_linter can detect commented code ending with a pipe", {
+  skip_if_not_r_version("4.1.0")
+
+  expect_lint(
+    "# f() |>",
+    rex::rex("Remove commented code."),
+    commented_code_linter()
+  )
+
+  expect_lint(
+    "# f() %>%",
+    rex::rex("Remove commented code."),
+    commented_code_linter()
+  )
+})