inst/tinytest/test_encoding_does_not_change.R

In gtrendsR: Perform and Display Google Trends Queries

# 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)