context("remove_empty_lines")
test_that("use", {
expect_equal(
remove_empty_lines(lines = c("A", "B")),
c("A", "B")
)
expect_equal(
remove_empty_lines(lines = c("A", "", "B")),
c("A", "B")
)
expect_equal(
remove_empty_lines(lines = c("A", " ", "B")),
c("A", "B")
)
expect_equal(
remove_empty_lines(lines = c("A", "\t", "B")),
c("A", "B")
)
expect_equal(
remove_empty_lines(lines = c(" A", "B ")),
c(" A", "B ")
)
expect_equal(
remove_empty_lines(lines = c(" A", "B "), trim = TRUE),
c("A", "B")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.