bibkeys <- function(x) {
  # x: a .bib file (character)
  bib <- readLines(x)
  bib <- bib[grep('^@', bib)]
  sub('.*\\{(.*),', '\\1', bib[grep('^@', bib)])
}