Nothing
# LIBS
library(testthat)
# RUNNING
context('Testing \'print-tools\'')
test_that('stat() works', {
coloured_text <- stat('example text', 'example text')
cat(coloured_text)
expect_true(inherits(coloured_text, 'character'))
})
test_that('char() works', {
coloured_text <- char(x = 'example text')
cat(coloured_text)
expect_true(inherits(coloured_text, 'character'))
})
test_that('cat_line() works', {
nores <- cat_line('example text')
expect_null(nores)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.