Description Usage Arguments Value Examples
View source: R/pubmed_authors.R
Parse authors
1 | pubmed_authors(nodes)
|
nodes |
article node set |
A tibble
1 2 3 4 5 6 7 8 9 10 | aq <- pubmed_nodeset(aqc)
x <- pubmed_authors(aq)
x
mutate(x, name=paste(last, initials)) %>%
group_by(pmid) %>%
summarize(authors=paste(name, collapse=", "))
mutate(x, name=ifelse(lead(n) == 5, "et al", paste(last, initials))) %>%
filter(n < 5) %>%
group_by(pmid) %>%
summarize(authors=paste(name, collapse=", "))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.