From f453b6e71e62013ebd0757e21df10fc413610d80 Mon Sep 17 00:00:00 2001
From: Sameer Padhye <sameer.m.padhye@gmail.com>
Date: Thu, 3 Oct 2024 12:37:23 -0400
Subject: [PATCH] minor change bold search public

---
 R/external.bold.public.search.R | 47 +--------------------------------
 1 file changed, 1 insertion(+), 46 deletions(-)

diff --git a/R/external.bold.public.search.R b/R/external.bold.public.search.R
index 82cb4a9..69e995b 100644
--- a/R/external.bold.public.search.R
+++ b/R/external.bold.public.search.R
@@ -88,55 +88,10 @@ bold.public.search <- function(taxonomy = NULL,
       bind_rows(.)
   }
 
-  # if (length(non_null_args) > 1)
-  #
-  # {
-  #   # Convert the list into a character vector
-  #
-  #   values_args_vec = unlist (non_null_args)|>unname()
-  #
-  #   trial_query_input<- values_args_vec
-  #
-  #   result = fetch.public.data(query = trial_query_input)
-  #
-  # }
-  #
-  # else if (length(non_null_args)==1)
-  #
-  #   # If only a single input is provided
-  #
-  # {
-  #
-  #   trial_query_input = unlist(non_null_args)|>unname()
-  #
-  #   if(length(trial_query_input)<=5)
-  #   {
-  #     result = fetch.public.data(query = trial_query_input)
-  #
-  #   }
-  #
-  #   else
-  #
-  #   {
-  #     # Batch creation
-  #
-  #     generate.batch.ids = generate.batches(trial_query_input,batch.size = 5)
-  #
-  #     result.pre.filter = lapply(generate.batch.ids,
-  #                                function(x) fetch.public.data(x))
-  #
-  #
-  #     # Binding the list of dataframes
-  #
-  #     result=result.pre.filter%>%
-  #       bind_rows(.)
-  #     }
-  #
-  # }
 
   if(nrow(result)==0) stop("Data could not be retrieved. Please re-check the parameters.")
 
-  if(nrow(result)>1050000) warning("Data cap of 1 million records reached. All records might not have been retrieved. Please rephrase the search")
+  if(nrow(result)>1000000) warning("Data cap of 1 million records reached. All records might not have been retrieved. Please rephrase the search")
 
   result = result%>%
     dplyr::select(processid,