Last updated on 2026-06-16 13:55:43 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.1.1 | 8.20 | 76.02 | 84.22 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.1.1 | 5.70 | 54.78 | 60.48 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.1.1 | 75.81 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 0.1.1 | 84.06 | ERROR | |||
| r-devel-windows-x86_64 | 0.1.1 | 12.00 | 133.00 | 145.00 | OK | |
| r-patched-linux-x86_64 | 0.1.1 | 8.09 | 71.10 | 79.19 | OK | |
| r-release-linux-x86_64 | 0.1.1 | 6.48 | 70.96 | 77.44 | OK | |
| r-release-macos-arm64 | 0.1.1 | 2.00 | 85.00 | 87.00 | ERROR | |
| r-release-macos-x86_64 | 0.1.1 | 5.00 | 154.00 | 159.00 | OK | |
| r-release-windows-x86_64 | 0.1.1 | 10.00 | 132.00 | 142.00 | OK | |
| r-oldrel-macos-arm64 | 0.1.1 | OK | ||||
| r-oldrel-macos-x86_64 | 0.1.1 | 4.00 | 106.00 | 110.00 | OK | |
| r-oldrel-windows-x86_64 | 0.1.1 | 16.00 | 151.00 | 167.00 | OK |
Version: 0.1.1
Check: examples
Result: ERROR
Running examples in ‘finna-Ex.R’ failed
The error most likely occurred in:
> ### Name: analyze_metadata
> ### Title: Analyze Refined Finna Metadata
> ### Aliases: analyze_metadata
>
> ### ** Examples
>
> library(finna)
> sibelius_data <- search_finna("sibelius")
Warning in search_finna("sibelius") :
Default limit of 100 records is being used. Specify 'limit' argument for more records.
Warning in search_finna("sibelius") :
Failed to perform the search. Status code: 403 - Response: <!DOCTYPE html><html lang="en-US"><head><title>Just a moment...</title><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta http-equiv="X-UA-Compatible" content="IE=Edge"><meta name="robots" content="noindex,nofollow"><meta name="viewport" content="width=device-width,initial-scale=1"><meta http-equiv="content-security-policy" content="default-src 'none'; script-src 'nonce-6ixAZd4kki03eD3jwXG7Ab' 'unsafe-eval' https://challenges.cloudflare.com; script-src-attr 'none'; style-src 'unsafe-inline'; img-src 'self' https://challenges.cloudflare.com; connect-src 'self' https://challenges.cloudflare.com; frame-src 'self' https://challenges.cloudflare.com blob:; child-src 'self' https://challenges.cloudflare.com blob:; worker-src blob:; form-action http: https:; base-uri 'self'"><style>*{box-sizing:border-box;margin:0;padding:0}html{line-h [... truncated]
> refined_data <- refine_metadata(sibelius_data)
Warning in refine_metadata(sibelius_data) :
The following required columns are missing: Title, Author, Year, Language, Formats, Subjects, Library, Series
> analyze_metadata(refined_data)
Error in UseMethod("count") :
no applicable method for 'count' applied to an object of class "NULL"
Calls: analyze_metadata -> %>% -> count
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.1.1
Check: tests
Result: ERROR
Running ‘testthat.R’
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(finna)
>
> test_check("finna")
Saving _problems/test-fetch_finna-4.R
Saving _problems/test-fetch_finna-20.R
Saving _problems/test-fetch_finna-27.R
Saving _problems/test-get_finna_records-7.R
Saving _problems/test-search_publisher-4.R
Saving _problems/test-search_publisher-5.R
Saving _problems/test_search_finna-4.R
Saving _problems/test_search_finna-5.R
[ FAIL 8 | WARN 0 | SKIP 0 | PASS 31 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-fetch_finna.R:4:3'): fetch_finna performs a basic fetch correctly ──
Error in `fetch_finna(query = "record_format:ead", limit = 10)`: API request failed. Status code: 403
Backtrace:
▆
1. ├─base::suppressWarnings(...) at test-fetch_finna.R:4:3
2. │ └─base::withCallingHandlers(...)
3. └─finna::fetch_finna(query = "record_format:ead", limit = 10)
── Error ('test-fetch_finna.R:20:3'): fetch_finna handles empty facet data ─────
Error in `fetch_finna(query = "nonexistent_query")`: API request failed. Status code: 403
Backtrace:
▆
1. ├─base::suppressWarnings(fetch_finna(query = "nonexistent_query")) at test-fetch_finna.R:20:3
2. │ └─base::withCallingHandlers(...)
3. └─finna::fetch_finna(query = "nonexistent_query")
── Error ('test-fetch_finna.R:27:3'): fetch_finna handles parameters correctly ──
Error in `fetch_finna(query = "record_format:ead", limit = 5)`: API request failed. Status code: 403
Backtrace:
▆
1. ├─base::suppressWarnings(...) at test-fetch_finna.R:27:3
2. │ └─base::withCallingHandlers(...)
3. └─finna::fetch_finna(query = "record_format:ead", limit = 5)
── Error ('test-get_finna_records.R:7:3'): get_finna_records function handles various cases correctly ──
Error in `get_finna_records(record_id)`: Failed to retrieve the records. Status code:403- Response:<!DOCTYPE html><html lang="en-US"><head><title>Just a moment...</title><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta http-equiv="X-UA-Compatible" content="IE=Edge"><meta name="robots" content="noindex,nofollow"><meta name="viewport" content="width=device-width,initial-scale=1"><meta http-equiv="content-security-policy" content="default-src 'none'; script-src 'nonce-taZ2rTqtXd4PihGAqTBAKa' 'unsafe-eval' https://challenges.cloudflare.com; script-src-attr 'none'; style-src 'unsafe-inline'; img-src 'self' https://challenges.cloudflare.com; connect-src 'self' https://challenges.cloudflare.com; frame-src 'self' https://challenges.cloudflare.com blob:; child-src 'self' https://challenges.cloudflare.com blob:; worker-src blob:; form-action http: https:; base-uri 'self'"><style>*{box-sizing:border-box;margin:0;padding:0}html{line-height:1.15;-webkit-text-size-adjust:100%;color:#313131;font-family:system-ui,-apple-system,BlinkMacSystemFont,"Segoe UI",Roboto,"Helvetica Neue",Arial,"Noto Sans",sans-serif,"Apple Color Emoji","Segoe UI Emoji","Segoe UI Symbol","Noto Color Emoji"}body{display:flex;flex-direction:column;height:100vh;min-height:100vh}.main-content{margin:8rem auto;padding-left:1.5rem;max-width:60rem}@media (width <= 720px){.main-content{margin-top:4rem}}#challenge-error-text{background-image:url("data:image/svg+xml;base64,PHN2ZyB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIHdpZHRoPSIzMiIgaGVpZ2h0PSIzMiIgZmlsbD0ibm9uZSI+PHBhdGggZmlsbD0iI0IyMEYwMyIgZD0iTTE2IDNhMTMgMTMgMCAxIDAgMTMgMTNBMTMuMDE1IDEzLjAxNSAwIDAgMCAxNiAzbTAgMjRhMTEgMTEgMCAxIDEgMTEtMTEgMTEuMDEgMTEuMDEgMCAwIDEtMTEgMTEiLz48cGF0aCBmaWxsPSIjQjIwRjAzIiBkPSJNMTcuMDM4IDE4LjYxNUgxNC44N0wxNC41NjMgOS41aDIuNzgzem0tMS4wODQgMS40MjdxLjY2IDAgMS4wNTcuMzg4LjQwNy4zODkuNDA3Ljk5NCAwIC41OTYtLjQwNy45ODQtLjM5Ny4zOS0xLjA1Ny4zODktLjY1IDAtMS4wNTYtLjM4OS0uMzk4LS4zODktLjM5OC0uOTg0IDAtLjU5Ny4zOTgtLjk4NS40MDYtLjM5NyAxLjA1Ni0uMzk3Ii8+PC9zdmc+");background-repeat:no-repeat;background-size:contain;padding-left:34px}</style><meta http-equiv="refresh" content="360"></head><body><div class="main-wrapper" role="main"><div class="main-content"><noscript><div class="h2"><span id="challenge-error-text">Enable JavaScript and cookies to continue</span></div></noscript></div></div><script nonce="taZ2rTqtXd4PihGAqTBAKa">(function(){window._cf_chl_opt = {cFPWv: 'g',cH: '01brp_xN.HTGWJFmT3GdWkMvI07i4k8bIT7SJXVIdVU-1781583847-1.2.1.1-I8pcyUVWLhZ0D2Z8CKaExoFaL9sP_Uk5o75MDj0pWVweqZugqGGXXA52EeSvQneV',cITimeS: '1781583847',cN: 'taZ2rTqtXd4PihGAqTBAKa',cRay: 'a0c70b060f27f816',cTplB: '0',cTplC:0,cTplO:0,cTplV:5,cType: 'managed',cUPMDTk:"/v1/record?prettyPrint=FALSE\u0026lng=fi\u0026page=1\u0026limit=100\u0026id%5B%5D=fikka.3405646\u0026__cf_chl_tk=slrDy3Qwxh30_Qngpb7b4Xt1fpVK.vhMdbIdGl.tzII-1781583847-1.0.1.1-aGXHPzDgyXIRxGVDzCuYNhmWgSPqCwNl3RFcZ_hAWOQ",cvId: '3',cZone: 'api.finna.fi',fa:"/v1/record?prettyPrint=FALSE\u0026lng=fi\u0026page=1\u0026limit=100\u0026id%5B%5D=fikka.3405646\u0026__cf_chl_f_tk=slrDy3Qwxh30_Qngpb7b4Xt1fpVK.vhMdbIdGl.tzII-1781583847-1.0.1.1-aGXHPzDgyXIRxGVDzCuYNhmWgSPqCwNl3RFcZ_hAWOQ",md: 'qW4vHVorefTXsZnNscxq7veGbqHQMlvIlS_6_rADP_8-1781583847-1.2.1.1-qBNht7zbXRJ6dvrl7ZvfCjpsroFQ7nP0TVeYuro1t2NTB9Q.pCFlpSSP.YoViiaI6iJwh8XuwTv5oaVojhk0uduqMf5jkRet_ZzBrk3GfUKnYFzrUrghLjhrCU0_VO74j3p8O8ubK1miAg8mJf_o2a7TDqswCZLJn4vM.Z8e2VDCFwaIVEdnRV6bZ6Ae0kkC8LA_txBPis1NKGJYIkCSa9G6zp0CEJ900X0QRB7IEoeujjmFAYytpurt6sgKktXfq405HLO5AY4Tph.PR7RvMK3s38SCzggEcIQV9F3i4DCcZW5fnKVc.Dp96iCJ_dcAUKXm6qmp4L5nLUNhk_cqsWpUTCLHWD9TdjX2Zu9fNLr_cVt9expb31QwoOXhKoASSCtb28Lwh54.LPmern9.3mo6nXQon17LoW3UeAFnrygdrbHwyUCdULpJABIZ15D_wNIx5XRuxPs1sxfRR35NM6tK_KrtDzZZefyvuXyuxsIVbh2dg.I6ezn89y_AiO20fblyXRgauF0ZNpBsBCWmrLM4bOehUtSNJCN9MhMY._leMLh3Mf9Y4AR3eSJBnlpHqNnTDmOKBZ.UeQKzZjrtU9PLF8BQsZml8h1lKwxZduJtEZMFOLwDastq73Fg.Dt2R.rsyitWgpwyQcIWbSO1M8vsVYxf3c98vlKuTSSdIvIj4j8PaszfchCFdVDXgsydwKsQeCA4wq8sRay1WFwpx1x6Ktg9Nur1hOfBuEFiFHk8pzDaLhaLMzOkKTxMH4RDC6c71SLlA19javlPooh99xpRX01TDO3Cq6RC7LFaNX_.hjacMbuNfhdoetUL5xNRRI8fss7RnAPHHzuEHxstZ4Z3CkPB72u8xiX0qPH2_Lr2T5pLg1AF4X3ZtGmIPDPaTQNfPVg84csWQb5ciOVyJ0C3zmOJxHucppQxDzAcOfiYLHWY_2bcabZc._qT7lhKJj_RmQSnO6vyl2evqAVPPKdCEZJkS1HP.t4QK8w5LLzZNHBIAw3v2dr.h_i1cL1p20u.Mw84_3c3ujYLJifNDbuaQEQAuc4BMPhFLTIQVeNfBjH_Q8Z.6ej_GIsjvBcl2nS4URv6dqnebHyHWuWEhNT0HWA6TzRTdIO0jUKOr5OckpbFnT3SOBgh4Ukk2.6dJ5rRtYbt8djuhWlIrYOhQw',mdrd: '_b3VE1ubPCta04J20jujIMPQK0S3Ld8W_2S.n3TOVKc-1781583847-1.2.1.1-I5zINeb4zk2wGB50d.ywM5t4_9ZzuB0VXMI1iUjFEr299fKU4RxBxL82Yk6dMlnDKMwcOdLqHJLlVwT9a7FLiW2_rFtRMvzoc8zbqbRLBED6Db91kyjM6JzGjQQ9PTdK_yasZP1HDdP_wBVDhXiEpw5FTSIVBSUYgr.0xq8twbrgVg1dA2gllAhfkhfnHqpx7tNiAfoOswKHE8Dk_d2fZyAOXc6WMlV2CaqmAZy4Oxirohorfv8fuZnuYZPxqCIesfGCJnOIUEJ7Lh5Bo4gisA',};var a = document.createElement('script');a.nonce = 'taZ2rTqtXd4PihGAqTBAKa';a.src = '/cdn-cgi/challenge-platform/h/g/orchestrate/chl_page/v1?ray=a0c70b060f27f816';window._cf_chl_opt.cOgUHash = location.hash === '' && location.href.indexOf('#') !== -1 ? '#' : location.hash;window._cf_chl_opt.cOgUQuery = location.search === '' && location.href.slice(0, location.href.length - window._cf_chl_opt.cOgUHash.length).indexOf('?') !== -1 ? '?' : location.search;if (window.history && window.history.replaceState) {var ogU = location.pathname + window._cf_chl_opt.cOgUQuery + window._cf_chl_opt.cOgUHash;history.replaceState(null, null,"/v1/record?prettyPrint=FALSE\u0026lng=fi\u0026page=1\u0026limit=100\u0026id%5B%5D=fikka.3405646\u0026__cf_chl_rt_tk=slrDy3Qwxh30_Qngpb7b4Xt1fpVK.vhMdbIdGl.tzII-1781583847-1.0.1.1-aGXHPzDgyXIRxGVDzCuYNhmWgSPqCwNl3RFcZ_hAWOQ"+ window._cf_chl_opt.cOgUHash);a.onload = function() {history.replaceState(null, null, ogU);}}document.getElementsByTagName('head')[0].appendChild(a);}());</script></body></html>
Backtrace:
▆
1. └─finna::get_finna_records(record_id) at test-get_finna_records.R:7:3
── Failure ('test-search_publisher.R:4:3'): search_publisher performs a basic search correctly ──
Expected `is.data.frame(search_results)` to be TRUE.
Differences:
`actual`: FALSE
`expected`: TRUE
── Error ('test-search_publisher.R:5:3'): search_publisher performs a basic search correctly ──
Error in `expect_gt(nrow(search_results), 0)`: Result of comparison must be `TRUE`, `FALSE`, or `NA`
Backtrace:
▆
1. └─testthat::expect_gt(nrow(search_results), 0) at test-search_publisher.R:5:3
2. └─testthat:::expect_compare_(">", act, exp)
3. └─cli::cli_abort(...)
4. └─rlang::abort(...)
── Failure ('test_search_finna.R:4:3'): search_finna performs a basic search correctly ──
Expected `is.data.frame(search_results)` to be TRUE.
Differences:
`actual`: FALSE
`expected`: TRUE
The result should be a data frame.
── Error ('test_search_finna.R:5:3'): search_finna performs a basic search correctly ──
Error in `expect_gt(nrow(search_results), 0, "The number of rows should be greater than 0.")`: Result of comparison must be `TRUE`, `FALSE`, or `NA`
Backtrace:
▆
1. └─testthat::expect_gt(nrow(search_results), 0, "The number of rows should be greater than 0.") at test_search_finna.R:5:3
2. └─testthat:::expect_compare_(">", act, exp)
3. └─cli::cli_abort(...)
4. └─rlang::abort(...)
[ FAIL 8 | WARN 0 | SKIP 0 | PASS 31 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.1.1
Check: examples
Result: ERROR
Running examples in ‘finna-Ex.R’ failed
The error most likely occurred in:
> ### Name: analyze_metadata
> ### Title: Analyze Refined Finna Metadata
> ### Aliases: analyze_metadata
>
> ### ** Examples
>
> library(finna)
> sibelius_data <- search_finna("sibelius")
Warning in search_finna("sibelius") :
Default limit of 100 records is being used. Specify 'limit' argument for more records.
Warning in search_finna("sibelius") :
Failed to perform the search. Status code: 403 - Response: <!DOCTYPE html><html lang="en-US"><head><title>Just a moment...</title><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta http-equiv="X-UA-Compatible" content="IE=Edge"><meta name="robots" content="noindex,nofollow"><meta name="viewport" content="width=device-width,initial-scale=1"><meta http-equiv="content-security-policy" content="default-src 'none'; script-src 'nonce-mF1afb4EawCVuXvD4AOaLU' 'unsafe-eval' https://challenges.cloudflare.com; script-src-attr 'none'; style-src 'unsafe-inline'; img-src 'self' https://challenges.cloudflare.com; connect-src 'self' https://challenges.cloudflare.com; frame-src 'self' https://challenges.cloudflare.com blob:; child-src 'self' https://challenges.cloudflare.com blob:; worker-src blob:; form-action http: https:; base-uri 'self'"><style>*{box-sizing:border-box;margin:0;padding:0}html{line-h [... truncated]
> refined_data <- refine_metadata(sibelius_data)
Warning in refine_metadata(sibelius_data) :
The following required columns are missing: Title, Author, Year, Language, Formats, Subjects, Library, Series
> analyze_metadata(refined_data)
Error in UseMethod("count") :
no applicable method for 'count' applied to an object of class "NULL"
Calls: analyze_metadata -> %>% -> count
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.1.1
Check: tests
Result: ERROR
Running ‘testthat.R’
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(finna)
>
> test_check("finna")
Saving _problems/test-fetch_finna-4.R
Saving _problems/test-fetch_finna-20.R
Saving _problems/test-fetch_finna-27.R
Saving _problems/test-get_finna_records-7.R
Saving _problems/test-search_publisher-4.R
Saving _problems/test-search_publisher-5.R
Saving _problems/test_search_finna-4.R
Saving _problems/test_search_finna-5.R
[ FAIL 8 | WARN 0 | SKIP 0 | PASS 31 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-fetch_finna.R:4:3'): fetch_finna performs a basic fetch correctly ──
Error in `fetch_finna(query = "record_format:ead", limit = 10)`: API request failed. Status code: 403
Backtrace:
▆
1. ├─base::suppressWarnings(...) at test-fetch_finna.R:4:3
2. │ └─base::withCallingHandlers(...)
3. └─finna::fetch_finna(query = "record_format:ead", limit = 10)
── Error ('test-fetch_finna.R:20:3'): fetch_finna handles empty facet data ─────
Error in `fetch_finna(query = "nonexistent_query")`: API request failed. Status code: 403
Backtrace:
▆
1. ├─base::suppressWarnings(fetch_finna(query = "nonexistent_query")) at test-fetch_finna.R:20:3
2. │ └─base::withCallingHandlers(...)
3. └─finna::fetch_finna(query = "nonexistent_query")
── Error ('test-fetch_finna.R:27:3'): fetch_finna handles parameters correctly ──
Error in `fetch_finna(query = "record_format:ead", limit = 5)`: API request failed. Status code: 403
Backtrace:
▆
1. ├─base::suppressWarnings(...) at test-fetch_finna.R:27:3
2. │ └─base::withCallingHandlers(...)
3. └─finna::fetch_finna(query = "record_format:ead", limit = 5)
── Error ('test-get_finna_records.R:7:3'): get_finna_records function handles various cases correctly ──
Error in `get_finna_records(record_id)`: Failed to retrieve the records. Status code:403- Response:<!DOCTYPE html><html lang="en-US"><head><title>Just a moment...</title><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta http-equiv="X-UA-Compatible" content="IE=Edge"><meta name="robots" content="noindex,nofollow"><meta name="viewport" content="width=device-width,initial-scale=1"><meta http-equiv="content-security-policy" content="default-src 'none'; script-src 'nonce-DljcnsFDzyOJojNMfBEFRh' 'unsafe-eval' https://challenges.cloudflare.com; script-src-attr 'none'; style-src 'unsafe-inline'; img-src 'self' https://challenges.cloudflare.com; connect-src 'self' https://challenges.cloudflare.com; frame-src 'self' https://challenges.cloudflare.com blob:; child-src 'self' https://challenges.cloudflare.com blob:; worker-src blob:; form-action http: https:; base-uri 'self'"><style>*{box-sizing:border-box;margin:0;padding:0}html{line-height:1.15;-webkit-text-size-adjust:100%;color:#313131;font-family:system-ui,-apple-system,BlinkMacSystemFont,"Segoe UI",Roboto,"Helvetica Neue",Arial,"Noto Sans",sans-serif,"Apple Color Emoji","Segoe UI Emoji","Segoe UI Symbol","Noto Color Emoji"}body{display:flex;flex-direction:column;height:100vh;min-height:100vh}.main-content{margin:8rem auto;padding-left:1.5rem;max-width:60rem}@media (width <= 720px){.main-content{margin-top:4rem}}#challenge-error-text{background-image:url("data:image/svg+xml;base64,PHN2ZyB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIHdpZHRoPSIzMiIgaGVpZ2h0PSIzMiIgZmlsbD0ibm9uZSI+PHBhdGggZmlsbD0iI0IyMEYwMyIgZD0iTTE2IDNhMTMgMTMgMCAxIDAgMTMgMTNBMTMuMDE1IDEzLjAxNSAwIDAgMCAxNiAzbTAgMjRhMTEgMTEgMCAxIDEgMTEtMTEgMTEuMDEgMTEuMDEgMCAwIDEtMTEgMTEiLz48cGF0aCBmaWxsPSIjQjIwRjAzIiBkPSJNMTcuMDM4IDE4LjYxNUgxNC44N0wxNC41NjMgOS41aDIuNzgzem0tMS4wODQgMS40MjdxLjY2IDAgMS4wNTcuMzg4LjQwNy4zODkuNDA3Ljk5NCAwIC41OTYtLjQwNy45ODQtLjM5Ny4zOS0xLjA1Ny4zODktLjY1IDAtMS4wNTYtLjM4OS0uMzk4LS4zODktLjM5OC0uOTg0IDAtLjU5Ny4zOTgtLjk4NS40MDYtLjM5NyAxLjA1Ni0uMzk3Ii8+PC9zdmc+");background-repeat:no-repeat;background-size:contain;padding-left:34px}</style><meta http-equiv="refresh" content="360"></head><body><div class="main-wrapper" role="main"><div class="main-content"><noscript><div class="h2"><span id="challenge-error-text">Enable JavaScript and cookies to continue</span></div></noscript></div></div><script nonce="DljcnsFDzyOJojNMfBEFRh">(function(){window._cf_chl_opt = {cFPWv: 'g',cH: 'p6ZHGm1WLf__jdchB6Rw5y_WDi8lDDNk5dpUDu468eU-1781583805-1.2.1.1-.tZVdNH9WP5ef2TvxUy8lNhQ9Pg3Sm5Tw5A80vSN21qDCGSDM.YTgOr1.foEdERt',cITimeS: '1781583805',cN: 'DljcnsFDzyOJojNMfBEFRh',cRay: 'a0c709fe5e6cde06',cTplB: '0',cTplC:0,cTplO:0,cTplV:5,cType: 'managed',cUPMDTk:"/v1/record?prettyPrint=FALSE\u0026lng=fi\u0026page=1\u0026limit=100\u0026id%5B%5D=fikka.3405646\u0026__cf_chl_tk=HAUi.nfPMQXHGq9mO.DZHZEsxqraX1AVfibuN0VnoDw-1781583805-1.0.1.1-gtsxyp8CJjVN54fjr.WgGfqQ1fJdRpb70f0h00Emq08",cvId: '3',cZone: 'api.finna.fi',fa:"/v1/record?prettyPrint=FALSE\u0026lng=fi\u0026page=1\u0026limit=100\u0026id%5B%5D=fikka.3405646\u0026__cf_chl_f_tk=HAUi.nfPMQXHGq9mO.DZHZEsxqraX1AVfibuN0VnoDw-1781583805-1.0.1.1-gtsxyp8CJjVN54fjr.WgGfqQ1fJdRpb70f0h00Emq08",md: 'bR5dj5IlnQ0XLc9jUTtvfZ1UHGTsbCZorG7j0VnHHVc-1781583805-1.2.1.1-FVfRaaJAvsk7OHACH9wWEKpH1AjG2AYX3xVfC.r1Av9x4kGp2jWWWbQR.qA2Lqo89eYPdZteTtv34KzYXVd7VqcIntpGH2DAZmPJLZkLFlpt7Vag3.MKMFUFl9ojnbTiSdtuTHNT7ztdANSNrpytlEf7Ynv.r2G6hGAWQsqnNtvf8PHvNbnNiTu2s9l_MLEduNevoUteFT8NKAkFW1qKQ1YiDydhbro7k_42qH4_K.OgiAT7pNqOp1zFtDDVJSm_cb_rmRD2teaXxyLfTvHvesHyCtU7U7vaMgJLZgU2hEUGjvXFgs5v24HcoiZ4hHJY_rj.iBpQ7z0G7vX5rjTy4HT3M.NggVY__3pq.11NBTdaBb0rlRRoO3ig3ph4xgoxf5PINbWgV_zex7X7ij1AvrXhlZ4Rm4nttfmtExxyZ8HHTiHp3wi9GmSLhnzQaMCCAxC6VHyXMFBi1AQYsH6QCJ9jKepT0awMObWCd02AXO5W_TkZOu2JuSEn1ZZXQfPucZuYxAQ2u07oCTruTEE23aZL9xXZzjsigqhqVmS75FHsqzLqdlGGwOjp_XfpxfgSjOk_Iwg4dHpu7DgsUPGEVcy9OGub_OxOjJ7ueUc2Tcrf7Aq7gYnQocXSR9eFQCbO9_W68MWDTu6NDYG0r5xODQLcAe0EqEd1rs.jKMkMKwRvppL1KDxY9F7hvJGWcjPo7tUwJKsRt9PVTMjx.74pBK0K.D2hyoJdPV0Rek3RnwMF9TNqhJznV8EI4C6T5LznrY0TaXpWqgLKcNhTElvw0eFDeVerDw9VT4rMQ2EfbRURiQPCjYnu_RMP8VlR53z1qNUXEJV_QUvW4QfQ2CH.WP5guwbh.vuFf0gmEpiLSj2avtvGNFP.JpdIj4gnbn.skzAiij6tpuhLFeScThGHF5EJaphGa9IZ65s2Z5vu2_tB1UunWK9EUkThA1vEmnwViqeWdE5BRqTsiY2gPyFxqYpfBs37zzN070JFt1Sl1I37g.1nzsT9xAS59m3Iqlaa1EA8voqh0rbvNyRGXzm_u5tR4_B4iyMrwhVlXRg9i4c56g2HgaXXSwfQdO3IZD55H7kxSa3x9s4YsaDTspnpO8FPW6NICtpy_DXz7saztKLDrOlP8Ai0fsRwg5lUvFCVsegitGxs5lx0o45uffk8fA',mdrd: 'ijCCvNDhTMtajTGuMcPAIj0eYYzgFXrv8buvgS9QTic-1781583805-1.2.1.1-7SgjsaokfB0BACDQ.1iYQbhmwYta9zVStFY.aBCMow_xlD5bh6rtlkEeP6IRohV_ZzpgQWCxBs4KKZu666jWt4gKcZEme1PMOWhsD9Hqk8rO4BXQksSJe8cr3033uPDOb4E7QGD5OnP45u9utbUT1fKmcpuGf6tZNS9E8ALg9K4QVGvJJfl_.Yxx8.jekBYtvz4P9LUt8EV.lHx9xa_DaHCV4UzrrcASmJss2eSWa3k.smg8cClGYLZe_INDvB622o20KygZKWMOPQm4q2vroQ',};var a = document.createElement('script');a.nonce = 'DljcnsFDzyOJojNMfBEFRh';a.src = '/cdn-cgi/challenge-platform/h/g/orchestrate/chl_page/v1?ray=a0c709fe5e6cde06';window._cf_chl_opt.cOgUHash = location.hash === '' && location.href.indexOf('#') !== -1 ? '#' : location.hash;window._cf_chl_opt.cOgUQuery = location.search === '' && location.href.slice(0, location.href.length - window._cf_chl_opt.cOgUHash.length).indexOf('?') !== -1 ? '?' : location.search;if (window.history && window.history.replaceState) {var ogU = location.pathname + window._cf_chl_opt.cOgUQuery + window._cf_chl_opt.cOgUHash;history.replaceState(null, null,"/v1/record?prettyPrint=FALSE\u0026lng=fi\u0026page=1\u0026limit=100\u0026id%5B%5D=fikka.3405646\u0026__cf_chl_rt_tk=HAUi.nfPMQXHGq9mO.DZHZEsxqraX1AVfibuN0VnoDw-1781583805-1.0.1.1-gtsxyp8CJjVN54fjr.WgGfqQ1fJdRpb70f0h00Emq08"+ window._cf_chl_opt.cOgUHash);a.onload = function() {history.replaceState(null, null, ogU);}}document.getElementsByTagName('head')[0].appendChild(a);}());</script></body></html>
Backtrace:
▆
1. └─finna::get_finna_records(record_id) at test-get_finna_records.R:7:3
── Failure ('test-search_publisher.R:4:3'): search_publisher performs a basic search correctly ──
Expected `is.data.frame(search_results)` to be TRUE.
Differences:
`actual`: FALSE
`expected`: TRUE
── Error ('test-search_publisher.R:5:3'): search_publisher performs a basic search correctly ──
Error in `expect_gt(nrow(search_results), 0)`: Result of comparison must be `TRUE`, `FALSE`, or `NA`
Backtrace:
▆
1. └─testthat::expect_gt(nrow(search_results), 0) at test-search_publisher.R:5:3
2. └─testthat:::expect_compare_(">", act, exp)
3. └─cli::cli_abort(...)
4. └─rlang::abort(...)
── Failure ('test_search_finna.R:4:3'): search_finna performs a basic search correctly ──
Expected `is.data.frame(search_results)` to be TRUE.
Differences:
`actual`: FALSE
`expected`: TRUE
The result should be a data frame.
── Error ('test_search_finna.R:5:3'): search_finna performs a basic search correctly ──
Error in `expect_gt(nrow(search_results), 0, "The number of rows should be greater than 0.")`: Result of comparison must be `TRUE`, `FALSE`, or `NA`
Backtrace:
▆
1. └─testthat::expect_gt(nrow(search_results), 0, "The number of rows should be greater than 0.") at test_search_finna.R:5:3
2. └─testthat:::expect_compare_(">", act, exp)
3. └─cli::cli_abort(...)
4. └─rlang::abort(...)
[ FAIL 8 | WARN 0 | SKIP 0 | PASS 31 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.1.1
Check: examples
Result: ERROR
Running examples in ‘finna-Ex.R’ failed
The error most likely occurred in:
> ### Name: analyze_metadata
> ### Title: Analyze Refined Finna Metadata
> ### Aliases: analyze_metadata
>
> ### ** Examples
>
> library(finna)
> sibelius_data <- search_finna("sibelius")
Warning in search_finna("sibelius") :
Default limit of 100 records is being used. Specify 'limit' argument for more records.
Warning in value[[3L]](cond) : Error: Failed to make the request.
Error in UseMethod("status_code") :
no applicable method for 'status_code' applied to an object of class "NULL"
Calls: search_finna -> <Anonymous>
Execution halted
Flavor: r-release-macos-arm64