context("read_collected_nltts_strees")
test_that("read_collected_nltts_strees: use", {
df <- read_collected_nltts_strees()
expect_true(
identical(
names(df),
c("filename", "sti", "t", "nltt")
)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.