Mine author affiliations out of publications


#1

Using the new pubchunks in dev pkg and fulltext pkg

aff option in pubchunks::pub_chunks just added 10 min ago or so

if (!require(fulltext)) install.packages("fulltext")
library(fulltext)
remotes::install_github("ropensci/pubchunks")
library(pubchunks)
# 3 DOIs for papers on Entrez
res <- ft_get(c('10.1155/2014/292109','10.1155/2014/162024', '10.1155/2014/249309'))
res %>% ft_collect() %>% pub_chunks("aff")

returns:

#> $hindawi
#> $hindawi$`10.1155/2014/292109`
#> $hindawi$`10.1155/2014/292109`$aff
#> $hindawi$`10.1155/2014/292109`$aff[[1]]
#> $hindawi$`10.1155/2014/292109`$aff[[1]]$id
#> [1] "I1"
#> 
#> $hindawi$`10.1155/2014/292109`$aff[[1]]$`addr-line`
#> [1] "Sue and Bill Gross Stem Cell Research Center, Chao Family Comprehensive Cancer Center, Department of Biomedical Engineering and Department of Pharmaceutical Sciences, University of California, Irvine"
#> 
#> $hindawi$`10.1155/2014/292109`$aff[[1]]$country
#> [1] "USA"
#> 
#> $hindawi$`10.1155/2014/292109`$aff[[1]]$`ext-link`
#> [1] "uci.edu"
#> 
#> $hindawi$`10.1155/2014/292109`$aff[[1]]$given_names
#> [1] "Weian"
#> 
#> $hindawi$`10.1155/2014/292109`$aff[[1]]$surname
#> [1] "Zhao"
#> 
#> ... CUTOFF