POG solution hopefully closes #7

liibre · Apr 3, 2021 · 486ef7c · 486ef7c
1 parent ef3d7af
commit 486ef7c
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/check_flora.R b/R/check_flora.R
@@ -45,6 +45,9 @@ check_flora <- function(species,
     api <- "http://servicos.jbrj.gov.br/flora/taxon/"
     search_sp <- gsub(" ", "%20", x)
     res <- jsonlite::fromJSON(paste0(api, search_sp))
+    sp <- paste(res$result$genus, res$result$specificepithet)
+    cual <- which(sp == x)
+    res$result <- res$result[cual,]
     return(res)
   }