context("Test pluralise function")
test_that("pluralise() works", {
  expect_error(pluralise())
  expect_error(pluralise("week"))
  expect_error(pluralise(0))
  expect_equal(pluralise(5), "s")
  expect_equal(pluralise(-10, "year"), "years")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.