context("Testing tq_exchange()")
# library(tidyquant)
#### Setup
options <- tq_exchange_options()
#### Tests
test_that("Test returns list of 18+ options when x = 'options'", {
expect_type(options, "character")
expect_gte(length(options), 3)
})
# Long running script: Collecting all stock lists
test_that("Test all exchange options to ensure no issues during fetch.", {
skip_on_cran()
skip_on_ci()
skip_on_os("windows")
for (i in seq_along(options)) {
tq_exchange(options[[i]]) %>%
expect_is("tbl") %>%
nrow() %>%
expect_gt(3)
}
})
test_that("Test returns error on invalid x input.", {
skip_on_ci()
skip_on_os("windows")
expect_error(tq_exchange("XYZ"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.