epmc_search: populate the hit_count attribute even with zero results

ropensci · Jun 12, 2024 · 2c6462d · 2c6462d
1 parent 86ccdfc
commit 2c6462d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/epmc_search.r b/R/epmc_search.r
@@ -104,7 +104,10 @@ epmc_search <- function(query = NULL,
   hits <- epmc_hits(query, synonym = synonym)
   if (hits == 0) {
     message("There are no results matching your query")
-    md <- NULL
+    # return an empty tibble
+    md <- tibble::tibble()
+    # populate the hit_count attribute even with zero results
+    attr(md, "hit_count") <- hits
   } else {
     limit <- as.integer(limit)
     limit <- ifelse(hits <= limit, hits, limit)