Running ‘testthat.R’ [3s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ruta)
  > 
  > test_check("ruta")
  [ FAIL 7 | WARN 0 | SKIP 0 | PASS 0 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-autoencoders.R:4'): can create autoencoders ────────────────────
  Error in `map(., dense)`: ℹ In index: 1.
  Caused by error in `every()`:
  ! `.p()` must return a single `TRUE` or `FALSE`, not a logical vector.
  ── Error ('test-autoencoders.R:13'): can convert autoencoders ──────────────────
  Error in `map(., dense)`: ℹ In index: 1.
  Caused by error in `every()`:
  ! `.p()` must return a single `TRUE` or `FALSE`, not a logical vector.
  ── Error ('test-autoencoders.R:27'): can check autoencoders ────────────────────
  Error in `map(., dense)`: ℹ In index: 1.
  Caused by error in `every()`:
  ! `.p()` must return a single `TRUE` or `FALSE`, not a logical vector.
  ── Error ('test-layers.R:4'): layers can be joined ─────────────────────────────
  Error in `every(args, ~class(.) == ruta_layer)`: `.p()` must return a single `TRUE` or `FALSE`, not a logical vector.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(length(input() + dense(1)), 2) at test-layers.R:4:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─ruta::input()
    5.   └─ruta:::make_atomic_network(ruta_layer_input)
    6.     ├─ruta::as_network(new_layer(cl, ...))
    7.     └─ruta:::as_network.ruta_layer(new_layer(cl, ...))
    8.       └─ruta::new_network(x)
    9.         ├─base::stopifnot(every(args, ~class(.) == ruta_layer))
   10.         └─purrr::every(.p = ~class(.) == ruta_layer)
   11.           └─purrr (local) .p(.x[[i]], ...)
   12.             └─cli::cli_abort(...)
   13.               └─rlang::abort(...)
  ── Error ('test-layers.R:9'): networks can be subsetted ────────────────────────
  Error in `every(args, ~class(.) == ruta_layer)`: `.p()` must return a single `TRUE` or `FALSE`, not a logical vector.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(length((input() + dense(1))[1]), 1) at test-layers.R:9:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─ruta::input()
    5.   └─ruta:::make_atomic_network(ruta_layer_input)
    6.     ├─ruta::as_network(new_layer(cl, ...))
    7.     └─ruta:::as_network.ruta_layer(new_layer(cl, ...))
    8.       └─ruta::new_network(x)
    9.         ├─base::stopifnot(every(args, ~class(.) == ruta_layer))
   10.         └─purrr::every(.p = ~class(.) == ruta_layer)
   11.           └─purrr (local) .p(.x[[i]], ...)
   12.             └─cli::cli_abort(...)
   13.               └─rlang::abort(...)
  ── Error ('test-layers.R:14'): layers have correct classes ─────────────────────
  Error in `every(args, ~class(.) == ruta_layer)`: `.p()` must return a single `TRUE` or `FALSE`, not a logical vector.
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(dense(1), ruta_network) at test-layers.R:14:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─ruta::dense(1)
    5.   └─ruta:::make_atomic_network(ruta_layer_dense, units = units, activation = activation)
    6.     ├─ruta::as_network(new_layer(cl, ...))
    7.     └─ruta:::as_network.ruta_layer(new_layer(cl, ...))
    8.       └─ruta::new_network(x)
    9.         ├─base::stopifnot(every(args, ~class(.) == ruta_layer))
   10.         └─purrr::every(.p = ~class(.) == ruta_layer)
   11.           └─purrr (local) .p(.x[[i]], ...)
   12.             └─cli::cli_abort(...)
   13.               └─rlang::abort(...)
  ── Error ('test-layers.R:21'): networks can be built from integers ─────────────
  Error in `map(., dense)`: ℹ In index: 1.
  Caused by error in `every()`:
  ! `.p()` must return a single `TRUE` or `FALSE`, not a logical vector.
  
  [ FAIL 7 | WARN 0 | SKIP 0 | PASS 0 ]
  Error: Test failures
  Execution halted