# NOT RUN {
# get all works
res <- orcid_works(orcid = "0000-0002-9341-7985")
res$`0000-0002-9341-7985`
res$`0000-0002-9341-7985`$group
res$`0000-0002-9341-7985`$group$`work-summary`
res$`0000-0002-9341-7985`$group$`work-summary`[[1]]
str(res$`0000-0002-9341-7985`$group$`work-summary`[[1]])
# get individual works
orcid_works(orcid = "0000-0002-9341-7985", 5011717)
orcid_works(orcid = "0000-0002-9341-7985", put_code = c(5011717, 15536016))
# change formats
orcid_works("0000-0002-9341-7985", 5011717, "application/json")
orcid_works("0000-0002-9341-7985", 5011717, "application/xml")
orcid_works("0000-0002-9341-7985", 5011717,
"application/vnd.orcid+xml; qs=5")
orcid_works("0000-0002-9341-7985", 5011717,
"application/vnd.citationstyles.csl+json")
# }
Run the code above in your browser using DataLab