#' Combine BibEntry objects.
#'
#' Combines mutliple BibEntry objects into a single one.
#' @param ... - BibEntry objects to be concatenated.
#' @param recursive - logical; ignored.
#' @return a single BibEntry object.
#' @method c BibEntry
#' @export
#' @note \code{c} will remove all attributes besides \code{class}.
#'
#' No checking for duplicate entries is performed though keys will be made unique.
#' @keywords methods
#' @family operators
#' @examples
#' bib <- c(BibEntry(bibtype = "article", key = "mclean2014a", title = "My New Article",
#' author = "Mathew W. McLean", journaltitle = "The Journal", date = "2014-01"),
#' BibEntry(bibtype = "article", key = "mclean2014b",
#' title = "My Newer Article", author = "Mathew W. McLean", journaltitle = "The Journal",
#' date = "2014-02"))
c.BibEntry <- function (..., recursive = FALSE){
args <- list(...)
if (!all(vapply(args, function(x) !length(x) || inherits(x, "bibentry"),
FALSE)))
stop(gettextf("method is only applicable to %s objects",
sQuote("BibEntry")), domain = NA)
args <- lapply(args, unclass)
rval <- do.call("c", args)
class(rval) <- c("BibEntry", "bibentry")
rval <- MakeKeysUnique(rval)
rval
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.