search

jesstytam / honours

0 stars 0 forks source link

common name matching #16

Closed jesstytam closed 3 years ago

jesstytam commented 4 years ago

go to iNaturalist

wcornwell commented 4 years ago 
library(rinat)
get_inat_common_name<-function(scientificname){
  a_mac <- get_inat_obs(taxon_name = scientificname,maxresults=1000)
  return(names(sort(table(a_mac$species_guess),decreasing = TRUE)[1]))
}

get_inat_common_name("Phascolarctos cinereus")
get_inat_common_name("Dasyurus viverrinus")

I think that should do it

jesstytam commented 3 years ago

too hard