object_usage_linter() ft. useFancyQuotes=FALSE (#1523)

Closes #1498
r-lib · Sep 16, 2022 · 1f92701 · 1f92701
1 parent 8013786
commit 1f92701
Showing 1 changed file with 11 additions and 6 deletions.
diff --git a/R/object_usage_linter.R b/R/object_usage_linter.R
@@ -198,12 +198,17 @@ parse_check_usage <- function(expression, known_used_symbols = character(), decl
     vals[[length(vals) + 1L]] <<- x
   }
 
-  try(codetools::checkUsage(
-    expression,
-    report = report,
-    suppressLocalUnused = known_used_symbols,
-    suppressUndefined = declared_globals
-  ))
+  withr::with_options(
+    list(useFancyQuotes = FALSE),
+    code = {
+      try(codetools::checkUsage(
+        expression,
+        report = report,
+        suppressLocalUnused = known_used_symbols,
+        suppressUndefined = declared_globals
+      ))
+    }
+  )
 
   function_name <- rex(anything, ": ")
   line_info <- rex(" ", "(", capture(name = "path", non_spaces), ":",