tests/testthat/test-addPercent.R

context("Check correct behaviour for .addPercent()")

test_that("Percent sign is added",{
    expect_equal(.addPercent("a"), "a%")
})

test_that("Message is returned by factors",{
    expect_message(.addPercent(as.factor("a")))
})

Try the ngsReports package in your browser

Any scripts or data that you put into this service are public.

ngsReports documentation built on Nov. 23, 2020, 2:01 a.m.