context("replacelt")
test_that("propor functioning",{
x<-c("<1","< 2"," < 3 ")
x.repl <- replacelt(x)
x.expect <- c("-1","-2","-3")
expect_equal(x.repl,x.expect)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.