Running ‘testthat.R’ [0m/13m]
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. Failure: show_rounds_country returns error when arguments are wrong (@test
  `show_rounds_country("whatever")` threw an error with unexpected message.
  Expected match: "Rounds not available in ESS. Check show_rounds()"
  Actual message: "Gateway Timeout (HTTP 504)."
  
  ── 3. Failure: show_rounds_country returns error when arguments are wrong (@test
  `show_rounds_country(1:100)` threw an error with unexpected message.
  Expected match: "Rounds not available in ESS. Check show_rounds()"
  Actual message: "Gateway Timeout (HTTP 504)."
  
  ── 4. Error: show_rounds_country returns correct output (@test-show_.R#27)  ────
  Gateway Timeout (HTTP 504).
  1: expect_is(show_rounds_country(1), "character") at testthat/test-show_.R:27
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: show_rounds_country(1)
  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_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, ...))
  
  ── 6. 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, ...))
  
  ── 7. 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, ...))
  
  ── 8. Failure: show_country_rounds returns error when wrong country as argument 
  `show_country_rounds("whatever")` threw an error with unexpected message.
  Expected match: "Country not available in ESS. Check show_countries()"
  Actual message: "Gateway Timeout (HTTP 504)."
  
  ── 9. Error: show_country_rounds returns correct output (@test-show_.R#82)  ────
  Gateway Timeout (HTTP 504).
  1: expect_is(show_country_rounds("Denmark"), "numeric") at testthat/test-show_.R:82
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: show_country_rounds("Denmark")
  5: country %in% show_countries()
  6: show_countries()
  7: show_any(.global_vars$ess_website, .global_vars$country_index)
  8: table_to_list(ess_website, module_index)
  9: safe_GET(paste0(ess_website, module_index))
  10: httr::stop_for_status(httr::GET(url = url, config = config, ...))
  
  ── 10. Error: show_themes returns correct output (@test-show_.R#95)  ───────────
  Gateway Timeout (HTTP 504).
  1: expect_is(show_themes(), "character") at testthat/test-show_.R:95
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: show_themes()
  5: show_any(.global_vars$ess_website, .global_vars$theme_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, ...))
  
  ── 11. Failure: show_theme_rounds returns error when wrong theme as argument (@t
  `show_theme_rounds("whatever")` threw an error with unexpected message.
  Expected match: "Theme not available in ESS. Check show_themes()"
  Actual message: "Gateway Timeout (HTTP 504)."
  
  ── 12. Error: show_theme_rounds returns correct output for rounds  == 1 (@test-s
  Gateway Timeout (HTTP 504).
  1: expect_is(show_theme_rounds("Democracy"), "numeric") at testthat/test-show_.R:115
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: show_theme_rounds("Democracy")
  5: theme %in% show_themes()
  6: show_themes()
  7: show_any(.global_vars$ess_website, .global_vars$theme_index)
  8: table_to_list(ess_website, module_index)
  9: safe_GET(paste0(ess_website, module_index))
  10: httr::stop_for_status(httr::GET(url = url, config = config, ...))
  
  ── 13. Error: show_theme_rounds returns correct output for rounds > 1 (@test-sho
  Gateway Timeout (HTTP 504).
  1: expect_is(show_theme_rounds("Politics"), "numeric") at testthat/test-show_.R:127
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: show_theme_rounds("Politics")
  5: theme %in% show_themes()
  6: show_themes()
  7: show_any(.global_vars$ess_website, .global_vars$theme_index)
  8: table_to_list(ess_website, module_index)
  9: safe_GET(paste0(ess_website, module_index))
  10: httr::stop_for_status(httr::GET(url = url, config = config, ...))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 0 | SKIPPED: 25 | WARNINGS: 4 | FAILED: 13 ]
  1. Error: show_rounds returns correct output (@test-show_.R#4) 
  2. Failure: show_rounds_country returns error when arguments are wrong (@test-show_.R#18) 
  3. Failure: show_rounds_country returns error when arguments are wrong (@test-show_.R#21) 
  4. Error: show_rounds_country returns correct output (@test-show_.R#27) 
  5. Error: show_rounds_country returns non-duplicate rounds (@test-show_.R#36) 
  6. Error: show_rounds_country returns correct countries always (@test-show_.R#56) 
  7. Error: show_countries returns correct output (@test-show_.R#65) 
  8. Failure: show_country_rounds returns error when wrong country as argument (@test-show_.R#76) 
  9. Error: show_country_rounds returns correct output (@test-show_.R#82) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted