Running ‘testthat.R’ [1m/21m]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(klassR)
  > 
  > test_check("klassR")
  Connection failed with error code 502
  Saving _problems/test_ApplyKlass-6.R
  Connection failed with error code 502
  Saving _problems/test_ApplyKlass-16.R
  Connection failed with error code 502
  Saving _problems/test_ApplyKlass-26.R
  Connection failed with error code 502
  Saving _problems/test_ApplyKlass-39.R
  Connection failed with error code 502
  Saving _problems/test_ApplyKlass-60.R
  Connection failed with error code 502
  Saving _problems/test_ApplyKlass-109.R
  Connection failed with error code 502
  Saving _problems/test_ApplyKlass-122.R
  Connection failed with error code 502
  Saving _problems/test_ApplyKlass-134.R
  Connection failed with error code 502
  Saving _problems/test_ApplyKlass-185.R
  Connection failed with error code 502
  Saving _problems/test_ApplyKlass-195.R
  Connection failed with error code 502
  Saving _problems/test_GetKlass-4.R
  Connection failed with error code 502
  Saving _problems/test_GetKlass-10.R
  Connection failed with error code 502
  Saving _problems/test_GetKlass-16.R
  Connection failed with error code 502
  Saving _problems/test_GetKlass-41.R
  Connection failed with error code 502
  Saving _problems/test_GetKlass-60.R
  Saving _problems/test_GetKlass-79.R
  Saving _problems/test_GetKlass-92.R
  Connection failed with error code 502
  Saving _problems/test_GetKlass-102.R
  Saving _problems/test_GetKlass-108.R
  Connection failed with error code 502
  Saving _problems/test_GetKlass-118.R
  Connection failed with error code 404
  Connection failed with error code 502
  Saving _problems/test_GetKlass-145.R
  Connection failed with error code 502
  Saving _problems/test_GetKlass-163.R
  Connection failed with error code 502
  Saving _problems/test_ListKlass-8.R
  Connection failed with error code 502
  Saving _problems/test_ListKlass-14.R
  [ FAIL 24 | WARN 0 | SKIP 0 | PASS 51 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_ApplyKlass.R:3:3'): apply_klass returns correct names for numeric codes ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::apply_klass(...) at test_ApplyKlass.R:3:3
   2.   └─klassR::get_klass(...)
   3.     └─klassR:::stop_quietly()
  ── Error ('test_ApplyKlass.R:13:3'): apply_klass returns correct names for numeric codes ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::apply_klass(...) at test_ApplyKlass.R:13:3
   2.   └─klassR::get_klass(...)
   3.     └─klassR:::stop_quietly()
  ── Error ('test_ApplyKlass.R:23:3'): apply_klass returns correct names for character codes ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::apply_klass(...) at test_ApplyKlass.R:23:3
   2.   └─klassR::get_klass(...)
   3.     └─klassR:::stop_quietly()
  ── Error ('test_ApplyKlass.R:33:3'): apply_klass returns correct language ──────
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::apply_klass(...) at test_ApplyKlass.R:33:3
   2.   └─klassR::get_klass(...)
   3.     └─klassR:::stop_quietly()
  ── Error ('test_ApplyKlass.R:60:3'): Check levelCheck for numerical codes ──────
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::get_klass(7, date = "2020-01-01") at test_ApplyKlass.R:60:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_ApplyKlass.R:102:5'): apply_klass works for variant classification with Norwegian characters in the variant name ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::apply_klass(...) at test_ApplyKlass.R:102:5
   2.   └─klassR::get_klass(...)
   3.     └─klassR:::stop_quietly()
  ── Error ('test_ApplyKlass.R:122:3'): apply_klass works for classifications with varying number of digits ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::apply_klass(dat, classification = 270, date = "2024-01-01") at test_ApplyKlass.R:122:3
   2.   └─klassR::get_klass(...)
   3.     └─klassR:::stop_quietly()
  ── Error ('test_ApplyKlass.R:131:3'): Nace classification with missing formatting ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. ├─testthat::expect_warning(...) at test_ApplyKlass.R:131:3
   2. │ └─testthat:::expect_condition_matching_(...)
   3. │   └─testthat:::quasi_capture(...)
   4. │     ├─testthat (local) .capture(...)
   5. │     │ └─base::withCallingHandlers(...)
   6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   7. └─klassR::apply_klass(dat, classification = 6, date = "2024-01-01")
   8.   └─klassR::get_klass(...)
   9.     └─klassR:::stop_quietly()
  ── Error ('test_ApplyKlass.R:182:3'): Municipality classification with missing formatting ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. ├─testthat::expect_warning(...) at test_ApplyKlass.R:182:3
   2. │ └─testthat:::expect_condition_matching_(...)
   3. │   └─testthat:::quasi_capture(...)
   4. │     ├─testthat (local) .capture(...)
   5. │     │ └─base::withCallingHandlers(...)
   6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   7. └─klassR::apply_klass(dat, classification = 6, date = "2024-01-01")
   8.   └─klassR::get_klass(...)
   9.     └─klassR:::stop_quietly()
  ── Error ('test_ApplyKlass.R:195:3'): apply_klass works for classifications with varying digits and letters ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::apply_klass(dat, classification = 270, date = "2024-01-01") at test_ApplyKlass.R:195:3
   2.   └─klassR::get_klass(...)
   3.     └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:4:3'): get_klass returns a classification ───────────
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::get_klass(131, date = "2015-01-01") at test_GetKlass.R:4:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:10:3'): get_klass returns a classification with Norwegian letters ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::get_klass(131, date = "2015-01-01") at test_GetKlass.R:10:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:16:3'): get_klass returns no error when no date given ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. ├─testthat::expect_type(get_klass(131), type = "list") at test_GetKlass.R:16:3
   2. │ └─testthat::quasi_label(enquo(object))
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─klassR::get_klass(131)
   5.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:41:3'): get_klass returns changes when two dates given ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::get_klass(131, date = c("2022-01-01", "2023-01-01")) at test_GetKlass.R:41:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:57:3'): get_klass returns correct output level ──────
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::get_klass(7, date = "2024-01-01", output_level = 1) at test_GetKlass.R:57:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:76:3'): get_klass returns a correspondence table ────
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE HTML PUBLIC "-//IETF/
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─klassR::get_klass(104, correspond = 131, date = "2015-01-01") at test_GetKlass.R:76:3
   2.   └─jsonlite::fromJSON(klass_text, flatten = TRUE)
   3.     └─jsonlite:::parse_and_simplify(...)
   4.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   5.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test_GetKlass.R:89:3'): get_klass returns a correspondence table in both directions ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE HTML PUBLIC "-//IETF/
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─klassR::get_klass(131, correspond = 104, date = "2020-02-01") at test_GetKlass.R:89:3
   2.   └─jsonlite::fromJSON(klass_text, flatten = TRUE)
   3.     └─jsonlite:::parse_and_simplify(...)
   4.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   5.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test_GetKlass.R:102:3'): get_klass returns a valid variant including ones with spaces in name ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::get_klass(6, variant = 1615, date = "2021-01-02") at test_GetKlass.R:102:3
   2.   └─klassR:::get_variant_name(variant)
   3.     └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:108:3'): get_klass returns a correspondence table ───
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE HTML PUBLIC "-//IETF/
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─klassR::get_klass(127, correspond = 131, date = "2024-01-02") at test_GetKlass.R:108:3
   2.   └─jsonlite::fromJSON(klass_text, flatten = TRUE)
   3.     └─jsonlite:::parse_and_simplify(...)
   4.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   5.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test_GetKlass.R:116:3'): get_klass returns a correspondent using ID ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. ├─testthat::expect_message(...) at test_GetKlass.R:116:3
   2. │ └─testthat:::expect_condition_matching_(...)
   3. │   └─testthat:::quasi_capture(...)
   4. │     ├─testthat (local) .capture(...)
   5. │     │ └─base::withCallingHandlers(...)
   6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   7. └─klassR::get_klass(correspondID = 1441, date = "2024-01-02")
   8.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:145:3'): get_klass returns notes when requested ─────
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::get_klass(277, notes = TRUE, date = "2023-01-12") at test_GetKlass.R:145:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:163:3'): get_klass returns valid dates for a date range ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::get_klass(131, date = c("2020-01-01", "2024-01-02")) at test_GetKlass.R:163:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_ListKlass.R:6:3'): ListKlass returns a warning but still runs ──
  Error in `data.frame(klass_name = dt$name, klass_nr = nums, klass_family = i, klass_type = dt$classificationType)`: arguments imply differing number of rows: 0, 1
  Backtrace:
      ▆
   1. ├─testthat::expect_warning(klass_table <- ListKlass()) at test_ListKlass.R:6:3
   2. │ └─testthat:::expect_condition_matching_(...)
   3. │   └─testthat:::quasi_capture(...)
   4. │     ├─testthat (local) .capture(...)
   5. │     │ └─base::withCallingHandlers(...)
   6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   7. └─klassR:::ListKlass()
   8.   └─klassR::list_klass(codelists = codelists, language = language)
   9.     └─base::data.frame(...)
  ── Error ('test_ListKlass.R:14:3'): list_klass returns a list ──────────────────
  Error in `data.frame(klass_name = dt$name, klass_nr = nums, klass_family = i, klass_type = dt$classificationType)`: arguments imply differing number of rows: 0, 1
  Backtrace:
      ▆
   1. └─klassR::list_klass() at test_ListKlass.R:14:3
   2.   └─base::data.frame(...)
  
  [ FAIL 24 | WARN 0 | SKIP 0 | PASS 51 ]
  Error:
  ! Test failures.
  Execution halted