extract_authors_from_bib <- function(bib.file){
read_lines(bib.file) %>%
grep("^\\s+author", ., value = TRUE, perl = TRUE) %>%
gsub("^.*[=]\\s+", "", ., perl = TRUE) %>%
gsub("[\\{\\},]", "", ., perl = TRUE) %>%
strsplit(split = " ", fixed = TRUE) %>%
unlist %>%
unique %>%
.[nchar(.) > 1L]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.