tests/testthat/test-proverb.R
In mcguinlu/nightvale: Access Welcome to Night Vale Proverbs
context("Checking data cleaning")
t <- proverb(22, as_string = TRUE)
test_that("Returned proverb is okay", {
expect_equal(t, paste0("Ask your doctor if right is left for you.\n",
" -- \"A Memory of Europe\", 15 April 2013"))
})
mcguinlu/nightvale documentation built on April 24, 2023, 4:19 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("Checking data cleaning")
t <- proverb(22, as_string = TRUE)
test_that("Returned proverb is okay", {
expect_equal(t, paste0("Ask your doctor if right is left for you.\n",
" -- \"A Memory of Europe\", 15 April 2013"))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.