# library(testthat); library(downsize)
context("my_mode")
test_that("Function my_mode() runs correctly", {
test_mode()
expect_equal(my_mode(), "test mode")
production_mode()
expect_equal(my_mode(), "production mode")
test_mode()
library(downsize)
expect_equal(my_mode(), "test mode")
production_mode()
library(downsize)
expect_equal(my_mode(), "production mode")
test_mode()
expect_equal(my_mode(), "test mode")
expect_equal(my_mode(), "test mode")
production_mode()
expect_equal(my_mode(), "production mode")
expect_equal(my_mode(), "production mode")
test_mode()
test_mode()
expect_equal(my_mode(), "test mode")
production_mode()
production_mode()
expect_equal(my_mode(), "production mode")
test_mode()
production_mode()
test_mode()
expect_equal(my_mode(), "test mode")
production_mode()
test_mode()
production_mode()
expect_equal(my_mode(), "production mode")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.