# NOT RUN {
##Set your key
set_search_key <- "your apiKey"
##Search family IDs via family name
familyid <- search_family_id(query = "Anguillidae")
##Search taxon IDs via familyID
taxonid <- search_taxon_id(query = familyid$Anguillidae$data$record_id, name = "familyID")
#Download detailed lists via species or infraspecies ID
query <- taxonid[["3851c5311bed46c19529cb155d37aa9b"]][["data"]][["namecode"]]
x1 <- search_checklist(query = query)
str(x1)
x1 <- list_df(x1,db = "colchina")
#Get Catalogue of Life Global checklist via species name
x2 <- get_col_global(query = c("Anguilla marmorata","Anguilla japonica",
"Anguilla bicolor","Anguilla nebulosa",
"Anguilla luzonensis"),
option = "name")
str(x2)
x2 <- list_df(x2,db = "colglobal")
# }
Run the code above in your browser using DataLab