context("sets levels to the order in which they appear in the data")
test_that("Follow the order of appearance level",{
#expectation for success
order1 <- c("pear","apple","banana","banana","apple")
order_by_hand <- c("pear","apple","banana")
expect_identical(levels(order_appeared(order1)),order_by_hand )
})
test_that("input is not character or factor",{
expect_error(order_appeared(1),"This input is not character or factor")
})
test_that("expectation for failure for factor",{
#expectation for failure.
order2 <- c("apple","pear","banana","banana","apple")
expect_error(level(order_appeared(order2))==order_by_hand)
#"factor" order based on Alphabet, And "order_appeared" follow the order of appearance
expect_error(level(order_appeared(order1))==level(factor(order1)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.