Update get_status.R

8Ginette8 · Mar 25, 2024 · b8b9953 · b8b9953
1 parent 3234c3c
commit b8b9953
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/get_status.R b/R/get_status.R
@@ -256,9 +256,9 @@ get_status=function(sp_name = NULL,
   }
 
   # Which is null in main.dat for Genus, Family, Order, Phyllum?
-  exist.not = c("genus","order","family","phylum")%in%names(main.dat)
+  exist.not = c("genus","family","order","phylum")%in%names(main.dat)
   main.out = data.frame(Genus=NA,Family=NA,Order=NA,Phylum=NA)
-  main.out[exist.not] = main.dat[,c("genus","order","family","phylum")[exist.not]]
+  main.out[exist.not] = main.dat[,c("genus","family","order","phylum")[exist.not]]
 
   # Extract accepted names and synonyms
   e.output = data.frame(canonicalName = c.can,