Skip to content

Instantly share code, notes, and snippets.

@SteveViss
Last active July 3, 2018 23:43
Show Gist options
  • Save SteveViss/5a40736e1e93a84af832588bb2cfc812 to your computer and use it in GitHub Desktop.
Save SteveViss/5a40736e1e93a84af832588bb2cfc812 to your computer and use it in GitHub Desktop.
Obtenir l'information taxonomique depuis un nom commun FR
vascan_lookup <- function(search) {
ress <- "http://data.canadensys.net/vascan/api/0.1/search.json"
if(length(search) == 1L){
return(httr::GET(ress, query = list(q = search)))
} else {
responses <- list()
for (s in 1:length(search)) responses[[s]] <- httr::GET(ress, query = list(q = search[s]))
return(responses)
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment