tests/testthat/test-caption.R

In mrjoh3/ggtrack: Build tracking banners using QR codes for addition to plots and reports

pos <- get_positions("CLQ", c(10, 50, 40))

test_that("we can add a Caption to a plot", {

  # this should only ever occur in ggtrack function
  cap <- ggplot(mapping = aes(x = 0:1, y = 1)) %>%
    add_caption('add to qr', position = pos)

  expect_type(cap, 'list')
  expect_s3_class(cap, 'gg')
  expect_s3_class(cap, 'ggplot')

})

test_that("we can add a Caption to a tracker", {
  cap <- make_tracker(add_git = FALSE) %>%
    add_caption('add to qr')

  expect_type(cap, 'list')
  expect_s3_class(cap, 'tracker')

})