R/process.bibfile.R

In TAF: Transparent Assessment Framework for Reproducible Research

#' @rdname TAF-internal
#'
#' @export

## Process *.bib file

process.bibfile <- function(type, clean=TRUE, quiet=FALSE)
{
  # check type arg
  type <- match.arg(type, c("data", "software"))

  if (clean && type == "data")
  {
    clean.data(file.path(boot.dir(), "data"), quiet=quiet)
  }
  if (clean && type == "software")
  {
    clean.software(file.path(boot.dir(), "software"), quiet=quiet)
    clean.library(file.path(boot.dir(), "library"), quiet=quiet)
  }

  if (!quiet)
    message("Processing ", paste0(toupper(type), ".bib"))

  entries <- taf.sources(type)
  sapply(entries, process.entry, quiet=quiet)

  invisible(TRUE)
}