refine

ropensci · Nov 14, 2024 · eb0e01e · eb0e01e
1 parent 304575d
commit eb0e01e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 7 deletions.
diff --git a/R/openalexR-coverage.R b/R/openalexR-coverage.R
@@ -12,6 +12,7 @@
 #' head(get_coverage(entity = "works"))
 get_coverage <- function(entity = NULL) {
   utils::data("oa2df_coverage", envir = environment(), package = "openalexR")
+  oa2df_coverage <- oa2df_coverage
 
   if (!is.null(entity)) {
     entity <- match.arg(entity, oa_entities())

diff --git a/vignettes/articles/A_Brief_Introduction_to_openalexR.Rmd b/vignettes/articles/A_Brief_Introduction_to_openalexR.Rmd
@@ -254,19 +254,19 @@ do.call(oa_fetch, c(italian_insts, list(count_only = TRUE)))
 dplyr::glimpse(do.call(oa_fetch, italian_insts))
 ```
 
-## Concepts (think theme, keywords)
+## Keywords
 
-**Example**: We want to download the records of all the concepts that concern at least one million works:
+**Example**: We want to download the records of all the keywords that more than 1000 works were tagged with:
 
 ```{r}
-popular_concepts <- list(
-  entity = "concepts",
-  works_count = ">1000000",
+popular_keywords <- list(
+  entity = "keywords",
+  works_count = ">1000",
   verbose = TRUE
 )
 
-do.call(oa_fetch, c(popular_concepts, list(count_only = TRUE)))
-dplyr::glimpse(do.call(oa_fetch, popular_concepts))
+do.call(oa_fetch, c(popular_keywords, list(count_only = TRUE)))
+dplyr::glimpse(do.call(oa_fetch, popular_keywords))
 ```
 
 ## Other examples