library(testthat)
library(GetTDData)
first_year <- 2022
test_df <- function(df) {
expect_true(nrow(df) > 1)
expect_true(ncol(df) > 1)
return(invisible(TRUE))
}
test_that(desc = 'td_get() -- single LTN',{
if (!covr::in_covr()) {
testthat::skip_if_offline()
testthat::skip_on_cran()
}
df_ltn <- td_get(asset_codes = 'LTN',
first_year = first_year)
test_df(df_ltn)
})
test_that(desc = 'td_get() -- two assets',{
if (!covr::in_covr()) {
testthat::skip_if_offline()
testthat::skip_on_cran()
}
df_ltn <- td_get(asset_codes = c('LTN', "NTN-B"),
first_year = first_year)
test_df(df_ltn)
})
test_that(desc = 'td_get() -- by asset ',{
if (!covr::in_covr()) {
testthat::skip_if_offline()
testthat::skip_on_cran()
}
available_assets <- get_td_names()
last_year <- lubridate::year(Sys.Date()) - 1
for (i_asset in available_assets) {
df_temp <- td_get(i_asset,
first_year = first_year)
test_df(df_temp)
}
})
# 20240820: api is not working, removing test for now..
# test_that(desc = 'td_get_current()',{
#
# if (!covr::in_covr()) {
# testthat::skip_if_offline()
# testthat::skip_on_cran()
# }
#
# df_current <- td_get_current()
# test_df(df_current)
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.