tests/testthat/test-write-file.r

In listdown: Create R Markdown from Lists

context("Write file")

library(ggplot2)

source("reference.r")

test_that("Basic R Markdown file creation.", {
  cc_list <- list(
    Linear = ggplot(anscombe, aes(x = x1, y = y1)) + geom_point(),
    `Non Linear` = ggplot(anscombe, aes(x = x2, y = y2)) + geom_point(),
    `Outlier Vertical` = ggplot(anscombe, aes(x = x3, y = y3)) + geom_point(),
    `Outlier Horizontal` = ggplot(anscombe, aes(x = x4, y = y4)) + geom_point(),
    a = list(b = 3, 4))

  rds_file <- "cc-list.rds"
  saveRDS(cc_list, file = rds_file)

  ld <- listdown(load_cc_expr = readRDS("cc-list.rds"), package = "ggplot2")

  ld_write_file(
    ld_rmarkdown_header(title = "The Anscombe Quartet",
                        author = "Francis Anscombe",
                        date = "1973"),
    ld,
    "anscombe-quartet.rmd")

  if (make_reference) {
    ld_write_file(
      ld_rmarkdown_header(title = "The Anscombe Quartet",
                          author = "Francis Anscombe",
                          date = "1973"),
      ld,
      file.path("reference-data", "anscombe-quartet.rmd"))
  }

  expect_equal(readLines("anscombe-quartet.rmd"), 
               readLines(file.path("reference-data", "anscombe-quartet.rmd")))

  unlink("anscombe-quartet.rmd")
  unlink("cc-list.rds")
})

test_that("Basic R Markdown file errors.", {
  expect_error(
    ld_write_file(1:3, ld, file.path("reference-data", "anscombe-quartet.rmd")))

  expect_error(
    ld_write_file(ld_rmarkdown_header(title = "test"), 1:3, "bunk"))
})