Improve object_usage_linter()

NEWS.md

@@ -9,6 +9,8 @@
 
 * `assignment_linter()` no longer lints assignments in braces that include comments when `allow_trailing = FALSE` (#1701, @ashbaldry)
 
+* `object_usage_linter()` no longer silently ignores usage warnings that don't contain a quoted name (#1714, @AshesITR)
+
 ## Changes to defaults
 
 * Set the default for the `except` argument in `duplicate_argument_linter()` to `c("mutate", "transmute")`.

R/object_usage_linter.R

@@ -122,9 +122,16 @@ object_usage_linter <- function(interpret_glue = TRUE, skip_with = TRUE) {
         },
         integer(1L)
       )
-
       nodes <- unclass(lintable_symbols)[matched_symbol]
-      nodes[is.na(matched_symbol)] <- list(fun_assignment)
+
+      # fallback to line based matching if no symbol is found
+      nodes[is.na(matched_symbol)] <- lapply(which(is.na(matched_symbol)), function(i) {
+        line_based_match <- xml2::xml_find_first(
+          fun_assignment,
+          glue::glue("descendant::expr[@line1 = {res$line1[i]} and @line2 = {res$line2[i]}]")
+        )
+        if (is.na(line_based_match)) fun_assignment else line_based_match
+      })
 
       xml_nodes_to_lints(nodes, source_expression = source_expression, lint_message = res$message, type = "warning")
     })
@@ -268,30 +275,26 @@ parse_check_usage <- function(expression,
       function_name,
       capture(
         name = "message",
-        anything,
-        one_of(quote, "\u2018"),
-        capture(name = "name", anything),
-        one_of(quote, "\u2019"),
-        anything
+        zero_or_more(any, type = "lazy"),
+        maybe(
+          one_of(quote, "\u2018"),
+          capture(name = "name", anything),
+          one_of(quote, "\u2019"),
+          anything
+        )
       ),
       line_info
     )
   )
 
+  # nocov start
   missing <- is.na(res$message)
   if (any(missing)) {
-    res[missing, ] <- re_matches(
-      vals[missing],
-      rex(
-        function_name,
-        capture(
-          name = "message",
-          "possible error in ", capture(name = "name", anything), ": ", anything
-        ),
-        line_info
-      )
-    )
+    warning("Possible bug in lintr: Couldn't parse usage message ", sQuote(vals[missing][[1L]]), ". ",
+            "Ignoring ", sum(missing), " usage warnings.")
+    res <- res[!missing, ]
   }
+  # nocov end
 
   res <- res[!is.na(res$message), ]
 

tests/testthat/test-object_usage_linter.R

@@ -545,7 +545,8 @@ test_that("fallback works", {
     "),
     list(
       message = rex::rex("no visible global function definition for ", anything, "non_existing_assign<-"),
-      column_number = 6L
+      line_number = 2L,
+      column_number = 3L
     ),
     object_usage_linter()
   )
@@ -606,3 +607,20 @@ test_that("missing libraries don't cause issue", {
     object_usage_linter()
   )
 })
+
+test_that("messages without a quoted name are caught", {
+  # regression test for #1714
+  expect_lint(
+    trim_some("
+      foo <- function() {
+        a <- ...
+        a
+      }
+    "),
+    list(
+      message = "... may be used in an incorrect context",
+      line_number = 2L
+    ),
+    object_usage_linter()
+  )
+})