## Not run:
# # Result of call to works()
# x <- works(orcid_id("0000-0001-8607-8025"))
# # doi by default
# identifiers(x)
# # orcids
# identifiers(x, "orcid")
# # pmid
# identifiers(x, "pmid")
# # pmc
# identifiers(x, "pmc")
# # other_id
# identifiers(x, "other_id")
#
# # Result of call to orcid_id()
# x <- orcid_id(orcid = "0000-0002-9341-7985")
# identifiers(x, "doi")
# identifiers(x, "eid")
#
# # Result of call to orcid()
# x <- orcid(query="carl+boettiger")
# identifiers(x, "scopus")
# identifiers(x, "orcid")
# identifiers(x, "researcherid")
#
# # Result of call to orcid_doi()
# x <- orcid_doi(dois="10.1087/20120404", fuzzy=TRUE)
# identifiers(x, "scopus")
# ## End(Not run)
Run the code above in your browser using DataLab