test_that("replacement in vectors works", {
expect_equal(replace_vecelements(1:10, varnms=c("a1", "a3"), vals=0),
c(0, 2, 0, 4, 5, 6, 7, 8, 9, 10))
expect_equal(replace_vecelements(1:10, varnms=c("a1", "b3"), vals=0),
c(0, 2, 0, 4, 5, 6, 7, 8, 9, 10))
expect_equal(replace_vecelements(1:10, varnms=c("1", "3"), vals=0),
c(0, 2, 0, 4, 5, 6, 7, 8, 9, 10))
expect_error(replace_vecelements(1:10, varnms=c("a1", "b"), vals=0))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.