tests/testthat/test-daily_series.R

In johannes97s/ifwtrends: Evaluating Google Trends data for economic forecasts

check_connection <- function() {
  connection_available <- tryCatch(
    {
      temp <- gtrendsR::gtrends(keyword = "Ikea", geo = "NL", time = "2021-09-01 2021-10-01")
      return(TRUE)
    },
    error = function(e) {
      return(FALSE)
    }
  )
}

# test_that("function returns a tibble", {
#   skip_if_not(check_connection(), message = "No connection couldn't be established!")
#   expect_s3_class(daily_series(keyword = "Ikea", geo = "NL", from = "2021-09-01"), "tbl")
# })