test_that("Test exchange_rate() for wrong input errors", {
# Skip if no internet connection, or the bnm site is down.
testthat::skip_if_offline("api.bnm.gov.my")
testthat::skip_on_cran()
## Test for invalid session number
expect_error(get_exchange_rate(currency = "USD", session = "1131"))
## Test for invalid quote value
expect_error(get_exchange_rate(currency = "USD", session = "1130", quote = "eur"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.