15 lines
357 B
R
15 lines
357 B
R
|
|
#' copyBib()
|
|
#' @param toDIR the directory .
|
|
#' @param bibfile the citation file.
|
|
#' @return the directory
|
|
#' @export
|
|
copyBib <- function(toDIR, bibfile = 'functions/citation.bib'){
|
|
caller = as.character( deparse(sys.call()) )
|
|
writelog(msg=caller, caller = caller)
|
|
|
|
file.copy(from = bibfile, toDIR)
|
|
writelog(msg='Finished', caller = caller)
|
|
}
|
|
|