## Not run:
# # Plot data from a single identifier gives a bar chart
# dat <- alm_signposts(doi="10.1371/journal.pone.0029797")
# plot_signposts(dat)
#
# # Plot data from many identifiers gives a line chart
# dois <- c('10.1371/journal.pone.0001543','10.1371/journal.pone.0040117',
# '10.1371/journal.pone.0029797','10.1371/journal.pone.0039395')
# dat <- alm_signposts(doi=dois)
# plot_signposts(dat)
#
# # software lagotto instance
# urls <- c("https://github.com/najoshi/sickle","https://github.com/lh3/wgsim",
# "https://github.com/jstjohn/SeqPrep")
# dat <- alm_signposts(url = urls, api_url = "http://software.lagotto.io/api/v5/articles")
# plot_signposts(dat)
#
# # scopus ids
# ids <- c(68049122102, 14044251458, 48349097292, 28444460441)
# dat <- alm_signposts(scp = ids)
# plot_signposts(dat)
# ## End(Not run)
Run the code above in your browser using DataLab