Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [46s/72s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(clustree)
  Loading required package: ggraph
  Loading required package: ggplot2
  > 
  > test_check("clustree")
  [ FAIL 4 | WARN 12 | SKIP 0 | PASS 90 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-clustree-overlay.R:227:5'): Seurat aesthetics work ─────────────
  Error in `FetchData.Assay5(object = object[[DefaultAssay(object = object)]], 
      vars = default.vars, cells = cells, layer = layer, ...)`: layer "data" is not found in the object
  Backtrace:
      ▆
   1. ├─testthat::expect_is(...) at test-clustree-overlay.R:227:5
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─clustree::clustree_overlay(...)
   5. └─clustree:::clustree_overlay.Seurat(...)
   6.   ├─Seurat::FetchData(x, vars = node_aes_value, slot = exprs)
   7.   └─SeuratObject:::FetchData.Seurat(x, vars = node_aes_value, slot = exprs)
   8.     ├─SeuratObject::FetchData(...)
   9.     └─SeuratObject:::FetchData.Assay5(...)
  ── Error ('test-clustree-overlay.R:244:5'): Seurat feature containing '-' works ──
  Error in `FetchData.Assay5(object = object[[DefaultAssay(object = object)]], 
      vars = default.vars, cells = cells, layer = layer, ...)`: layer "data" is not found in the object
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-clustree-overlay.R:244:5
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─clustree::clustree_overlay(...)
    7. └─clustree:::clustree_overlay.Seurat(...)
    8.   ├─Seurat::FetchData(x, vars = node_aes_value, slot = exprs)
    9.   └─SeuratObject:::FetchData.Seurat(x, vars = node_aes_value, slot = exprs)
   10.     ├─SeuratObject::FetchData(...)
   11.     └─SeuratObject:::FetchData.Assay5(...)
  ── Error ('test-clustree.R:151:5'): Seurat aesthetics work ─────────────────────
  Error in `FetchData.Assay5(object = object[[DefaultAssay(object = object)]], 
      vars = default.vars, cells = cells, layer = layer, ...)`: layer "data" is not found in the object
  Backtrace:
      ▆
   1. ├─testthat::expect_is(...) at test-clustree.R:151:5
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─clustree::clustree(...)
   5. └─clustree:::clustree.Seurat(...)
   6.   ├─Seurat::FetchData(x, vars = node_aes_value, slot = exprs)
   7.   └─SeuratObject:::FetchData.Seurat(x, vars = node_aes_value, slot = exprs)
   8.     ├─SeuratObject::FetchData(...)
   9.     └─SeuratObject:::FetchData.Assay5(...)
  ── Error ('test-clustree.R:165:5'): Seurat feature containing '-' works ────────
  Error in `FetchData.Assay5(object = object[[DefaultAssay(object = object)]], 
      vars = default.vars, cells = cells, layer = layer, ...)`: layer "data" is not found in the object
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-clustree.R:165:5
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─clustree::clustree(...)
    7. └─clustree:::clustree.Seurat(...)
    8.   ├─Seurat::FetchData(x, vars = node_aes_value, slot = exprs)
    9.   └─SeuratObject:::FetchData.Seurat(x, vars = node_aes_value, slot = exprs)
   10.     ├─SeuratObject::FetchData(...)
   11.     └─SeuratObject:::FetchData.Assay5(...)
  
  [ FAIL 4 | WARN 12 | SKIP 0 | PASS 90 ]
  Error: Test failures
  Execution halted