use getExportedValue() to get lazydata

ropensci · Nov 18, 2024 · cfeafae · cfeafae
1 parent 6a806c2
commit cfeafae
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/R/oa2bibliometrix.R b/R/oa2bibliometrix.R
@@ -52,7 +52,7 @@ oa2bibliometrix <- function(df) {
     return()
   }
 
-  utils::data("countrycode", envir = environment(), package = "openalexR")
+  countrycode <- getExportedValue("openalexR", "countrycode")
   countrycode$Country <- as.character(countrycode$Country)
 
   # Authors

diff --git a/R/openalexR-coverage.R b/R/openalexR-coverage.R
@@ -11,8 +11,7 @@
 #' oa_entities()
 #' head(get_coverage(entity = "works"))
 get_coverage <- function(entity = NULL) {
-  utils::data("oa2df_coverage", envir = environment(), package = "openalexR")
-  oa2df_coverage <- oa2df_coverage
+  oa2df_coverage <- getExportedValue("openalexR", "oa2df_coverage")
 
   if (!is.null(entity)) {
     entity <- match.arg(entity, oa_entities())