Running ‘testthat.R’ [5s/24s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(klassR)
  > 
  > test_check("klassR")
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  Connection failed with error code 503
  [ FAIL 16 | WARN 0 | SKIP 0 | PASS 41 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_GetKlass.R:16:3'): GetKlass returns no error when no date given ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. ├─testthat::expect_type(GetKlass(klass = 131), type = "list") at test_GetKlass.R:16:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─klassR::GetKlass(klass = 131)
   5.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:40:3'): GetKlass returns changes when two dates given ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::GetKlass(klass = 131, date = c("2022-01-01", "2023-01-01")) at test_GetKlass.R:40:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:47:3'): GetKlass returns classifications with future date ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. ├─testthat::expect_message(...) at test_GetKlass.R:47: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::GetKlass(klass = 2, date = "2100-01-01")
   8.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:56:3'): GetKlass returns correct output level ───────
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::GetKlass(klass = 7, date = "2024-01-01", output_level = 1) at test_GetKlass.R:56:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:64:3'): GetKlass returns english language ───────────
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::GetKlass(klass = 2, date = "2024-01-01", language = "en") at test_GetKlass.R:64:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:71:3'): GetKlass returns a correspondence table ─────
  Error: lexical error: invalid char in json text.
                                         <?xml version='1.0' encoding='u
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─klassR::GetKlass(klass = 104, correspond = 131, date = "2015-01-01") at test_GetKlass.R:71: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:78:3'): GetKlass returns a correspondence table in both directions ──
  Error: lexical error: invalid char in json text.
                                         <?xml version='1.0' encoding='u
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─klassR::GetKlass(klass = 104, correspond = 131, date = "2020-02-01") at test_GetKlass.R:78: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:91:3'): GetKlass returns a valid variant including ones with spaces in name ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::GetKlass(klass = 6, variant = 1615, date = "2021-01-02") at test_GetKlass.R:91:3
   2.   └─klassR:::get_variant_name(variant)
   3.     └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:96:3'): GetKlass returns a correspondence table ─────
  Error: lexical error: invalid char in json text.
                                         <?xml version='1.0' encoding='u
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─klassR::GetKlass(klass = 131, correspond = 127, date = "2024-01-02") at test_GetKlass.R:96: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:105:3'): GetKlass returns a correspondent using ID ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. ├─testthat::expect_message(...) at test_GetKlass.R:105: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::GetKlass(correspondID = 1441, date = "2024-01-02")
   8.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:136:3'): GetKlass returns notes when requested ──────
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::GetKlass(277, notes = TRUE, date = "2023-01-12") at test_GetKlass.R:136:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:143:3'): GetKlass returns a future classification ───
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. ├─testthat::expect_message(classdata <- GetKlass(104, date = "2050-01-01")) at test_GetKlass.R:143: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::GetKlass(104, date = "2050-01-01")
   8.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:149:3'): GetKlass returns a correspondence table using ID ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. ├─testthat::expect_message(...) at test_GetKlass.R:149: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::GetKlass(correspondID = 1111, date = "2023-01-12")
   8.   └─klassR:::stop_quietly()
  ── Error ('test_GetKlass.R:154:3'): GetKlass returns valid dates for a date range ──
  Error in `stop_quietly()`: 
  Backtrace:
      ▆
   1. └─klassR::GetKlass(131, date = c("2020-01-01", "2024-01-02")) at test_GetKlass.R:154:3
   2.   └─klassR:::stop_quietly()
  ── Error ('test_ListKlass.R:8:3'): ListKlass 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::ListKlass() at test_ListKlass.R:8:3
   2.   └─base::data.frame(...)
  ── Error ('test_ListKlass.R:18:3'): SearchKlass returns searches ───────────────
  Error in `expect_in("Standard for kommuneinndeling", komm_search$klass_name)`: `object` and `expected` must both be vectors
  Backtrace:
      ▆
   1. └─testthat::expect_in("Standard for kommuneinndeling", komm_search$klass_name) at test_ListKlass.R:18:3
   2.   └─rlang::abort("`object` and `expected` must both be vectors")
  
  [ FAIL 16 | WARN 0 | SKIP 0 | PASS 41 ]
  Error: Test failures
  Execution halted