added distinct selection of ids for public search function

boldsystems-central · Oct 3, 2024 · e2db59e · e2db59e
1 parent f453b6e
commit e2db59e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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)