Nothing
# Encoding UTF-8 not well supported on Windows, skip tests
if (Sys.info()[["sysname"]] == "Windows") {
exit_file("Cannot test this on Windows")
}
if (getRversion() >= as.package_version("4.1.0")) exit_file("skip remainder")
# Exit if no internet
if (!curl::has_internet()) {
exit_file("Skipping tests for lack of internet.")
}
# Exit unless opted in
if (Sys.getenv("RunAllGtrendsRTests", unset="") == "") {
exit_file("Skipping tests not opted into.")
}
# Japanese
kw <- "赤"
res <- gtrends(kw)
expect_identical(unique(res$interest_over_time$keyword), kw)
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.