Conflict of Interest List

doi2coi-list.R

# This will take a list of dois and convert them
# to a table containing the names of coauthers to
# populate a conflict of interest list.
# 
# It's not perfect, but it's better than nothing.
#
library("rcrossref")
library("tidyverse")
#
# Change these to YOUR dois.
dois <- "doi
10.1094/PHYTO-12-16-0425-RVW
10.7717/peerj.2279
10.1111/1755-0998.12567
10.1111/1755-0998.12558
10.1094/PDIS-10-15-1169-PDN
10.3389/fgene.2015.00208
10.1094/PHYTO-12-14-0350-FI
10.1094/PHYTO-05-14-0147-R
10.7717/peerj.281
"
DOI <- read_csv(dois)$doi
DOI
txt <- cr_cn(DOI, "citeproc-json-ish")
map_df(txt, "author") %>% 
  select(given, family) %>%
  unite(name, family, given, sep = ", ") %>%
  distinct() %>%
  arrange(name) %>%
  mutate(coauthor = rep("x", n())) %>%
  print.data.frame(row.names = FALSE)