tests/testthat/test-12-plots.R

In surveydata: Tools to Work with Survey Data

if (interactive()) library(testthat)


test_that("plotting functions return plot objects", {
  p <- survey_plot_question(membersurvey, "Q2")
  expect_s3_class(p, "ggplot")

  p <- survey_plot_yes_no(membersurvey, "Q2")
  expect_s3_class(p, "ggplot")

  p <- survey_plot_satisfaction(membersurvey, "Q14")
  expect_s3_class(p, "ggplot")
})