Nothing
#' @param value character vector of new key values to replace into \code{x}
#' @rdname names.BibEntry
#' @method names<- BibEntry
#' @export
#' @return \code{names<-} the updated BibEntry object.
`names<-.BibEntry` <- function(x, value){
x <- mapply(`attr<-`, unclass(x), list('key'), as.list(value),
SIMPLIFY = FALSE)
class(x) <- c('BibEntry', 'bibentry')
x <- MakeKeysUnique(x)
x
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.