tests/testthat/plot_test.R

library(testthat)
library(surveyanalysisR)
context("plot_demo")
test_that("X -axis is labelled properly",{
  p <- plot_demo("d_urban")
  expect_true(is.ggplot(p))
})
janu123/surveyanalysisR documentation built on Jan. 1, 2021, 4:28 a.m.