context("Current weather")
test_that("ByCityName works.", {
place <- "Tokyo,Japan"
current.weather <- getCurrentWeatherByCityName(place)
expect_equal(current.weather$name, "Tokyo")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.