Run globalVariables in a tryCatch

jimhester · jimhester · commit 1237fab81fe4 · 2019-10-01T11:45:15.000-04:00
This avoids an error if the package is not installed on the system
diff --git a/R/object_usage_linter.R b/R/object_usage_linter.R
@@ -24,7 +24,7 @@ object_usage_linter <-  function(source_file) {
   }
   env <- new.env(parent = parent_env)
 
-  declared_globals <- utils::globalVariables(package = pkg_name %||% globalenv())
+  declared_globals <- try_silently(utils::globalVariables(package = pkg_name %||% globalenv()))
 
   symbols <- get_assignment_symbols(source_file$xml_parsed_content)
 

Original file line number	Diff line number	Diff line change
`@@ -24,7 +24,7 @@ object_usage_linter <- function(source_file) {`
`24`	`24`	`}`
`25`	`25`	`env <- new.env(parent = parent_env)`
`26`	`26`
`27`		`- declared_globals <- utils::globalVariables(package = pkg_name %\|\|% globalenv())`
	`27`	`+ declared_globals <- try_silently(utils::globalVariables(package = pkg_name %\|\|% globalenv()))`
`28`	`28`
`29`	`29`	`symbols <- get_assignment_symbols(source_file$xml_parsed_content)`
`30`	`30`