Running ‘testthat.R’ [0m/11m]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(essurvey)
  > 
  > test_check("essurvey")
  ── 1. Error: show_rounds returns correct output (@test-show_.R#4)  ─────────────
  Gateway Timeout (HTTP 504).
  1: expect_is(show_rounds(), "numeric") at testthat/test-show_.R:4
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: show_rounds()
  5: grab_rounds_link(.global_vars$ess_website)
  6: safe_GET(paste0(ess_website, "/data/download.html?r="))
  7: httr::stop_for_status(httr::GET(url = url, config = config, ...))
  
  ── 2. Error: show_rounds_country returns correct output (@test-show_.R#31)  ────
  Gateway Timeout (HTTP 504).
  1: expect_equal(length(show_rounds_country(1)), 22) at testthat/test-show_.R:31
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: show_rounds_country(1)
  5: table_to_list(.global_vars$ess_website, .global_vars$country_index)
  6: safe_GET(paste0(ess_website, module_index))
  7: httr::stop_for_status(httr::GET(url = url, config = config, ...))
  
  ── 3. Error: show_rounds_country returns non-duplicate rounds (@test-show_.R#36)
  Gateway Timeout (HTTP 504).
  1: expect_false(all(duplicated(show_rounds_country(1:6)))) at testthat/test-show_.R:36
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: duplicated(show_rounds_country(1:6))
  5: show_rounds_country(1:6)
  6: rounds %in% show_rounds()
  7: show_rounds()
  8: grab_rounds_link(.global_vars$ess_website)
  9: safe_GET(paste0(ess_website, "/data/download.html?r="))
  10: httr::stop_for_status(httr::GET(url = url, config = config, ...))
  
  ── 4. Error: show_rounds_country returns correct countries always (@test-show_.R
  Gateway Timeout (HTTP 504).
  1: expect_equal(show_rounds_country(1:3), one_to_three) at testthat/test-show_.R:56
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: show_rounds_country(1:3)
  5: rounds %in% show_rounds()
  6: show_rounds()
  7: grab_rounds_link(.global_vars$ess_website)
  8: safe_GET(paste0(ess_website, "/data/download.html?r="))
  9: httr::stop_for_status(httr::GET(url = url, config = config, ...))
  
  ── 5. Error: show_countries returns correct output (@test-show_.R#65)  ─────────
  Gateway Timeout (HTTP 504).
  1: expect_is(show_countries(), "character") at testthat/test-show_.R:65
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: show_countries()
  5: show_any(.global_vars$ess_website, .global_vars$country_index)
  6: table_to_list(ess_website, module_index)
  7: safe_GET(paste0(ess_website, module_index))
  8: httr::stop_for_status(httr::GET(url = url, config = config, ...))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 19 | SKIPPED: 25 | WARNINGS: 0 | FAILED: 5 ]
  1. Error: show_rounds returns correct output (@test-show_.R#4) 
  2. Error: show_rounds_country returns correct output (@test-show_.R#31) 
  3. Error: show_rounds_country returns non-duplicate rounds (@test-show_.R#36) 
  4. Error: show_rounds_country returns correct countries always (@test-show_.R#56) 
  5. Error: show_countries returns correct output (@test-show_.R#65) 
  
  Error: testthat unit tests failed
  Execution halted