From 505b280e237a321fb57b295f427100dac781ee69 Mon Sep 17 00:00:00 2001
From: Yohann Chauvier <43674773+8Ginette8@users.noreply.github.com>
Date: Tue, 12 Mar 2024 16:49:03 +0100
Subject: [PATCH] updates

---
 R/get_gbif.R   | 8 +++++---
 R/get_status.R | 6 ++++--
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/R/get_gbif.R b/R/get_gbif.R
index 8b13f2a..edaa453 100644
--- a/R/get_gbif.R
+++ b/R/get_gbif.R
@@ -203,12 +203,14 @@ get_gbif = function(sp_name = NULL,
 
       } else if (nrow(s.keep)>1){
         s.keep2 = s.keep[s.keep$status%in%"ACCEPTED",]
-        if (nrow(s.keep2)==1){
+        cond2 = length(unique(s.keep$family))==1
+          
+        if (nrow(s.keep2)==1 & cond2){
           bone.search = s.keep2
-        
+                
         } else {
           s.keep3 = s.keep[s.keep$status%in%c("ACCEPTED","SYNONYM"),]
-          if (length(unique(s.keep3$acceptedUsageKey))==1){
+          if (suppressWarnings(length(unique(s.keep3$acceptedUsageKey))==1)){
           	bone.search = s.keep3[1,]
             
           } else {
diff --git a/R/get_status.R b/R/get_status.R
index c7998e0..3062b6e 100644
--- a/R/get_status.R
+++ b/R/get_status.R
@@ -58,12 +58,14 @@ get_status=function(sp_name = NULL, phylum = NULL, class = NULL, order = NULL, c
 
         } else if (nrow(s.keep)>1){
           s.keep2 = s.keep[s.keep$status%in%"ACCEPTED",]
-          if (nrow(s.keep2)==1){
+          cond2 = length(unique(s.keep$family))==1
+          
+          if (nrow(s.keep2)==1 & cond2){
             bone.search = s.keep2
           
           } else {
             s.keep3 = s.keep[s.keep$status%in%c("ACCEPTED","SYNONYM"),]
-            if (length(unique(s.keep3$acceptedUsageKey))==1){
+            if (suppressWarnings(length(unique(s.keep3$acceptedUsageKey))==1)){
               bone.search = s.keep3[1,]
 
             } else {