dir.create(your_article_folder <- file.path(tempdir(), "exampledir"))
example_files <- system.file("aggr_example", package = "rebib")
x <- file.copy(from = example_files,to=your_article_folder,recursive = TRUE)
your_article_path <- paste(your_article_folder,"aggr_example",sep="/")
rebib::aggregate_bibliography(your_article_path)
readLines(paste(your_article_path,"example.bib",sep="/"))
unlink(your_article_folder,recursive = TRUE)
Run the code above in your browser using DataLab