## Not run:
# # pdf link
# cr_ft_links(doi = "10.5555/515151", "pdf")
# cr_ft_links(doi = "10.5555/515151", "pdf")
#
# # all links
# cr_ft_links(doi = "10.3897/phytokeys.42.7604", type = "all")
#
# # Get doi first from other fxn, then pass here
# out <- cr_works(filter=c(has_full_text = TRUE), limit = 50)
# dois <- out$data$DOI
# cr_ft_links(dois[2], "xml")
# cr_ft_links(dois[1], "plain")
# cr_ft_links(dois[1], "all")
#
# # (most likely) No links
# cr_ft_links(cr_r(1))
# cr_ft_links(doi="10.3389/fnagi.2014.00130")
# ## End(Not run)
Run the code above in your browser using DataLab