Nothing
library(testthat)
context("Extra tests")
test_that("names with . work",{
a.test <- 'World'
template <- template <- "Hello {{a.test}}!"
expect_equal( whisker.render(template, list(a.test = a.test), strict=FALSE)
, "Hello World!"
)
})
test_that("referencing with $ works",{
a <- list(test = 'World')
template <- template <- "Hello {{a$test}}!"
expect_equal( whisker.render(template, list(a=a), strict=FALSE)
, "Hello World!"
)
})
context("Github test")
test_that("newlines consistency",{
template <-
"{{#var}}
var is true
{{/var}}
{{^var}}
var is not true
{{/var}}"
expect_equal("var is true\n",whisker.render(template, list(var=TRUE)))
expect_equal("var is not true\n",whisker.render(template, list(var=FALSE)))
})
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.