Skip to content

Instantly share code, notes, and snippets.

@alexsingleton
Created August 17, 2016 20:42
Show Gist options
  • Save alexsingleton/23407b3213d8c2c4d72ec655b0532188 to your computer and use it in GitHub Desktop.
Save alexsingleton/23407b3213d8c2c4d72ec655b0532188 to your computer and use it in GitHub Desktop.
file_journals <- ReadBib("journals.bib")
dates <- unlist(unique(file_journals$year))[order(unlist(unique(file_journals$year)),decreasing = TRUE)]
#Prints recerences
for (date in dates) {
cat(paste0("##",date),"\n")
print(file_journals[list(year=date)],.opts = list(style="markdown",bib.style ="authoryear" ,max.names =10,dashed=FALSE))
cat("\n")
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment