context("Testing History functionality")
test_that("Testing if history function gives correct output", {
key = "ba435151893f4b833c9b27ca6f28044f"
res = weatherstack_historical(key, "Vancouver", "2015-01-02", 'Celcius')
expect_equal(res[6], 'Canada')
expect_equal(res[7], 'British Columbia')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.