test_that('Test of get.yield.curve()',{
available_td <- get_td_names()
expect_true(class(available_td) == 'character')
expect_true(length(available_td) > 0)
})
test_that('Test cache path function',{
cache <- get_cache_folder()
fs::dir_create(cache)
expect_true(fs::is_dir(cache))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.