Running ‘testthat.R’ [17s/306s]
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
  Saving _problems/test-bfs_get_base_maps-91.R
  > Waiting 1.5s for retry backoff
  Saving _problems/test-bfs_get_catalog_data-5.R
  > Waiting 1.2s for retry backoff
  Saving _problems/test-bfs_get_catalog_data-13.R
  > Waiting 1.8s for retry backoff
  Saving _problems/test-bfs_get_catalog_data-20.R
  > Waiting 1.7s 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
   =>-----------------------------    3% |  ETA:  1m
   ==>----------------------------    8% |  ETA:  1m
   ====>--------------------------   13% |  ETA:  1m
   =====>-------------------------   18% |  ETA: 49s
   =======>-----------------------   22% |  ETA: 48s
   ========>----------------------   27% |  ETA: 45s
   ==========>--------------------   32% |  ETA: 42s
   ===========>-------------------   37% |  ETA: 41s
   ============>------------------   40% |  ETA: 39s
   =============>-----------------   44% |  ETA: 37s
   ===============>---------------   49% |  ETA: 33s
   ================>--------------   53% |  ETA: 31s
   =================>-------------   58% |  ETA: 28s
   ===================>-----------   62% |  ETA: 25s
   ====================>----------   66% |  ETA: 23s
   =====================>---------   70% |  ETA: 20s
   ======================>--------   74% |  ETA: 17s
   ========================>------   79% |  ETA: 14s
   =========================>-----   83% |  ETA: 11s
   ==========================>----   88% |  ETA:  8s
   ============================>--   93% |  ETA:  5s
   =============================>-   98% |  ETA:  1s
  > Waiting 1.8s for retry backoff
  Saving _problems/test-bfs_get_catalog_tables-5.R
  > Waiting 1.7s for retry backoff
  Saving _problems/test-bfs_get_catalog_tables-13.R
  > Waiting 1.3s for retry backoff
  Saving _problems/test-bfs_get_catalog_tables-20.R
  [ FAIL 12 | WARN 0 | SKIP 9 | PASS 35 ]
  
  ══ 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_base_maps.R:83:3'): bfs_get_base_maps() with return_sf = FALSE returns an non empty character class ──
  <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_get_base_maps(...) at test-bfs_get_base_maps.R:83:3
   2. │ └─BFS::bfs_download_asset(...)
   3. │   └─curl::curl_download(...)
   4. └─curl:::raise_libcurl_error(...)
  ── 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_failure/httr2_error/rlang_error/error/condition>
  Error in `req_perform(.)`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Failure when receiving data from the peer [dam-api.bfs.admin.ch]:
  OpenSSL SSL_read: OpenSSL/3.6.2: error:0A000126:SSL routines::unexpected eof while reading, errno 0
  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.     └─rlang::cnd_signal(resp)
  ── 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 12 | WARN 0 | SKIP 9 | PASS 35 ]
  Error:
  ! Test failures.
  Execution halted