Nothing
test_that("Do read bib", {
file <- system.file("bib/xampl_single.bib", package = "bibtex")
# Mock RefManageR behaviour
encoding <- "UTF-8"
srcfile <- switch(encoding,
unknown = srcfile(file),
srcfile(file, encoding = encoding)
)
f <- do_read_bib(file, encoding = "UTF-8", srcfile = srcfile)
expect_snapshot_output(f[[1]])
})
test_that("Do read bib with non standard entries", {
tmp <- tempfile(fileext = ".bib")
entry <- "@Website{newspaper,
author = {Van Damme, Jean-Claude},
title = {Article title},
date = {2016-12-21},
journal = {Newspaper name},
}"
writeLines(entry, tmp)
out <- do_read_bib(tmp, encoding = "UTF-8", srcfile = tmp)
expect_snapshot_output(out[[1]])
})
test_that("do read with several entries", {
bib <- system.file("bib/xampl_standard.bib", package = "bibtex")
out <- do_read_bib(bib, encoding = "UTF-8", srcfile = bib)
expect_snapshot_output(lapply(out, print))
})
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.