capture 'globalVar' tags in network data to fix #77

mpadge · mpadge · commit 69f764dc59b5 · 2025-02-26T14:30:00.000+01:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: pkgstats
 Title: Metrics of R Packages
-Version: 0.2.0.053
+Version: 0.2.0.054
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))
diff --git a/R/tag-data.R b/R/tag-data.R
@@ -103,7 +103,9 @@ tags_data <- function (path, has_tabs = NULL, pkg_name = NULL) {
         }
     }
 
-    fns_r <- tags_r [which (tags_r$kind == "function" & !is.na (tags_r$tag)), ]
+    # Functions defined from namespaces of other packages are tagged as global variables.
+    kinds <- c ("function", "globalVar")
+    fns_r <- tags_r [which (tags_r$kind %in% kinds & !is.na (tags_r$tag)), ]
     fn_vars_r <- tags_r [which (tags_r$kind == "functionVar" &
         !is.na (tags_r$tag)), ]
 
diff --git a/codemeta.json b/codemeta.json
@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/pkgstats",
   "issueTracker": "https://github.com/ropensci-review-tools/pkgstats/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.2.0.053",
+  "version": "0.2.0.054",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

Original file line number	Diff line number	Diff line change
`@@ -103,7 +103,9 @@ tags_data <- function (path, has_tabs = NULL, pkg_name = NULL) {`
`103`	`103`	`}`
`104`	`104`	`}`
`105`	`105`
`106`		`- fns_r <- tags_r [which (tags_r$kind == "function" & !is.na (tags_r$tag)), ]`
	`106`	`+ # Functions defined from namespaces of other packages are tagged as global variables.`
	`107`	`+ kinds <- c ("function", "globalVar")`
	`108`	`+ fns_r <- tags_r [which (tags_r$kind %in% kinds & !is.na (tags_r$tag)), ]`
`107`	`109`	`fn_vars_r <- tags_r [which (tags_r$kind == "functionVar" &`
`108`	`110`	`!is.na (tags_r$tag)), ]`
`109`	`111`