tests/testthat/test-logo-image.R

In Sage-Bionetworks/sagethemes: Sage-Branded Plot Themes

context("Adding logo to plot")

library("ggplot2")

# Visual tests -----------------------------------------------------------------

test_that("Logo appears", {
  dat <- data.frame(x = factor(1:5), y = 1:5)
  p <- ggplot(dat, aes(x = x, y = y, colour = x)) +
    geom_point() +
    logo_image() +
    logo_layout()
  vdiffr::expect_doppelganger("plot-with-logo", p)
})