Running ‘testthat.R’ [7s/24s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(bioassays)
  > 
  > test_check("bioassays")
  F1
  F2
  F3
  F4
  F1
  F2
  F3
  [ FAIL 4 | WARN 5 | SKIP 0 | PASS 48 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_heatmap.R:15:3'): eg1 heatplate is working ─────────────────────
  Error in `.subset2(x, name)`: wrong arguments for subsetting an environment
  Backtrace:
      ▆
   1. ├─testthat::expect_identical(eg1$guides[[1]], "coloursteps") at test_heatmap.R:15:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─eg1$guides[[1]]
   5. └─ggplot2:::`[[.ggproto`(eg1$guides, 1)
   6.   └─ggplot2:::fetch_ggproto(x, name)
  ── Error ('test_heatmap.R:24:3'): eg2 heatplate is working ─────────────────────
  Error in `.subset2(x, name)`: wrong arguments for subsetting an environment
  Backtrace:
      ▆
   1. ├─testthat::expect_identical(eg2$guides[[1]], "coloursteps") at test_heatmap.R:24:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─eg2$guides[[1]]
   5. └─ggplot2:::`[[.ggproto`(eg2$guides, 1)
   6.   └─ggplot2:::fetch_ggproto(x, name)
  ── Error ('test_heatmap.R:33:3'): eg3 heatplate is working ─────────────────────
  Error in `.subset2(x, name)`: wrong arguments for subsetting an environment
  Backtrace:
      ▆
   1. ├─testthat::expect_identical(eg3$guides[[1]], "coloursteps") at test_heatmap.R:33:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─eg3$guides[[1]]
   5. └─ggplot2:::`[[.ggproto`(eg3$guides, 1)
   6.   └─ggplot2:::fetch_ggproto(x, name)
  ── Error ('test_heatmap.R:43:3'): eg4 heatplate is working ─────────────────────
  Error in `.subset2(x, name)`: wrong arguments for subsetting an environment
  Backtrace:
      ▆
   1. ├─testthat::expect_identical(eg4$guides[[1]], NULL) at test_heatmap.R:43:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─eg4$guides[[1]]
   5. └─ggplot2:::`[[.ggproto`(eg4$guides, 1)
   6.   └─ggplot2:::fetch_ggproto(x, name)
  
  [ FAIL 4 | WARN 5 | SKIP 0 | PASS 48 ]
  Error: Test failures
  Execution halted