context("pc_set")
test_that("various", {
expect_is(
pc_set(c(0, 4, 7)),
"pc_set"
)
expect_equal(
pc_set(c(0, 4, 7)),
pc_set(c(4, 7, 0))
)
expect_error(
suppressWarnings(pc_set("cat"))
)
expect_equal(
as.integer(pc_set(c(7, 3, 2))),
c(2, 3, 7)
)
expect_is(
as.integer(pc_set(c(5, 6, 7))),
"integer"
)
expect_is(
as.numeric(pc_set(c(5, 6, 7))),
"numeric"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.