invited.r

file_invited <- as.data.frame(ReadBib("invited.bib"))
file_invited$title <- gsub("\\{|\\}","",file_invited$title)# Remove {}
file_invited$address <- gsub("\\{|\\}","",file_invited$address)# Remove {}

dates <- unlist(unique(file_invited$year))[order(unlist(unique(file_invited$year)),decreasing = TRUE)]

#Prints references - slightly different format as converted to data frame for formating
for (date in dates) {
  cat(paste0("##",date),"\n")
  
  tmp <- file_invited[file_invited$year==date,]
  
  for (i in 1:nrow(tmp)) {
  cat(paste0("_",tmp[i,]$title,"._ "),paste0(tmp[i,]$address,".","\n"))
  cat("\n")  
    
  }
}