updates

8Ginette8 · Mar 12, 2024 · 505b280 · 505b280
1 parent e6d6a5b
commit 505b280
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git 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
@@ -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 {