use interval combine_faers

Yunuuuu · Nov 8, 2023 · 2f81ec8 · 2f81ec8
1 parent 04adde4
commit 2f81ec8
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/faers.R b/R/faers.R
@@ -39,7 +39,12 @@ faers <- function(years, quarters, format = NULL, dir = getwd(), compress_dir =
  list(path = faers_files, year = yq$years, quarter = yq$quarters),
  MoreArgs = list(format = format, compress_dir = compress_dir)
  )
- faers_combine(out)
+ l <- length(out)
+ if (l == 1L) {
+ return(out[[1L]])
+ }
+ cli::cli_alert("Combining all {l} {.cls FAERS} Data{?s}")
+ combine_faers(out)
 }
 
 recycle_scalar <- function(..., length = NULL, args = NULL) {