R Under development (unstable) (2024-05-15 r86556 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 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.

> library(testthat)
> library(gen3DNet)
Loading required package: NMF
Loading required package: registry
Loading required package: rngtools
Loading required package: cluster
NMF - BioConductor layer [OK] | Shared memory capabilities [NO: windows] | Cores 2/2 | CRAN check

Attaching package: 'NMF'

The following object is masked from 'package:testthat':

    compare

> 
> test_check("gen3DNet")
v Generating 3D network
v Running NMF
i  Picking k from [ 2 , 30 ].
i  Using k = 4
v Running PLSR
v Merging data...
v Writing to test_output
v Generating 3D network
v Running NMF
i  Picking k from [ 2 , 30 ].
i  Using k = 2
v Running PLSR
v Merging data...
v Writing to gen3DNet_2024-05-16_21-37-00
v Generating 3D network
v Running NMF
i  Picking k from [ 2 , 30 ].
i  Using k = 18
v Running PLSR
v Merging data...
v Writing to gen3DNet_2024-05-16_21-40-03
v Generating 3D network
v Running NMF
i  Picking k from [ 2 , 30 ].
i  Using k = 24
v Running PLSR
v Merging data...
v Writing to gen3DNet_2024-05-16_21-43-05
v Generating 3D network
v Running NMF
i  Picking k from [ 2 , 30 ].
i  Using k = 2
v Running PLSR
v Merging data...
v Writing to gen3DNet_2024-05-16_21-46-10
v Generating 3D network
v Running NMF
i  Picking k from [ 2 , 30 ].
i  Using k = 2
v Running PLSR
v Merging data...
v Writing to gen3DNet_2024-05-16_21-49-20
v Generating 3D network
v Running NMF
i  Picking k from [ 2 , 30 ].
i  Using k = 4
v Running PLSR
v Merging data...
v Writing to gen3DNet_2024-05-16_21-52-29
[ FAIL 1 | WARN 1 | SKIP 1 | PASS 0 ]

══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• empty test (1): 'test-test_k_selection_functions-as_script-final.R:77:1'

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-test_k_selection_functions-as_script-final.R:73:1'): Results match iPhDNet ──
Error in `file(con, "r")`: cannot open the connection
Backtrace:
    ▆
 1. ├─testthat::expect(verify_folders_same("test_output", "correct_output")) at test-test_k_selection_functions-as_script-final.R:73:1
 2. └─gen3DNet (local) verify_folders_same("test_output", "correct_output")
 3.   └─base::sapply(...) at test-test_k_selection_functions-as_script-final.R:17:8
 4.     └─base::lapply(X = X, FUN = FUN, ...)
 5.       └─gen3DNet (local) FUN(X[[i]], ...)
 6.         └─gen3DNet (local) verify_files_same(...) at test-test_k_selection_functions-as_script-final.R:25:20
 7.           └─base::readLines(file_a) at test-test_k_selection_functions-as_script-final.R:43:5
 8.             └─base::file(con, "r")

[ FAIL 1 | WARN 1 | SKIP 1 | PASS 0 ]
Error: Test failures
Execution halted