context("test-name_chunks")
tmp <- tempdir()
test_that("LaTeX special characters are succesfully replaced in filenames", {
bad_filename <- "11-12-2018_The-%-of-$-on-this-&-that"
fixed_filename <- clean_latex_special_characters(bad_filename)
expect_false(grepl("([#$%&_{}])|\\s|~|\\^|[-]{2,}", paste0(fixed_filename, "")))
})
test_that("renaming works", {
temp_file_path <- file.path(tmp, "test.Rmd")
file.copy(system.file("examples", "example1.Rmd", package = "namer"),
temp_file_path)
name_chunks(temp_file_path)
lines <- readLines(temp_file_path)
chunk_info <- get_chunk_info(lines)
expect_true(all(
chunk_info$name != ""))
file.remove(temp_file_path)
})
test_that("unnaming is advised when needed", {
temp_file_path <- file.path(tmp, "example4.Rmd")
file.copy(system.file("examples", "example4.Rmd", package = "namer"),
temp_file_path)
expect_error(name_chunks(temp_file_path))
file.remove(temp_file_path)
})
unlink(tmp)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.