tests/testthat/test-create_waffle_chart.R

In deandevl/RplotterPkg: R Plotting Functions Using 'ggplot2'

test_that("create_waffle_chart() namespaces", {
  expect_true(requireNamespace("gtable", quietly = TRUE))
  expect_true(requireNamespace("ggplotify", quietly = TRUE))
  expect_true(requireNamespace("ggplot2", quietly = TRUE))
  expect_true(requireNamespace("vdiffr", quietly = TRUE))
})

test_that("create_waffle_chart() named vector", {
  expect_snapshot({
    proportions_v <- c(
      var1=10, var2=40, var3=20, var4=50, var5=5,
      var6=30, var7=10, var8=67, var9=42, var10=33,
      var11=7, var12=35, var13=22, var14=90
    )

    a_plot <- RplotterPkg::create_waffle_chart(
      x = proportions_v,
      title = "Test For 14 Proportion Variables(vector)"
    )
  })
  expect_true(is.ggplot(a_plot))
  vdiffr::expect_doppelganger("create_waffle_chart() named vector", a_plot)
  expect_no_error(ggplot_build(a_plot))
})

test_that("create_waffle_chart() dataframe", {
  expect_snapshot({
    df <- data.frame(
      variables = c("var1","var2","var3","var4","var5","var6","var7"),
      proportions = c(40, 8, 23, 55, 71, 0, 22)
    )

    a_plot <- RplotterPkg::create_waffle_chart(
      x = df,
      name_col = "variables",
      prop_col = "proportions",
      title = "Test For 7 Proportion Variables(dataframe)"
    )
  })
  expect_true(is.ggplot(a_plot))
  vdiffr::expect_doppelganger("create_waffle_chart() dataframe", a_plot)
  expect_no_error(ggplot_build(a_plot))
})