R/package_citations.R

In richardjtelford/rjt.misc: Utility Functions For Use With Rmarkdown

#'package_citations
#' @description Append package citations to copy of main bibliography
#' @param packages vector of packages for which citations are required
#' @param old_bib old bibtex file to copy
#' @param new_bib new bibtex file
#' @return new_bib is returned invisibly 
#' @importFrom fs file_copy
#' @importFrom utils citation
#' @importFrom bibtex write.bib
#' 
#' @export

package_citations <- function(packages, old_bib, new_bib){
  
  #copy original bib file
  file_copy(old_bib, new_bib, overwrite = TRUE)
  
  #R citation
  Rcite <- citation()
  Rcite$key = "R"
  write.bib(Rcite, new_bib, append = TRUE)
  
  #package citation
  write.bib(packages, new_bib, append = TRUE)
  invisible(return(new_bib))
}