From e2db59ee7f458bc81d2257a2788572b2bd5d8614 Mon Sep 17 00:00:00 2001
From: Sameer Padhye <sameer.m.padhye@gmail.com>
Date: Thu, 3 Oct 2024 15:32:11 -0400
Subject: [PATCH] added distinct selection of ids for public search function

---
 R/external.bold.public.search.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/external.bold.public.search.R b/R/external.bold.public.search.R
index 69e995b..5edc1a0 100644
--- a/R/external.bold.public.search.R
+++ b/R/external.bold.public.search.R
@@ -95,7 +95,9 @@ bold.public.search <- function(taxonomy = NULL,
 
   result = result%>%
     dplyr::select(processid,
-                  sampleid)
+                  sampleid)%>%
+    dplyr::distinct(processid,
+                    sampleid)
 
   return(result)