extract complex conditional into a variable

r-lib · Dec 8, 2023 · f2f491b · f2f491b
1 parent 6f1df16
commit f2f491b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-get_source_expressions.R b/tests/testthat/test-get_source_expressions.R
@@ -371,10 +371,10 @@ patrick::with_parameters_test_that(
       linter <- eval(call(linter))
     }
     expression <- expressions[[expression_idx]]
-    if (
+    is_valid_linter_level <-
       (is_linter_level(linter, "expression") && is_lint_level(expression, "expression")) ||
         (is_linter_level(linter, "file") && is_lint_level(expression, "file"))
-    ) {
+    if (is_valid_linter_level) {
       expect_no_warning({
         lints <- linter(expression)
       })