context("wp_trend()")
# ----------------------------------------------------------
test_that("wp_trend()", {
expect_silent(
wp_trend(page = "Test")
)
expect_silent(
res <- wp_trend(page = "Test", from = "2016-01-01", to = "2016-01-01")
)
expect_silent(
plot(res)
)
expect_warning({
print.wp_df(res)
}, NA)
expect_error({
print.wp_df(res)
}, NA)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.