R Under development (unstable) (2025-10-27 r88972 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # 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(fioRa)
> 
> test_check("fioRa")
Loading required package: shiny
[ FAIL 7 | WARN 2 | SKIP 1 | PASS 26 ]

══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• On CRAN (1): 'test-golem-recommended.R:81:5'

══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-run_script.R:10:3'): fioRa `run_script` function works with default parameters ──
tmp[[1]] has length 1, not length 9.
── Failure ('test-run_script.R:11:3'): fioRa `run_script` function works with default parameters ──
"spec" %in% names(tmp[[1]]) is not TRUE

`actual`:   FALSE
`expected`: TRUE 
── Error ('test-run_script.R:12:3'): fioRa `run_script` function works with default parameters ──
<subscriptOutOfBoundsError/error/condition>
Error in `tmp[[1]][["spec"]]`: subscript out of bounds
Backtrace:
    ▆
 1. ├─testthat::expect_true(nrow(tmp[[1]][["spec"]]) == 4) at test-run_script.R:12:3
 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
 3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
 4. └─base::nrow(tmp[[1]][["spec"]])
── Failure ('test-run_script.R:23:3'): fioRa `run_script` function returns annotated spectra output ──
`tmp` has length 1, not length 10.
── Failure ('test-run_script.R:24:3'): fioRa `run_script` function returns annotated spectra output ──
tmp[[1]] has length 1, not length 9.
── Failure ('test-run_script.R:25:3'): fioRa `run_script` function returns annotated spectra output ──
"spec" %in% names(tmp[[1]]) is not TRUE

`actual`:   FALSE
`expected`: TRUE 
── Error ('test-run_script.R:26:3'): fioRa `run_script` function returns annotated spectra output ──
<subscriptOutOfBoundsError/error/condition>
Error in `tmp[[1]][["spec"]]`: subscript out of bounds
Backtrace:
    ▆
 1. ├─testthat::expect_true(nrow(tmp[[1]][["spec"]]) == 4) at test-run_script.R:26:3
 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
 3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
 4. └─base::nrow(tmp[[1]][["spec"]])

[ FAIL 7 | WARN 2 | SKIP 1 | PASS 26 ]
Error: Test failures
Execution halted