library(testthat)
library(pander)
context('replacing missing values')
pom <- panderOptions('missing')
panderOptions('missing', '<missing>')
test_that('replacing missing values works with string', {
expect_equal(pander_return(c(1, NA)), '_1_ and _<missing>_')
expect_equal(paste(pander_return(list(1, NA)), collapse = '\n'),
'\n\n * _1_\n * <missing>\n\n<!-- end of list -->\n\n')
expect_equal(paste(pander_return(
data.frame(a = 1:2, b = c(1, NA), c = c(NA, 'z'))),
collapse = '\n'),
'\n---------------------------\n a b c \n--- ----------- -----------\n 1 1 <missing> \n\n 2 <missing> z \n---------------------------\n') #nolint
})
panderOptions('missing', '')
test_that('suppressing missing values works', {
expect_equal(pander_return(c(1, NA)), '_1_ and __')
expect_equal(paste(pander_return(list(1, NA)), collapse = '\n'),
'\n\n * _1_\n *\n\n<!-- end of list -->\n\n')
expect_equal(paste(pander_return(data.frame(a = 1:2, b = c(1, NA), c = c(NA, 'z'))), collapse = '\n'),
'\n-----------\n a b c \n--- --- ---\n 1 1 \n\n 2 z \n-----------\n')
})
panderOptions('missing', pom)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.