R/bibliography.R

In cboettig/knitcitations: Citations for 'Knitr' Markdown Files

#' Generate the bibliography
#' @param ... additional arguments passed to PrintBibliography,
#' @param style see RefManageR::PrintBibliography
#' @details 
#' 
#' For non-trivial bibliographies, knitcitations recommends authors use 
#' pandoc format, and allow pandoc 
#' to generate the references list rather than rely on the bibliography() function. 
#' Pandoc has rich CSL support using any provided CSL file (see Pandoc documentation
#' for details) and is integrated into recent version of RStudio.  
#' 
#' @return a list of works cited 
#' @export
#' @examples
#' citet(citation("httr"))
#' citet(citation("digest"))
#' bibliography()
#' bibliography(sorting = 'ynt') # sort by year, then name, title
#' bibliography(sorting = 'ydnt') # sort by year, descending, then name, title
#' cleanbib()
#'
bibliography <- function(style="text", ...)
{
  bibs <- get_bib()
  NoCite(bibs)

#  if(is.null(style)){
#    BibOptions(...)
#    refs <- sapply(sort(bibs), csl_formatting)
#    #cat(refs, sep="\n")
#  } else {
    PrintBibliography(bibs, .opts=list(style=style,...))
 # }
  invisible(bibs)
}


## Deprecated
csl_formatting <- function(bib, style = "ecology"){
    if(!is.null(bib$doi)){
      resp <- GET(paste("http://data.crossref.org", bib$doi, sep="/"), 
          add_headers(Accept = paste0("text/bibliography; style=", style)))
      if(resp$headers[["content-type"]] == "text/bibliography")
        content(resp)
      else # returned wrong content type, so fall back on default print method
        print(bib)
    } else { # no DOI, fall back on default print method 
      print(bib)
    }
}