geometa_namespace_exports

eblondel · Oct 1, 2024 · 28b8887 · 28b8887
1 parent 478d1f8
commit 28b8887
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/R/geometa_coverage.R b/R/geometa_coverage.R
@@ -268,3 +268,13 @@ geometa_coverage <- function(version = "19115-1/2"){
   elements <- elements[!is.na(elements$specification),]
   return(elements)
 }
+
+geometa_namespace_exports = function(){
+  if(is.null(.geometa.iso$exports)){
+    f <- base::system.file("NAMESPACE", package="geometa")
+    objs <- readLines(f)
+    exps <- objs[grepl("export", objs)]
+    .geometa.iso$exports = sub("^export[^\\(]*\\(([^\\)]+)\\)", "\\1", exps)
+  }
+  return(.geometa.iso$exports)
+}