Script to find references linked by common authorship in a .bib file

get_common_authors.R

library(bib2df)
library(dplyr)

get_common_authors <- function(data){ 

data$related <- character(dim(data)[1])


for (test.row in 1:dim(data)[1]) {
  
test.authors <- unlist(data[test.row,5])

for (data.row in 1:dim(data)[1]) {

if (any(test.authors %in% unlist(data[data.row,]))==TRUE & test.row != data.row) {
  data$related[data.row] <- paste0(data$related[data.row],", ",data$BIBTEXKEY[test.row])
} 
  
}

}

for (row in 1:dim(data)[1]) {
data$related[row] <- stringr::str_sub(data$related[row],3,nchar(data$related[row]))
}
  
  data
  
}