test_that("sequenceGenerator works", {
expect_equal(sequenceGenerator()(), "seq_1")
test <- sequenceGenerator("test")
expect_equal(test(), "test_1")
expect_equal(test(), "test_2")
expect_equal(test(), "test_3")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.