Nothing
test_that("Test errors", {
tmp <- tempfile(fileext = ".bib")
expect_error(write.bib(NULL, file = tmp))
expect_message(
write.bib(as.character(NULL), file = tmp),
"Empty package list: nothing to be done"
)
})
test_that("Test package citation", {
skip_if_not_installed("testthat")
skip_if_not_installed("devtools")
tmp <- tempfile(fileext = ".bib")
write.bib(c("testthat", "devtools"), file = tmp)
l <- read.bib(tmp)
expect_gte(length(l), 2)
})
test_that("Test append", {
f <- citation("base")[1]
f$key <- "base"
tmp <- tempfile(fileext = ".bib")
write.bib(f, file = tmp)
l <- read.bib(tmp)
expect_length(l, 1)
# Add one citation
mock <- bibentry("Misc",
title = "Mock citation",
author = "Mock author",
key = "mock"
)
write.bib(mock, file = tmp, append = TRUE)
l2 <- read.bib(tmp)
expect_length(l2, 2)
# Overwrite
expect_silent(write.bib(mock, file = tmp, append = FALSE, verbose = FALSE))
l3 <- read.bib(tmp)
expect_length(l3, 1)
expect_equal(l3$title, mock$title)
expect_equal(l3$author, mock$author)
expect_equal(l3$key, mock$key)
})
test_that("NULL vector", {
file <- tempfile(fileext = ".bib")
expect_message(
write.bib(as.character(NULL), file = file),
"Empty package list: nothing to be done."
)
})
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.