tests/testthat/test-create_theme_fun.R

In ThinkR-open/swatch: Build A {ggplot} Maquette From Figma File

# WARNING - Generated by {fusen} from /dev/flat_ggplot_theme.Rmd: do not edit by hand

test_that("create_theme_fun works", {

  data(toy_raw_file_content)

  my_theme <- toy_raw_file_content %>% 
    extract_ggplot_theme() %>% 
    create_theme_fun()
  
  expect_true(inherits(my_theme, "function"))
  
})