Running 'testthat.R' [182s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(BFS)
  > 
  > test_check("BFS")
  Saving _problems/test-bfs_download_asset-6.R
  Saving _problems/test-bfs_get_asset_metadata-5.R
  Saving _problems/test-bfs_get_asset_metadata-14.R
  > Waiting 1.3s for retry backoff
  Saving _problems/test-bfs_get_catalog_data-5.R
  > Waiting 1.7s for retry backoff
  Saving _problems/test-bfs_get_catalog_data-13.R
  > Waiting 1.2s for retry backoff
  Saving _problems/test-bfs_get_catalog_data-20.R
  > Waiting 2s for retry backoff
  Saving _problems/test-bfs_get_catalog_data-27.R
  > Waiting 1.5s for retry backoff
  Saving _problems/test-bfs_get_catalog_data-34.R
   ==>----------------------------    6% |  ETA:  1m
   ===>---------------------------   10% |  ETA:  1m
   ====>--------------------------   15% |  ETA:  1m
   ======>------------------------   21% |  ETA: 47s
   ========>----------------------   26% |  ETA: 46s
   =========>---------------------   30% |  ETA: 44s
   ===========>-------------------   35% |  ETA: 40s
   ============>------------------   40% |  ETA: 37s
   ==============>----------------   46% |  ETA: 32s
   ===============>---------------   50% |  ETA: 31s
   =================>-------------   56% |  ETA: 27s
   ==================>------------   61% |  ETA: 24s
   ===================>-----------   65% |  ETA: 22s
   =====================>---------   68% |  ETA: 20s
   ======================>--------   73% |  ETA: 17s
   =======================>-------   77% |  ETA: 14s
   =========================>-----   84% |  ETA: 10s
   ===========================>---   90% |  ETA:  6s
   ============================>--   95% |  ETA:  3s
  > Waiting 1.5s for retry backoff
  Saving _problems/test-bfs_get_catalog_tables-5.R
  > Waiting 2s for retry backoff
  Saving _problems/test-bfs_get_catalog_tables-13.R
  > Waiting 1.7s for retry backoff
  Saving _problems/test-bfs_get_catalog_tables-20.R
  [ FAIL 11 | WARN 0 | SKIP 9 | PASS 37 ]
  
  ══ Skipped tests (9) ═══════════════════════════════════════════════════════════
  • On CRAN (9): 'test-bfs_download_geodata.R:6:3',
    'test-bfs_get_base_maps.R:5:3', 'test-bfs_get_base_maps.R:15:3',
    'test-bfs_get_base_maps.R:25:3', 'test-bfs_get_base_maps.R:35:3',
    'test-bfs_get_base_maps.R:45:3', 'test-bfs_get_base_maps.R:53:3',
    'test-bfs_get_base_maps.R:63:3', 'test-bfs_get_base_maps.R:73:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-bfs_download_asset.R:6:3'): bfs_download_asset() works ─────────
  <curl_error_http_returned_error/curl_error/error/condition>
  Error in `curl::curl_download(url = paste0("https://dam-api.bfs.admin.ch/hub/api/dam/assets/", id, "/master"), destfile = destfile, quiet = quiet, mode = mode, handle = handle)`: HTTP response code said error [dam-api.bfs.admin.ch]:
  The requested URL returned error: 503
  Backtrace:
      ▆
   1. ├─BFS::bfs_download_asset(number_asset = "24367729", destfile = tmp) at test-bfs_download_asset.R:6:3
   2. │ └─curl::curl_download(...)
   3. └─curl:::raise_libcurl_error(...)
  ── Error ('test-bfs_get_asset_metadata.R:5:3'): bfs_get_asset_metadata() returns a none-empty list ──
  <httr2_http_503/httr2_http/httr2_error/rlang_error/rlang_error/error/condition>
  Error in `httr2::req_perform(.)`: HTTP 503 Service Unavailable.
  Backtrace:
       ▆
    1. ├─BFS::bfs_get_asset_metadata(number_asset = "24367729") at test-bfs_get_asset_metadata.R:5:3
    2. │ └─... %>% httr2::resp_body_json(simplifyVector = TRUE)
    3. ├─httr2::resp_body_json(., simplifyVector = TRUE)
    4. │ └─httr2:::check_response(resp)
    5. │   └─httr2:::is_response(resp)
    6. └─httr2::req_perform(.)
    7.   └─httr2:::handle_resp(req, resp, error_call = error_call)
    8.     └─httr2:::resp_failure_cnd(req, resp, error_call = error_call)
    9.       ├─rlang::catch_cnd(...)
   10.       │ ├─rlang::eval_bare(...)
   11.       │ ├─base::tryCatch(...)
   12.       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15.       │ └─base::force(expr)
   16.       └─rlang::abort(...)
  ── Error ('test-bfs_get_asset_metadata.R:14:3'): bfs_get_asset_metadata() returns a none-empty list ──
  <httr2_http_503/httr2_http/httr2_error/rlang_error/rlang_error/error/condition>
  Error in `httr2::req_perform(.)`: HTTP 503 Service Unavailable.
  Backtrace:
       ▆
    1. ├─BFS::bfs_get_asset_metadata(number_bfs = "px-x-1502040100_131") at test-bfs_get_asset_metadata.R:14:3
    2. │ └─... %>% httr2::resp_body_json(simplifyVector = TRUE)
    3. ├─httr2::resp_body_json(., simplifyVector = TRUE)
    4. │ └─httr2:::check_response(resp)
    5. │   └─httr2:::is_response(resp)
    6. └─httr2::req_perform(.)
    7.   └─httr2:::handle_resp(req, resp, error_call = error_call)
    8.     └─httr2:::resp_failure_cnd(req, resp, error_call = error_call)
    9.       ├─rlang::catch_cnd(...)
   10.       │ ├─rlang::eval_bare(...)
   11.       │ ├─base::tryCatch(...)
   12.       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15.       │ └─base::force(expr)
   16.       └─rlang::abort(...)
  ── Error ('test-bfs_get_catalog_data.R:5:3'): bfs_get_catalog_data() returns a data.frame of 5 rows ──
  <httr2_http_503/httr2_http/httr2_error/rlang_error/rlang_error/error/condition>
  Error in `req_perform(.)`: HTTP 503 Service Unavailable.
  Backtrace:
       ▆
    1. ├─BFS::bfs_get_catalog_data(limit = 5) at test-bfs_get_catalog_data.R:5:3
    2. │ └─... %>% resp_body_json(simplifyVector = TRUE)
    3. ├─httr2::resp_body_json(., simplifyVector = TRUE)
    4. │ └─httr2:::check_response(resp)
    5. │   └─httr2:::is_response(resp)
    6. └─httr2::req_perform(.)
    7.   └─httr2:::handle_resp(req, resp, error_call = error_call)
    8.     └─httr2:::resp_failure_cnd(req, resp, error_call = error_call)
    9.       ├─rlang::catch_cnd(...)
   10.       │ ├─rlang::eval_bare(...)
   11.       │ ├─base::tryCatch(...)
   12.       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15.       │ └─base::force(expr)
   16.       └─rlang::abort(...)
  ── Error ('test-bfs_get_catalog_data.R:13:3'): bfs_get_catalog_data() using some arguments ──
  <httr2_http_503/httr2_http/httr2_error/rlang_error/rlang_error/error/condition>
  Error in `req_perform(.)`: HTTP 503 Service Unavailable.
  Backtrace:
       ▆
    1. ├─BFS::bfs_get_catalog_data(...) at test-bfs_get_catalog_data.R:13:3
    2. │ └─... %>% resp_body_json(simplifyVector = TRUE)
    3. ├─httr2::resp_body_json(., simplifyVector = TRUE)
    4. │ └─httr2:::check_response(resp)
    5. │   └─httr2:::is_response(resp)
    6. └─httr2::req_perform(.)
    7.   └─httr2:::handle_resp(req, resp, error_call = error_call)
    8.     └─httr2:::resp_failure_cnd(req, resp, error_call = error_call)
    9.       ├─rlang::catch_cnd(...)
   10.       │ ├─rlang::eval_bare(...)
   11.       │ ├─base::tryCatch(...)
   12.       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15.       │ └─base::force(expr)
   16.       └─rlang::abort(...)
  ── Error ('test-bfs_get_catalog_data.R:20:3'): bfs_get_catalog_data() using order_nr argument ──
  <httr2_http_503/httr2_http/httr2_error/rlang_error/rlang_error/error/condition>
  Error in `req_perform(.)`: HTTP 503 Service Unavailable.
  Backtrace:
       ▆
    1. ├─BFS::bfs_get_catalog_data(order_nr = "px-x-1502040100_131") at test-bfs_get_catalog_data.R:20:3
    2. │ └─... %>% resp_body_json(simplifyVector = TRUE)
    3. ├─httr2::resp_body_json(., simplifyVector = TRUE)
    4. │ └─httr2:::check_response(resp)
    5. │   └─httr2:::is_response(resp)
    6. └─httr2::req_perform(.)
    7.   └─httr2:::handle_resp(req, resp, error_call = error_call)
    8.     └─httr2:::resp_failure_cnd(req, resp, error_call = error_call)
    9.       ├─rlang::catch_cnd(...)
   10.       │ ├─rlang::eval_bare(...)
   11.       │ ├─base::tryCatch(...)
   12.       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15.       │ └─base::force(expr)
   16.       └─rlang::abort(...)
  ── Error ('test-bfs_get_catalog_data.R:27:3'): bfs_get_catalog_data() using order_nr argument ──
  <httr2_http_503/httr2_http/httr2_error/rlang_error/rlang_error/error/condition>
  Error in `req_perform(.)`: HTTP 503 Service Unavailable.
  Backtrace:
       ▆
    1. ├─BFS::bfs_get_catalog_data(order_nr = "px-x-1502040100_131") at test-bfs_get_catalog_data.R:27:3
    2. │ └─... %>% resp_body_json(simplifyVector = TRUE)
    3. ├─httr2::resp_body_json(., simplifyVector = TRUE)
    4. │ └─httr2:::check_response(resp)
    5. │   └─httr2:::is_response(resp)
    6. └─httr2::req_perform(.)
    7.   └─httr2:::handle_resp(req, resp, error_call = error_call)
    8.     └─httr2:::resp_failure_cnd(req, resp, error_call = error_call)
    9.       ├─rlang::catch_cnd(...)
   10.       │ ├─rlang::eval_bare(...)
   11.       │ ├─base::tryCatch(...)
   12.       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15.       │ └─base::force(expr)
   16.       └─rlang::abort(...)
  ── Error ('test-bfs_get_catalog_data.R:34:3'): bfs_get_catalog_data() using prodima argument ──
  <httr2_http_503/httr2_http/httr2_error/rlang_error/rlang_error/error/condition>
  Error in `req_perform(.)`: HTTP 503 Service Unavailable.
  Backtrace:
       ▆
    1. ├─BFS::bfs_get_catalog_data(prodima = 900210, limit = 5) at test-bfs_get_catalog_data.R:34:3
    2. │ └─... %>% resp_body_json(simplifyVector = TRUE)
    3. ├─httr2::resp_body_json(., simplifyVector = TRUE)
    4. │ └─httr2:::check_response(resp)
    5. │   └─httr2:::is_response(resp)
    6. └─httr2::req_perform(.)
    7.   └─httr2:::handle_resp(req, resp, error_call = error_call)
    8.     └─httr2:::resp_failure_cnd(req, resp, error_call = error_call)
    9.       ├─rlang::catch_cnd(...)
   10.       │ ├─rlang::eval_bare(...)
   11.       │ ├─base::tryCatch(...)
   12.       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15.       │ └─base::force(expr)
   16.       └─rlang::abort(...)
  ── Error ('test-bfs_get_catalog_tables.R:5:3'): bfs_get_catalog_tables() returns a data.frame of 5 rows ──
  <httr2_http_503/httr2_http/httr2_error/rlang_error/rlang_error/error/condition>
  Error in `req_perform(.)`: HTTP 503 Service Unavailable.
  Backtrace:
       ▆
    1. ├─BFS::bfs_get_catalog_tables(limit = 5) at test-bfs_get_catalog_tables.R:5:3
    2. │ └─... %>% resp_body_json(simplifyVector = TRUE)
    3. ├─httr2::resp_body_json(., simplifyVector = TRUE)
    4. │ └─httr2:::check_response(resp)
    5. │   └─httr2:::is_response(resp)
    6. └─httr2::req_perform(.)
    7.   └─httr2:::handle_resp(req, resp, error_call = error_call)
    8.     └─httr2:::resp_failure_cnd(req, resp, error_call = error_call)
    9.       ├─rlang::catch_cnd(...)
   10.       │ ├─rlang::eval_bare(...)
   11.       │ ├─base::tryCatch(...)
   12.       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15.       │ └─base::force(expr)
   16.       └─rlang::abort(...)
  ── Error ('test-bfs_get_catalog_tables.R:13:3'): bfs_get_catalog_tables() using title argument ──
  <httr2_http_503/httr2_http/httr2_error/rlang_error/rlang_error/error/condition>
  Error in `req_perform(.)`: HTTP 503 Service Unavailable.
  Backtrace:
       ▆
    1. ├─BFS::bfs_get_catalog_tables(title = "student", limit = 5) at test-bfs_get_catalog_tables.R:13:3
    2. │ └─... %>% resp_body_json(simplifyVector = TRUE)
    3. ├─httr2::resp_body_json(., simplifyVector = TRUE)
    4. │ └─httr2:::check_response(resp)
    5. │   └─httr2:::is_response(resp)
    6. └─httr2::req_perform(.)
    7.   └─httr2:::handle_resp(req, resp, error_call = error_call)
    8.     └─httr2:::resp_failure_cnd(req, resp, error_call = error_call)
    9.       ├─rlang::catch_cnd(...)
   10.       │ ├─rlang::eval_bare(...)
   11.       │ ├─base::tryCatch(...)
   12.       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15.       │ └─base::force(expr)
   16.       └─rlang::abort(...)
  ── Error ('test-bfs_get_catalog_tables.R:20:3'): bfs_get_catalog_tables() using prodima argument ──
  <httr2_http_503/httr2_http/httr2_error/rlang_error/rlang_error/error/condition>
  Error in `req_perform(.)`: HTTP 503 Service Unavailable.
  Backtrace:
       ▆
    1. ├─BFS::bfs_get_catalog_tables(prodima = 900210, limit = 5) at test-bfs_get_catalog_tables.R:20:3
    2. │ └─... %>% resp_body_json(simplifyVector = TRUE)
    3. ├─httr2::resp_body_json(., simplifyVector = TRUE)
    4. │ └─httr2:::check_response(resp)
    5. │   └─httr2:::is_response(resp)
    6. └─httr2::req_perform(.)
    7.   └─httr2:::handle_resp(req, resp, error_call = error_call)
    8.     └─httr2:::resp_failure_cnd(req, resp, error_call = error_call)
    9.       ├─rlang::catch_cnd(...)
   10.       │ ├─rlang::eval_bare(...)
   11.       │ ├─base::tryCatch(...)
   12.       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15.       │ └─base::force(expr)
   16.       └─rlang::abort(...)
  
  [ FAIL 11 | WARN 0 | SKIP 9 | PASS 37 ]
  Error:
  ! Test failures.
  Execution halted