From 486ef7c6adbae0bfe586f616ec8e51793cc9b9f2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andrea=20S=C3=A1nchez-Tapia?= Date: Sat, 3 Apr 2021 10:16:19 -0700 Subject: [PATCH] POG solution hopefully closes #7 --- R/check_flora.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/R/check_flora.R b/R/check_flora.R index 4536941..69b2b76 100644 --- 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) }