options as new argument in oa_snowball

ropensci · Jul 19, 2023 · b278c95 · b278c95
1 parent 491ae75
commit b278c95
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 4 deletions.
diff --git a/R/oa_snowball.R b/R/oa_snowball.R
@@ -36,6 +36,7 @@
 oa_snowball <- function(identifier = NULL,
                         ...,
                         id_type = c("short", "original"),
+                        options = list(),
                         mailto = oa_email(),
                         endpoint = "https://api.openalex.org",
                         verbose = FALSE,
@@ -45,6 +46,7 @@ oa_snowball <- function(identifier = NULL,
   base_args <- list(
     entity = "works",
     output = "tibble",
+    options = options,
     endpoint = endpoint,
     mailto = mailto,
     verbose = verbose

diff --git a/R/utils.R b/R/utils.R
@@ -14,8 +14,7 @@ replace_w_na <- function(x){
   lapply(x, `%||%`, y = NA)
 }
 
-subs_na <- function(x, type = c("row_df", "col_df", "flat", "rbind_df", "identical"), prefix = NULL) {
-  type <- match.arg(type)
+subs_na <- function(x, type, prefix = NULL) {
   if (length(x) == 0) {
     return(NA)
   }
@@ -28,8 +27,7 @@ subs_na <- function(x, type = c("row_df", "col_df", "flat", "rbind_df", "identic
     row_df = as.data.frame(replace_w_na(x)),
     col_df = tibble::enframe(unlist(x)),
     flat = unlist(x),
-    rbind_df = do.call(rbind.data.frame, lapply(x, replace_w_na)
-    )
+    rbind_df = do.call(rbind.data.frame, lapply(x, replace_w_na))
   )
 
   if (!is.null(prefix)) {

diff --git a/man/oa_snowball.Rd b/man/oa_snowball.Rd