move text search to Xpath

Author: MichaelChirico

R/backport_linter.R

@@ -56,19 +56,18 @@ backport_linter <- function(r_version = getRversion(), except = character()) {
     all_names <- xml_text(all_names_nodes)
 
     bad_versions <- unname(backport_index[all_names])
-    needs_backport <- !is.na(bad_versions)
 
     lint_message <- sprintf(
       paste(
         "%s (R %s) is not available for dependency R >= %s.",
         "Use the `except` argument of `backport_linter()` to configure available backports."
       ),
-      all_names[needs_backport],
-      bad_versions[needs_backport],
+      all_names,
+      bad_versions,
       r_version
     )
     xml_nodes_to_lints(
-      all_names_nodes[needs_backport],
+      all_names_nodes,
       source_expression = source_expression,
       lint_message = lint_message,
       type = "warning"