context("Data & base_dictionary")
data(rksp.0)
data(rjmw.0)
test_that("rksp.0$mtext and rjmw.0$mtext have correct dimensions", {
expect_length(rksp.0$text, 12)
expect_length(rjmw.0$text, 12)
expect_length(rksp.0$text$utteranceBegin, 25365)
expect_length(rjmw.0$text$utteranceBegin, 31206)
})
test_that("base_dictionary has correct dimensions", {
expect_length(base_dictionary, 5)
expect_length(base_dictionary$Familie, 73)
expect_length(base_dictionary$Liebe, 94)
expect_length(base_dictionary$Krieg, 112)
expect_length(base_dictionary$Ratio, 108)
expect_length(base_dictionary$Religion, 57)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.