bugfix: names being matched in parent environments

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: roxyglobals
 Title: Roxgen2 Global Variable Declarations
-Version: 0.2.0
+Version: 0.2.1
 Authors@R: c(
     person(given = "Anthony", family = "North", role = c("aut", "cre"), email = "anthony.jl.north@gmail.com"),
     person(given = "Miles", family = "McBain", role = "ctb", email = "miles.mcbain@gmail.com", comment = c(ORCID = "0000-0003-2865-2548")))

R/extract.R

@@ -8,15 +8,25 @@ extract_globals <- function(func) {
   globals <- c()
 
   enter <- function(type, name, expr, walker) {
-    undefined <- !exists(
-      name, envir = walker$globalenv, mode = ifelse(type == "function", type, "any")
-    )
-
-    if (undefined && (type == "variable" || type == "function" && name == c(":="))) {
+    undefined <- !is_defined(name, walker$globalenv)
+    if (undefined && (type == "variable" || type == "function" && name == ":=")) {
       env$globals <- c(globals, name)
     }
   }
 
   codetools::collectUsage(func, enterGlobal = enter)
   unique(globals)
 }
+
+#' Is defined
+#'
+#' @param name a binding name
+#' @param env an environment
+#' @param inherit look for names in parent environments
+#'
+#' @keywords internal
+#' @noRd
+is_defined <- function(name, env, inherit = FALSE) {
+  exists(name, envir = env, inherits = inherit) ||
+    exists(name, envir = baseenv(), inherits = inherit)
+}