Nothing
foobar <- c("foo", "bar")
bigyo <- c("bi", "gyo")
test_that("Coloring and highlighting works", {
local_colors()
expect_equal(underline(foobar),
c('\u001b[4mfoo\u001b[24m', '\u001b[4mbar\u001b[24m'))
expect_equal(red(foobar),
c('\u001b[31mfoo\u001b[39m', '\u001b[31mbar\u001b[39m'))
expect_equal(bgRed(foobar),
c('\u001b[41mfoo\u001b[49m', '\u001b[41mbar\u001b[49m'))
})
test_that("Applying multiple styles at once works", {
local_colors()
expect_equal(red$bgGreen$underline(foobar),
c('\u001b[31m\u001b[42m\u001b[4mfoo\u001b[24m\u001b[49m\u001b[39m',
'\u001b[31m\u001b[42m\u001b[4mbar\u001b[24m\u001b[49m\u001b[39m'))
expect_equal(underline$red$bgGreen(foobar),
c('\u001b[4m\u001b[31m\u001b[42mfoo\u001b[49m\u001b[39m\u001b[24m',
'\u001b[4m\u001b[31m\u001b[42mbar\u001b[49m\u001b[39m\u001b[24m'))
})
test_that("Nested styles are supported", {
local_colors()
expect_equal(
red(foobar %+% underline$bgBlue(bigyo) %+% '!'),
c('\u001b[31mfoo\u001b[4m\u001b[44mbi\u001b[49m\u001b[24m!\u001b[39m',
'\u001b[31mbar\u001b[4m\u001b[44mgyo\u001b[49m\u001b[24m!\u001b[39m'))
})
test_that("Nested styles of the same type are supported", {
local_colors()
aA <- c("a", "A")
bB <- c("b", "B")
cC <- c("c", "C")
expect_equal(
red(aA %+% blue(bB %+% green(cC) %+% bB) %+% cC),
c('\u001b[31ma\u001b[34mb\u001b[32mc\u001b[34mb\u001b[31mc\u001b[39m',
'\u001b[31mA\u001b[34mB\u001b[32mC\u001b[34mB\u001b[31mC\u001b[39m'))
})
test_that("Reset all styles", {
local_colors()
expect_equal(reset(red$bgGreen$underline(foobar) %+% foobar),
c("\033[0m\033[31m\033[42m\033[4mfoo\033[24m\033[49m\033[39mfoo\033[0m\033[22m\033[23m\033[24m\033[27m\033[28m\033[29m\033[39m\033[49m", "\033[0m\033[31m\033[42m\033[4mbar\033[24m\033[49m\033[39mbar\033[0m\033[22m\033[23m\033[24m\033[27m\033[28m\033[29m\033[39m\033[49m")
)
})
test_that("Variable number of arguments", {
local_colors()
expect_equal(red(foobar, 'bar'),
c('\u001b[31mfoo bar\u001b[39m',
'\u001b[31mbar bar\u001b[39m'))
})
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.