Make ref key list (especially for searching in Mendeley)

make_ref_key_list.R

# Extract a list of citation keys from an Rmd file,
# paste them together to search in Mendeley to make
# a list of references in that Rmd file

rmd_file <- "path_to_Rmd_file"

citations <- 
  readr::read_lines(rmd_file) %>% 
  stringr::str_split(" |;") %>% 
  unlist %>% 
  magrittr::extract(., stringr::str_detect(.,"@")) %>% 
  stringr::str_remove_all("\\[|\\]|\\)|\\(|\\.$|,|\\{|\\}") %>% 
  stringr::str_remove_all("-@") %>% 
  stringr::str_remove_all("@") %>% 
  unique %>% 
  sort

paste(citations, collapse = " OR ")