Nothing
context("test-flux.R")
test_that("flux works", {
skip_on_cran()
skip_on_travis()
skip_on_appveyor()
f <- fixer_fluctuation("2018-01-01", "2018-05-03")
expect_equal(nrow(f), 168)
expect_true(tibble::is.tibble(f))
expect_equal(max(f$change_pct), 688)
expect_equal(min(f$change_pct), -7.0457)
flux_error <- expect_error(
fixer_fluctuation("2016-01-01", "2018-05-03"),
"Only 365 days of data can be returned at one time"
)
uje <- fixer_fluctuation(start_date = "2018-02-25", end_date = "2018-02-26",
symbols = c("USD", "JPY"))
expect_equal(nrow(uje), 2)
expect_true(tibble::is.tibble(uje))
expect_equal(uje$change_pct, c(0.2467, 0.2466))
ujg <- fixer_fluctuation(start_date = "2018-02-25", end_date = "2018-02-26",
symbols = c("USD", "JPY"), base = "GBP" )
expect_equal(nrow(ujg), 2)
expect_true(tibble::is.tibble(ujg))
expect_equal(ujg$start_rate, c(1.396765, 149.555857))
})
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.