Nothing
test_that("write to log", {
# write to log must be called through another COINr function
# new_coin
coin <- new_coin(ASEM_iData, ASEM_iMeta)
expect_s3_class(coin, "coin")
expect_equal(names(coin$Log), c("new_coin", "can_regen"))
# check with :: syntax
coin <- COINr::new_coin(ASEM_iData, ASEM_iMeta)
expect_s3_class(coin, "coin")
expect_equal(names(coin$Log), c("new_coin", "can_regen"))
# add another function
coin <- qNormalise(coin, dset = "Raw")
expect_setequal(names(coin$Log), c("new_coin", "can_regen", "qNormalise"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.