library(testthat)
library(surveyanalysisR)
context("plot_demo")
test_that("X -axis is labelled properly",{
p <- plot_demo("d_urban")
expect_true(is.ggplot(p))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.