Nothing
test_that("it should get currency data from BCB", {
if (!covr::in_covr()) {
skip_on_cran()
skip_if_offline()
}
x <- get_currency("USD", "2017-03-01", "2017-03-02", as = "text")
expect_type(x, "character")
expect_equal(x, "01032017;220;A;USD;3,0970;3,0976;1,0000;1,0000\n02032017;220;A;USD;3,1132;3,1138;1,0000;1,0000\n")
})
test_that("it should get a time series of a currency from bcb", {
if (!covr::in_covr()) {
skip_on_cran()
skip_if_offline()
}
x <- get_currency("USD", "2017-03-01", "2017-03-14")
expect_s3_class(x, "data.frame")
expect_equal(dim(x), c(10, 3))
expect_error(
get_currency("BRL", "2017-03-01", "2017-03-14")
)
})
test_that("it should get currency code", {
if (!covr::in_covr()) {
skip_on_cran()
skip_if_offline()
}
x <- get_currency_id("BRL")
expect_equal(x, 177)
})
test_that("it should get MXN and ARS data", {
if (!covr::in_covr()) {
skip_on_cran()
skip_if_offline()
}
x <- get_currency("MXN", "2018-05-28", "2018-05-30")
expect_s3_class(x, "data.frame")
expect_equal(dim(x), c(3, 3))
x <- get_currency("ARS", "2018-05-28", "2018-05-30")
expect_s3_class(x, "data.frame")
expect_equal(dim(x), c(3, 3))
})
test_that("it should get a time series with a symbol attribute", {
if (!covr::in_covr()) {
skip_on_cran()
skip_if_offline()
}
x <- get_currency("USD", "2017-03-01", "2017-03-14")
expect_s3_class(x, "data.frame")
expect_equal(attr(x, "symbol"), "USD")
x <- get_currency("USD", "2017-03-01", "2017-03-14", as = "xts")
expect_s3_class(x, "xts")
expect_equal(attr(x, "symbol"), "USD")
})
test_that("it should get ask/bid time series named with symbol", {
if (!covr::in_covr()) {
skip_on_cran()
skip_if_offline()
}
x <- get_currency("USD", "2017-03-01", "2017-03-14")
x_ask <- Ask(x)
expect_equal(colnames(x_ask), c("date", "USD"))
x_bid <- Bid(x)
expect_equal(colnames(x_bid), c("date", "USD"))
x <- get_currency("USD", "2017-03-01", "2017-03-14", as = "xts")
x_ask <- Ask(x)
expect_equal(colnames(x_ask), "USD")
x_bid <- Bid(x)
expect_equal(colnames(x_bid), "USD")
})
test_that("it should get cross currency rates", {
if (!covr::in_covr()) {
skip_on_cran()
skip_if_offline()
}
x <- get_currency_cross_rates("2017-03-10")
d <- dim(x)
expect_equal(d[1], d[2])
})
test_that("it should list currencies", {
if (!covr::in_covr()) {
skip_on_cran()
skip_if_offline()
}
x <- list_currencies()
expect_s3_class(x, "data.frame")
})
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.