## Not run:
# get_nbnid(name='Poa annua')
# get_nbnid(name='Poa annua', rec_only=TRUE)
# get_nbnid(name='Poa annua', rank='Species')
# get_nbnid(name='Poa annua', rec_only=TRUE, rank='Species')
# get_nbnid(name='Pinus contorta')
#
# # The NBN service handles common names too
# get_nbnid(name='red-winged blackbird')
#
# # specify rows to limit choices available
# get_nbnid('Poa annua')
# get_nbnid('Poa annua', rows=1)
# get_nbnid('Poa annua', rows=25)
# get_nbnid('Poa annua', rows=1:2)
#
# # When not found
# get_nbnid(name="uaudnadndj")
# get_nbnid(c("Zootoca vivipara", "uaudnadndj"))
# get_nbnid(c("Zootoca vivipara","Chironomus riparius", "uaudnadndj"))
#
# # Convert an nbnid without class information to a nbnid class
# as.nbnid(get_nbnid("Zootoca vivipara")) # already a nbnid, returns the same
# as.nbnid(get_nbnid(c("Zootoca vivipara","Pinus contorta"))) # same
# as.nbnid('NHMSYS0001706186') # character
# as.nbnid(c("NHMSYS0001706186","NHMSYS0000494848","NBNSYS0000010867")) # character vector, length > 1
# as.nbnid(list("NHMSYS0001706186","NHMSYS0000494848","NBNSYS0000010867")) # list
# ## dont check, much faster
# as.nbnid('NHMSYS0001706186', check=FALSE)
# as.nbnid(list("NHMSYS0001706186","NHMSYS0000494848","NBNSYS0000010867"), check=FALSE)
#
# (out <- as.nbnid(c("NHMSYS0001706186","NHMSYS0000494848","NBNSYS0000010867")))
# data.frame(out)
# as.nbnid( data.frame(out) )
#
# # Get all data back
# get_nbnid_("Zootoca vivipara")
# get_nbnid_("Poa annua", rows=2)
# get_nbnid_("Poa annua", rows=1:2)
# get_nbnid_(c("asdfadfasd","Pinus contorta"), rows=1:5)
#
# # use curl options
# library("httr")
# get_nbnid("Quercus douglasii", config=verbose())
# bb <- get_nbnid("Quercus douglasii", config=progress())
# ## End(Not run)
Run the code above in your browser using DataLab