From 57f7c63b4d86662ae0d3ec88f870332d25ceee39 Mon Sep 17 00:00:00 2001
From: arvi1000 <2406749+arvi1000@users.noreply.github.com>
Date: Mon, 1 Jul 2024 11:22:32 -0400
Subject: [PATCH] Update for smaller result set

---
 tests/testthat/test_epmc_db.r | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test_epmc_db.r b/tests/testthat/test_epmc_db.r
index 750abe9..83e231c 100644
--- a/tests/testthat/test_epmc_db.r
+++ b/tests/testthat/test_epmc_db.r
@@ -2,7 +2,10 @@ context("testing epmc_db")
 
 test_that("epmc_db returns", {
   skip_on_cran()
-  a <- epmc_db("12368864", db = "uniprot", limit = 50)
+  # as of July 2024, this result only returns 10 results, so limit must
+  # be <= that
+  a_limit <- 7
+  a <- epmc_db("12368864", db = "uniprot", limit = a_limit)
   b <- epmc_db("25249410", db = "embl")
   c <- epmc_db("14756321", db = "uniprot")
   d <- epmc_db("11805837", db = "pride")
@@ -31,7 +34,7 @@ test_that("epmc_db returns", {
 
 
 
-  expect_equal(nrow(a), 50)
+  expect_equal(nrow(a), a_limit)
 
   # fails correctly
   expect_error(epmc_db("14756321"), "Please restrict reponse to a database")