inst/tests/test-convert.R

library(testthat)
library(pander)
context('Pandoc.convert')

test_that('openFileInOS works correctly', {
    tf <- paste(tempfile(), '.txt', sep = '')
    sink(file = tf)
    cat('Some info')
    sink()
#    expect_equal(openFileInOS(tf), 0)
    expect_error(openFileInOS('NEWS2'))
    unlink(tf)
})

test_that('Pandoc.convert works correctly', {
    tf <- tempfile()
    cat('% test\n', file = tf)
    sink(tf, append = TRUE)
    pander(mtcars[1:3, 1:4])
    sink()
    res1 <- Pandoc.convert(tf, open = FALSE)
    expect_equal(dirname(tf), dirname(res1))
    res2 <- Pandoc.convert(text = readLines(tf), open = FALSE)
    expect_equal(readLines(res1), readLines(res2)) # text or file gives same result
    unlink(tf)
})

Try the pander package in your browser

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

pander documentation built on Nov. 6, 2018, 5:05 p.m.