Last updated on 2026-04-29 03:11:38 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.1.0 | 6.79 | 85.54 | 92.33 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.1.0 | 4.43 | 64.59 | 69.02 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.1.0 | 11.00 | 136.46 | 147.46 | ERROR | |
| r-devel-linux-x86_64-fedora-gcc | 0.1.0 | 11.00 | 143.81 | 154.81 | ERROR | |
| r-devel-windows-x86_64 | 0.1.0 | 11.00 | 97.00 | 108.00 | ERROR | |
| r-patched-linux-x86_64 | 0.1.0 | 6.66 | 79.46 | 86.12 | ERROR | |
| r-release-linux-x86_64 | 0.1.0 | 6.52 | 80.00 | 86.52 | ERROR | |
| r-release-macos-arm64 | 0.1.0 | 2.00 | 22.00 | 24.00 | OK | |
| r-release-macos-x86_64 | 0.1.0 | 5.00 | 106.00 | 111.00 | OK | |
| r-release-windows-x86_64 | 0.1.0 | 10.00 | 117.00 | 127.00 | ERROR | |
| r-oldrel-macos-arm64 | 0.1.0 | 2.00 | 21.00 | 23.00 | OK | |
| r-oldrel-macos-x86_64 | 0.1.0 | 5.00 | 86.00 | 91.00 | OK | |
| r-oldrel-windows-x86_64 | 0.1.0 | 12.00 | 117.00 | 129.00 | ERROR |
Version: 0.1.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [6s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # 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(blockr.dag)
>
> test_check("blockr.dag")
Loading required package: shiny
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
[WARN][2026-04-27 23:10:39][blockr.dag] No inputs are available for block c.
Saving _problems/test-action-81.R
Saving _problems/test-action-82.R
Saving _problems/test-action-83.R
Saving _problems/test-action-84.R
Saving _problems/test-action-85.R
Saving _problems/test-action-86.R
Saving _problems/test-action-87.R
[WARN][2026-04-27 23:10:41][blockr.dag] No inputs are available for block b.
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• On CRAN (1): 'test-e2e.R:136:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd, expected_updates) at test-action.R:34:7
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have names "links".
Differences:
`actual` is NULL
`expected` is a character vector ('links')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd, "links") at test-action.R:37:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links, 1L) at test-action.R:38:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have names "add".
Differences:
`actual` is NULL
`expected` is a character vector ('add')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd$links, "add") at test-action.R:39:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links$add` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links$add, 1L) at test-action.R:40:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$from` to be identical to "a".
Differences:
`actual` is NULL
`expected` is a character vector ('a')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$from, "a") at test-action.R:43:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$to` to be identical to "b".
Differences:
`actual` is NULL
`expected` is a character vector ('b')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$to, "b") at test-action.R:44:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$input` to be identical to "data".
Differences:
`actual` is NULL
`expected` is a character vector ('data')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$input, "data") at test-action.R:45:9
── Failure ('test-action.R:81:7'): remove_selected_action works ────────────────
Expected `upd` to have length 3.
Actual length: 0.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_length(upd, 3L) at test-action.R:81:7
── Failure ('test-action.R:82:7'): remove_selected_action works ────────────────
Expected `upd` to have names `c("blocks", "links", "stacks")`.
Differences:
`actual` is NULL
`expected` is a character vector ('blocks', 'links', 'stacks')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd, c("blocks", "links", "stacks")) at test-action.R:82:7
── Failure ('test-action.R:83:7'): remove_selected_action works ────────────────
Expected `upd$blocks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$blocks, "rm") at test-action.R:83:7
── Failure ('test-action.R:84:7'): remove_selected_action works ────────────────
Expected `upd$blocks$rm` to be identical to `input[["graph-selected_node"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('a', 'b')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$blocks$rm, input[["graph-selected_node"]]) at test-action.R:84:7
── Failure ('test-action.R:85:7'): remove_selected_action works ────────────────
Expected `upd$links` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$links, "rm") at test-action.R:85:7
── Failure ('test-action.R:86:7'): remove_selected_action works ────────────────
Expected `upd$links$rm` to be identical to `input[["graph-selected_edge"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('c-d')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$links$rm, input[["graph-selected_edge"]]) at test-action.R:86:7
── Failure ('test-action.R:87:7'): remove_selected_action works ────────────────
Expected `upd$stacks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$stacks, "rm") at test-action.R:87:7
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
Deleting unused snapshots: 'e2e/empty-app-001.json', 'e2e/empty-app-001_.png',
'e2e/empty-app-002.json', 'e2e/empty-app-002_.png', 'e2e/empty-app-003.json',
'e2e/empty-app-003_.png', 'e2e/empty-app-004.json', 'e2e/empty-app-004_.png',
'e2e/empty-app-005.json', and 'e2e/empty-app-005_.png'
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.1.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [4s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # 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(blockr.dag)
>
> test_check("blockr.dag")
Loading required package: shiny
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
[WARN][2026-04-28 15:45:46][blockr.dag] No inputs are available for block c.
Saving _problems/test-action-81.R
Saving _problems/test-action-82.R
Saving _problems/test-action-83.R
Saving _problems/test-action-84.R
Saving _problems/test-action-85.R
Saving _problems/test-action-86.R
Saving _problems/test-action-87.R
[WARN][2026-04-28 15:45:47][blockr.dag] No inputs are available for block b.
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• On CRAN (1): 'test-e2e.R:136:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd, expected_updates) at test-action.R:34:7
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have names "links".
Differences:
`actual` is NULL
`expected` is a character vector ('links')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd, "links") at test-action.R:37:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links, 1L) at test-action.R:38:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have names "add".
Differences:
`actual` is NULL
`expected` is a character vector ('add')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd$links, "add") at test-action.R:39:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links$add` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links$add, 1L) at test-action.R:40:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$from` to be identical to "a".
Differences:
`actual` is NULL
`expected` is a character vector ('a')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$from, "a") at test-action.R:43:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$to` to be identical to "b".
Differences:
`actual` is NULL
`expected` is a character vector ('b')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$to, "b") at test-action.R:44:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$input` to be identical to "data".
Differences:
`actual` is NULL
`expected` is a character vector ('data')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$input, "data") at test-action.R:45:9
── Failure ('test-action.R:81:7'): remove_selected_action works ────────────────
Expected `upd` to have length 3.
Actual length: 0.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_length(upd, 3L) at test-action.R:81:7
── Failure ('test-action.R:82:7'): remove_selected_action works ────────────────
Expected `upd` to have names `c("blocks", "links", "stacks")`.
Differences:
`actual` is NULL
`expected` is a character vector ('blocks', 'links', 'stacks')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd, c("blocks", "links", "stacks")) at test-action.R:82:7
── Failure ('test-action.R:83:7'): remove_selected_action works ────────────────
Expected `upd$blocks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$blocks, "rm") at test-action.R:83:7
── Failure ('test-action.R:84:7'): remove_selected_action works ────────────────
Expected `upd$blocks$rm` to be identical to `input[["graph-selected_node"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('a', 'b')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$blocks$rm, input[["graph-selected_node"]]) at test-action.R:84:7
── Failure ('test-action.R:85:7'): remove_selected_action works ────────────────
Expected `upd$links` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$links, "rm") at test-action.R:85:7
── Failure ('test-action.R:86:7'): remove_selected_action works ────────────────
Expected `upd$links$rm` to be identical to `input[["graph-selected_edge"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('c-d')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$links$rm, input[["graph-selected_edge"]]) at test-action.R:86:7
── Failure ('test-action.R:87:7'): remove_selected_action works ────────────────
Expected `upd$stacks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$stacks, "rm") at test-action.R:87:7
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
Deleting unused snapshots: 'e2e/empty-app-001.json', 'e2e/empty-app-001_.png',
'e2e/empty-app-002.json', 'e2e/empty-app-002_.png', 'e2e/empty-app-003.json',
'e2e/empty-app-003_.png', 'e2e/empty-app-004.json', 'e2e/empty-app-004_.png',
'e2e/empty-app-005.json', and 'e2e/empty-app-005_.png'
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.1.0
Check: whether package can be installed
Result: WARN
Found the following significant warnings:
Note: possible error in 'block_metadata(id, "category")': unused argument ("category")
Note: possible error in 'block_metadata(id, "icon")': unused argument ("icon")
See ‘/data/gannet/ripley/R/packages/tests-clang/blockr.dag.Rcheck/00install.out’ for details.
Information on the location(s) of code generating the ‘Note’s can be
obtained by re-running with environment variable R_KEEP_PKG_SOURCE set
to ‘yes’.
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.1.0
Check: R code for possible problems
Result: NOTE
blk_category: possible error in block_metadata(id, "category"): unused
argument ("category")
blk_icon: possible error in block_metadata(id, "icon"): unused argument
("icon")
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.1.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [10s/13s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # 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(blockr.dag)
>
> test_check("blockr.dag")
Loading required package: shiny
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
[WARN][2026-04-28 16:12:10][blockr.dag] No inputs are available for block c.
Saving _problems/test-action-81.R
Saving _problems/test-action-82.R
Saving _problems/test-action-83.R
Saving _problems/test-action-84.R
Saving _problems/test-action-85.R
Saving _problems/test-action-86.R
Saving _problems/test-action-87.R
Saving _problems/test-ext-152.R
Saving _problems/test-meta-12.R
Saving _problems/test-meta-22.R
[ FAIL 18 | WARN 0 | SKIP 1 | PASS 129 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• On CRAN (1): 'test-e2e.R:136:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd, expected_updates) at test-action.R:34:7
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have names "links".
Differences:
`actual` is NULL
`expected` is a character vector ('links')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd, "links") at test-action.R:37:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links, 1L) at test-action.R:38:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have names "add".
Differences:
`actual` is NULL
`expected` is a character vector ('add')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd$links, "add") at test-action.R:39:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links$add` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links$add, 1L) at test-action.R:40:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$from` to be identical to "a".
Differences:
`actual` is NULL
`expected` is a character vector ('a')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$from, "a") at test-action.R:43:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$to` to be identical to "b".
Differences:
`actual` is NULL
`expected` is a character vector ('b')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$to, "b") at test-action.R:44:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$input` to be identical to "data".
Differences:
`actual` is NULL
`expected` is a character vector ('data')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$input, "data") at test-action.R:45:9
── Failure ('test-action.R:81:7'): remove_selected_action works ────────────────
Expected `upd` to have length 3.
Actual length: 0.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_length(upd, 3L) at test-action.R:81:7
── Failure ('test-action.R:82:7'): remove_selected_action works ────────────────
Expected `upd` to have names `c("blocks", "links", "stacks")`.
Differences:
`actual` is NULL
`expected` is a character vector ('blocks', 'links', 'stacks')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd, c("blocks", "links", "stacks")) at test-action.R:82:7
── Failure ('test-action.R:83:7'): remove_selected_action works ────────────────
Expected `upd$blocks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$blocks, "rm") at test-action.R:83:7
── Failure ('test-action.R:84:7'): remove_selected_action works ────────────────
Expected `upd$blocks$rm` to be identical to `input[["graph-selected_node"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('a', 'b')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$blocks$rm, input[["graph-selected_node"]]) at test-action.R:84:7
── Failure ('test-action.R:85:7'): remove_selected_action works ────────────────
Expected `upd$links` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$links, "rm") at test-action.R:85:7
── Failure ('test-action.R:86:7'): remove_selected_action works ────────────────
Expected `upd$links$rm` to be identical to `input[["graph-selected_edge"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('c-d')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$links$rm, input[["graph-selected_edge"]]) at test-action.R:86:7
── Failure ('test-action.R:87:7'): remove_selected_action works ────────────────
Expected `upd$stacks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$stacks, "rm") at test-action.R:87:7
── Error ('test-ext.R:69:1'): (code run outside of `test_that()`) ──────────────
Error in `block_metadata(id, "icon")`: unused argument ("icon")
Backtrace:
▆
1. ├─shiny::testServer(...) at test-ext.R:69:1
2. │ ├─shiny:::withMockContext(session, rlang::exec(app, !!!args))
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ ├─rlang::exec(app, !!!args)
28. │ └─blockr.dag (local) `<fn>`(...)
29. │ └─shiny::moduleServer(...)
30. │ ├─session$setReturned(callModule(module, id, session = session))
31. │ └─shiny::callModule(module, id, session = session)
32. │ ├─shiny::withReactiveDomain(...)
33. │ │ └─promises::with_promise_domain(...)
34. │ │ └─domain$wrapSync(expr)
35. │ │ └─base::force(expr)
36. │ └─blockr.dag (local) module(childScope$input, childScope$output, childScope, ...)
37. │ └─blockr.dag:::init_g6(...)
38. │ └─blockr.dag:::g6_from_board(board)
39. │ └─blockr.dag:::g6_data_from_board(board)
40. │ └─blockr.dag:::g6_nodes_from_blocks(blocks, stacks)
41. │ ├─blockr.core::map(...)
42. │ │ └─base::Map(fun, ..., USE.NAMES = use_names)
43. │ │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
44. │ ├─blockr.core::map(...)
45. │ │ └─base::Map(fun, ..., USE.NAMES = use_names)
46. │ │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
47. │ ├─blockr.core::map(...)
48. │ │ └─base::Map(fun, ..., USE.NAMES = use_names)
49. │ │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
50. │ └─base::lapply(blocks, blk_icon)
51. │ └─blockr.dag (local) FUN(X[[i]], ...)
52. └─base::.handleSimpleError(...)
53. └─shiny (local) h(simpleError(msg, call))
── Error ('test-meta.R:12:3'): blk_category works ──────────────────────────────
Error in `block_metadata(id, "category")`: unused argument ("category")
Backtrace:
▆
1. └─blockr.dag:::blk_category(blk) at test-meta.R:12:3
── Error ('test-meta.R:22:3'): blk_icon works ──────────────────────────────────
Error in `block_metadata(id, "icon")`: unused argument ("icon")
Backtrace:
▆
1. └─blockr.dag:::blk_icon(blk) at test-meta.R:22:3
[ FAIL 18 | WARN 0 | SKIP 1 | PASS 129 ]
Deleting unused snapshots: 'e2e/empty-app-001.json', 'e2e/empty-app-001_.png',
'e2e/empty-app-002.json', 'e2e/empty-app-002_.png', 'e2e/empty-app-003.json',
'e2e/empty-app-003_.png', 'e2e/empty-app-004.json', 'e2e/empty-app-004_.png',
'e2e/empty-app-005.json', and 'e2e/empty-app-005_.png'
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.1.0
Check: whether package can be installed
Result: WARN
Found the following significant warnings:
Note: possible error in 'block_metadata(id, "category")': unused argument ("category")
Note: possible error in 'block_metadata(id, "icon")': unused argument ("icon")
See ‘/data/gannet/ripley/R/packages/tests-devel/blockr.dag.Rcheck/00install.out’ for details.
Information on the location(s) of code generating the ‘Note’s can be
obtained by re-running with environment variable R_KEEP_PKG_SOURCE set
to ‘yes’.
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.1.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [9s/15s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # 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(blockr.dag)
>
> test_check("blockr.dag")
Loading required package: shiny
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
[WARN][2026-04-28 17:27:18][blockr.dag] No inputs are available for block c.
Saving _problems/test-action-81.R
Saving _problems/test-action-82.R
Saving _problems/test-action-83.R
Saving _problems/test-action-84.R
Saving _problems/test-action-85.R
Saving _problems/test-action-86.R
Saving _problems/test-action-87.R
Saving _problems/test-ext-152.R
Saving _problems/test-meta-12.R
Saving _problems/test-meta-22.R
[ FAIL 18 | WARN 0 | SKIP 1 | PASS 129 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• On CRAN (1): 'test-e2e.R:136:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd, expected_updates) at test-action.R:34:7
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have names "links".
Differences:
`actual` is NULL
`expected` is a character vector ('links')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd, "links") at test-action.R:37:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links, 1L) at test-action.R:38:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have names "add".
Differences:
`actual` is NULL
`expected` is a character vector ('add')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd$links, "add") at test-action.R:39:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links$add` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links$add, 1L) at test-action.R:40:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$from` to be identical to "a".
Differences:
`actual` is NULL
`expected` is a character vector ('a')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$from, "a") at test-action.R:43:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$to` to be identical to "b".
Differences:
`actual` is NULL
`expected` is a character vector ('b')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$to, "b") at test-action.R:44:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$input` to be identical to "data".
Differences:
`actual` is NULL
`expected` is a character vector ('data')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$input, "data") at test-action.R:45:9
── Failure ('test-action.R:81:7'): remove_selected_action works ────────────────
Expected `upd` to have length 3.
Actual length: 0.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_length(upd, 3L) at test-action.R:81:7
── Failure ('test-action.R:82:7'): remove_selected_action works ────────────────
Expected `upd` to have names `c("blocks", "links", "stacks")`.
Differences:
`actual` is NULL
`expected` is a character vector ('blocks', 'links', 'stacks')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd, c("blocks", "links", "stacks")) at test-action.R:82:7
── Failure ('test-action.R:83:7'): remove_selected_action works ────────────────
Expected `upd$blocks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$blocks, "rm") at test-action.R:83:7
── Failure ('test-action.R:84:7'): remove_selected_action works ────────────────
Expected `upd$blocks$rm` to be identical to `input[["graph-selected_node"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('a', 'b')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$blocks$rm, input[["graph-selected_node"]]) at test-action.R:84:7
── Failure ('test-action.R:85:7'): remove_selected_action works ────────────────
Expected `upd$links` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$links, "rm") at test-action.R:85:7
── Failure ('test-action.R:86:7'): remove_selected_action works ────────────────
Expected `upd$links$rm` to be identical to `input[["graph-selected_edge"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('c-d')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$links$rm, input[["graph-selected_edge"]]) at test-action.R:86:7
── Failure ('test-action.R:87:7'): remove_selected_action works ────────────────
Expected `upd$stacks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$stacks, "rm") at test-action.R:87:7
── Error ('test-ext.R:69:1'): (code run outside of `test_that()`) ──────────────
Error in `block_metadata(id, "icon")`: unused argument ("icon")
Backtrace:
▆
1. ├─shiny::testServer(...) at test-ext.R:69:1
2. │ ├─shiny:::withMockContext(session, rlang::exec(app, !!!args))
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ ├─rlang::exec(app, !!!args)
28. │ └─blockr.dag (local) `<fn>`(...)
29. │ └─shiny::moduleServer(...)
30. │ ├─session$setReturned(callModule(module, id, session = session))
31. │ └─shiny::callModule(module, id, session = session)
32. │ ├─shiny::withReactiveDomain(...)
33. │ │ └─promises::with_promise_domain(...)
34. │ │ └─domain$wrapSync(expr)
35. │ │ └─base::force(expr)
36. │ └─blockr.dag (local) module(childScope$input, childScope$output, childScope, ...)
37. │ └─blockr.dag:::init_g6(...)
38. │ └─blockr.dag:::g6_from_board(board)
39. │ └─blockr.dag:::g6_data_from_board(board)
40. │ └─blockr.dag:::g6_nodes_from_blocks(blocks, stacks)
41. │ ├─blockr.core::map(...)
42. │ │ └─base::Map(fun, ..., USE.NAMES = use_names)
43. │ │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
44. │ ├─blockr.core::map(...)
45. │ │ └─base::Map(fun, ..., USE.NAMES = use_names)
46. │ │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
47. │ ├─blockr.core::map(...)
48. │ │ └─base::Map(fun, ..., USE.NAMES = use_names)
49. │ │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
50. │ └─base::lapply(blocks, blk_icon)
51. │ └─blockr.dag (local) FUN(X[[i]], ...)
52. └─base::.handleSimpleError(...)
53. └─shiny (local) h(simpleError(msg, call))
── Error ('test-meta.R:12:3'): blk_category works ──────────────────────────────
Error in `block_metadata(id, "category")`: unused argument ("category")
Backtrace:
▆
1. └─blockr.dag:::blk_category(blk) at test-meta.R:12:3
── Error ('test-meta.R:22:3'): blk_icon works ──────────────────────────────────
Error in `block_metadata(id, "icon")`: unused argument ("icon")
Backtrace:
▆
1. └─blockr.dag:::blk_icon(blk) at test-meta.R:22:3
[ FAIL 18 | WARN 0 | SKIP 1 | PASS 129 ]
Deleting unused snapshots: 'e2e/empty-app-001.json', 'e2e/empty-app-001_.png',
'e2e/empty-app-002.json', 'e2e/empty-app-002_.png', 'e2e/empty-app-003.json',
'e2e/empty-app-003_.png', 'e2e/empty-app-004.json', 'e2e/empty-app-004_.png',
'e2e/empty-app-005.json', and 'e2e/empty-app-005_.png'
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.1.0
Check: tests
Result: ERROR
Running 'testthat.R' [6s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> # 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(blockr.dag)
>
> test_check("blockr.dag")
Loading required package: shiny
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
[WARN][2026-04-26 14:21:18][blockr.dag] No inputs are available for block c.
Saving _problems/test-action-81.R
Saving _problems/test-action-82.R
Saving _problems/test-action-83.R
Saving _problems/test-action-84.R
Saving _problems/test-action-85.R
Saving _problems/test-action-86.R
Saving _problems/test-action-87.R
[WARN][2026-04-26 14:21:19][blockr.dag] No inputs are available for block b.
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• On CRAN (1): 'test-e2e.R:136:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd, expected_updates) at test-action.R:34:7
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have names "links".
Differences:
`actual` is NULL
`expected` is a character vector ('links')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd, "links") at test-action.R:37:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links, 1L) at test-action.R:38:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have names "add".
Differences:
`actual` is NULL
`expected` is a character vector ('add')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd$links, "add") at test-action.R:39:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links$add` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links$add, 1L) at test-action.R:40:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$from` to be identical to "a".
Differences:
`actual` is NULL
`expected` is a character vector ('a')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$from, "a") at test-action.R:43:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$to` to be identical to "b".
Differences:
`actual` is NULL
`expected` is a character vector ('b')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$to, "b") at test-action.R:44:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$input` to be identical to "data".
Differences:
`actual` is NULL
`expected` is a character vector ('data')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$input, "data") at test-action.R:45:9
── Failure ('test-action.R:81:7'): remove_selected_action works ────────────────
Expected `upd` to have length 3.
Actual length: 0.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_length(upd, 3L) at test-action.R:81:7
── Failure ('test-action.R:82:7'): remove_selected_action works ────────────────
Expected `upd` to have names `c("blocks", "links", "stacks")`.
Differences:
`actual` is NULL
`expected` is a character vector ('blocks', 'links', 'stacks')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd, c("blocks", "links", "stacks")) at test-action.R:82:7
── Failure ('test-action.R:83:7'): remove_selected_action works ────────────────
Expected `upd$blocks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$blocks, "rm") at test-action.R:83:7
── Failure ('test-action.R:84:7'): remove_selected_action works ────────────────
Expected `upd$blocks$rm` to be identical to `input[["graph-selected_node"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('a', 'b')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$blocks$rm, input[["graph-selected_node"]]) at test-action.R:84:7
── Failure ('test-action.R:85:7'): remove_selected_action works ────────────────
Expected `upd$links` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$links, "rm") at test-action.R:85:7
── Failure ('test-action.R:86:7'): remove_selected_action works ────────────────
Expected `upd$links$rm` to be identical to `input[["graph-selected_edge"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('c-d')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$links$rm, input[["graph-selected_edge"]]) at test-action.R:86:7
── Failure ('test-action.R:87:7'): remove_selected_action works ────────────────
Expected `upd$stacks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$stacks, "rm") at test-action.R:87:7
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
Deleting unused snapshots: 'e2e/empty-app-001.json', 'e2e/empty-app-001_.png',
'e2e/empty-app-002.json', 'e2e/empty-app-002_.png', 'e2e/empty-app-003.json',
'e2e/empty-app-003_.png', 'e2e/empty-app-004.json', 'e2e/empty-app-004_.png',
'e2e/empty-app-005.json', and 'e2e/empty-app-005_.png'
Error:
! Test failures.
Execution halted
Flavor: r-devel-windows-x86_64
Version: 0.1.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [6s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # 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(blockr.dag)
>
> test_check("blockr.dag")
Loading required package: shiny
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
[WARN][2026-04-22 10:51:48][blockr.dag] No inputs are available for block c.
Saving _problems/test-action-81.R
Saving _problems/test-action-82.R
Saving _problems/test-action-83.R
Saving _problems/test-action-84.R
Saving _problems/test-action-85.R
Saving _problems/test-action-86.R
Saving _problems/test-action-87.R
[WARN][2026-04-22 10:51:50][blockr.dag] No inputs are available for block b.
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• On CRAN (1): 'test-e2e.R:136:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd, expected_updates) at test-action.R:34:7
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have names "links".
Differences:
`actual` is NULL
`expected` is a character vector ('links')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd, "links") at test-action.R:37:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links, 1L) at test-action.R:38:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have names "add".
Differences:
`actual` is NULL
`expected` is a character vector ('add')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd$links, "add") at test-action.R:39:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links$add` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links$add, 1L) at test-action.R:40:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$from` to be identical to "a".
Differences:
`actual` is NULL
`expected` is a character vector ('a')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$from, "a") at test-action.R:43:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$to` to be identical to "b".
Differences:
`actual` is NULL
`expected` is a character vector ('b')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$to, "b") at test-action.R:44:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$input` to be identical to "data".
Differences:
`actual` is NULL
`expected` is a character vector ('data')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$input, "data") at test-action.R:45:9
── Failure ('test-action.R:81:7'): remove_selected_action works ────────────────
Expected `upd` to have length 3.
Actual length: 0.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_length(upd, 3L) at test-action.R:81:7
── Failure ('test-action.R:82:7'): remove_selected_action works ────────────────
Expected `upd` to have names `c("blocks", "links", "stacks")`.
Differences:
`actual` is NULL
`expected` is a character vector ('blocks', 'links', 'stacks')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd, c("blocks", "links", "stacks")) at test-action.R:82:7
── Failure ('test-action.R:83:7'): remove_selected_action works ────────────────
Expected `upd$blocks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$blocks, "rm") at test-action.R:83:7
── Failure ('test-action.R:84:7'): remove_selected_action works ────────────────
Expected `upd$blocks$rm` to be identical to `input[["graph-selected_node"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('a', 'b')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$blocks$rm, input[["graph-selected_node"]]) at test-action.R:84:7
── Failure ('test-action.R:85:7'): remove_selected_action works ────────────────
Expected `upd$links` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$links, "rm") at test-action.R:85:7
── Failure ('test-action.R:86:7'): remove_selected_action works ────────────────
Expected `upd$links$rm` to be identical to `input[["graph-selected_edge"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('c-d')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$links$rm, input[["graph-selected_edge"]]) at test-action.R:86:7
── Failure ('test-action.R:87:7'): remove_selected_action works ────────────────
Expected `upd$stacks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$stacks, "rm") at test-action.R:87:7
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
Deleting unused snapshots: 'e2e/empty-app-001.json', 'e2e/empty-app-001_.png',
'e2e/empty-app-002.json', 'e2e/empty-app-002_.png', 'e2e/empty-app-003.json',
'e2e/empty-app-003_.png', 'e2e/empty-app-004.json', 'e2e/empty-app-004_.png',
'e2e/empty-app-005.json', and 'e2e/empty-app-005_.png'
Error:
! Test failures.
Execution halted
Flavor: r-patched-linux-x86_64
Version: 0.1.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [6s/7s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # 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(blockr.dag)
>
> test_check("blockr.dag")
Loading required package: shiny
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
[WARN][2026-04-25 11:03:03][blockr.dag] No inputs are available for block c.
Saving _problems/test-action-81.R
Saving _problems/test-action-82.R
Saving _problems/test-action-83.R
Saving _problems/test-action-84.R
Saving _problems/test-action-85.R
Saving _problems/test-action-86.R
Saving _problems/test-action-87.R
[WARN][2026-04-25 11:03:04][blockr.dag] No inputs are available for block b.
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• On CRAN (1): 'test-e2e.R:136:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd, expected_updates) at test-action.R:34:7
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have names "links".
Differences:
`actual` is NULL
`expected` is a character vector ('links')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd, "links") at test-action.R:37:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links, 1L) at test-action.R:38:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have names "add".
Differences:
`actual` is NULL
`expected` is a character vector ('add')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd$links, "add") at test-action.R:39:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links$add` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links$add, 1L) at test-action.R:40:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$from` to be identical to "a".
Differences:
`actual` is NULL
`expected` is a character vector ('a')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$from, "a") at test-action.R:43:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$to` to be identical to "b".
Differences:
`actual` is NULL
`expected` is a character vector ('b')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$to, "b") at test-action.R:44:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$input` to be identical to "data".
Differences:
`actual` is NULL
`expected` is a character vector ('data')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$input, "data") at test-action.R:45:9
── Failure ('test-action.R:81:7'): remove_selected_action works ────────────────
Expected `upd` to have length 3.
Actual length: 0.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_length(upd, 3L) at test-action.R:81:7
── Failure ('test-action.R:82:7'): remove_selected_action works ────────────────
Expected `upd` to have names `c("blocks", "links", "stacks")`.
Differences:
`actual` is NULL
`expected` is a character vector ('blocks', 'links', 'stacks')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd, c("blocks", "links", "stacks")) at test-action.R:82:7
── Failure ('test-action.R:83:7'): remove_selected_action works ────────────────
Expected `upd$blocks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$blocks, "rm") at test-action.R:83:7
── Failure ('test-action.R:84:7'): remove_selected_action works ────────────────
Expected `upd$blocks$rm` to be identical to `input[["graph-selected_node"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('a', 'b')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$blocks$rm, input[["graph-selected_node"]]) at test-action.R:84:7
── Failure ('test-action.R:85:7'): remove_selected_action works ────────────────
Expected `upd$links` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$links, "rm") at test-action.R:85:7
── Failure ('test-action.R:86:7'): remove_selected_action works ────────────────
Expected `upd$links$rm` to be identical to `input[["graph-selected_edge"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('c-d')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$links$rm, input[["graph-selected_edge"]]) at test-action.R:86:7
── Failure ('test-action.R:87:7'): remove_selected_action works ────────────────
Expected `upd$stacks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$stacks, "rm") at test-action.R:87:7
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
Deleting unused snapshots: 'e2e/empty-app-001.json', 'e2e/empty-app-001_.png',
'e2e/empty-app-002.json', 'e2e/empty-app-002_.png', 'e2e/empty-app-003.json',
'e2e/empty-app-003_.png', 'e2e/empty-app-004.json', 'e2e/empty-app-004_.png',
'e2e/empty-app-005.json', and 'e2e/empty-app-005_.png'
Error:
! Test failures.
Execution halted
Flavor: r-release-linux-x86_64
Version: 0.1.0
Check: tests
Result: ERROR
Running 'testthat.R' [7s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> # 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(blockr.dag)
>
> test_check("blockr.dag")
Loading required package: shiny
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
[WARN][2026-04-26 07:12:58][blockr.dag] No inputs are available for block c.
Saving _problems/test-action-81.R
Saving _problems/test-action-82.R
Saving _problems/test-action-83.R
Saving _problems/test-action-84.R
Saving _problems/test-action-85.R
Saving _problems/test-action-86.R
Saving _problems/test-action-87.R
[WARN][2026-04-26 07:13:00][blockr.dag] No inputs are available for block b.
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• On CRAN (1): 'test-e2e.R:136:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd, expected_updates) at test-action.R:34:7
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have names "links".
Differences:
`actual` is NULL
`expected` is a character vector ('links')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd, "links") at test-action.R:37:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links, 1L) at test-action.R:38:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have names "add".
Differences:
`actual` is NULL
`expected` is a character vector ('add')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd$links, "add") at test-action.R:39:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links$add` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links$add, 1L) at test-action.R:40:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$from` to be identical to "a".
Differences:
`actual` is NULL
`expected` is a character vector ('a')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$from, "a") at test-action.R:43:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$to` to be identical to "b".
Differences:
`actual` is NULL
`expected` is a character vector ('b')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$to, "b") at test-action.R:44:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$input` to be identical to "data".
Differences:
`actual` is NULL
`expected` is a character vector ('data')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$input, "data") at test-action.R:45:9
── Failure ('test-action.R:81:7'): remove_selected_action works ────────────────
Expected `upd` to have length 3.
Actual length: 0.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_length(upd, 3L) at test-action.R:81:7
── Failure ('test-action.R:82:7'): remove_selected_action works ────────────────
Expected `upd` to have names `c("blocks", "links", "stacks")`.
Differences:
`actual` is NULL
`expected` is a character vector ('blocks', 'links', 'stacks')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd, c("blocks", "links", "stacks")) at test-action.R:82:7
── Failure ('test-action.R:83:7'): remove_selected_action works ────────────────
Expected `upd$blocks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$blocks, "rm") at test-action.R:83:7
── Failure ('test-action.R:84:7'): remove_selected_action works ────────────────
Expected `upd$blocks$rm` to be identical to `input[["graph-selected_node"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('a', 'b')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$blocks$rm, input[["graph-selected_node"]]) at test-action.R:84:7
── Failure ('test-action.R:85:7'): remove_selected_action works ────────────────
Expected `upd$links` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$links, "rm") at test-action.R:85:7
── Failure ('test-action.R:86:7'): remove_selected_action works ────────────────
Expected `upd$links$rm` to be identical to `input[["graph-selected_edge"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('c-d')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$links$rm, input[["graph-selected_edge"]]) at test-action.R:86:7
── Failure ('test-action.R:87:7'): remove_selected_action works ────────────────
Expected `upd$stacks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$stacks, "rm") at test-action.R:87:7
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
Deleting unused snapshots: 'e2e/empty-app-001.json', 'e2e/empty-app-001_.png',
'e2e/empty-app-002.json', 'e2e/empty-app-002_.png', 'e2e/empty-app-003.json',
'e2e/empty-app-003_.png', 'e2e/empty-app-004.json', 'e2e/empty-app-004_.png',
'e2e/empty-app-005.json', and 'e2e/empty-app-005_.png'
Error:
! Test failures.
Execution halted
Flavor: r-release-windows-x86_64
Version: 0.1.0
Check: tests
Result: ERROR
Running 'testthat.R' [8s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> # 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(blockr.dag)
>
> test_check("blockr.dag")
Loading required package: shiny
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
Saving _problems/test-action-52.R
[WARN][2026-04-26 01:27:30][blockr.dag] No inputs are available for block c.
Saving _problems/test-action-81.R
Saving _problems/test-action-82.R
Saving _problems/test-action-83.R
Saving _problems/test-action-84.R
Saving _problems/test-action-85.R
Saving _problems/test-action-86.R
Saving _problems/test-action-87.R
[WARN][2026-04-26 01:27:31][blockr.dag] No inputs are available for block b.
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• On CRAN (1): 'test-e2e.R:136:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd, expected_updates) at test-action.R:34:7
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd` to have names "links".
Differences:
`actual` is NULL
`expected` is a character vector ('links')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd, "links") at test-action.R:37:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links, 1L) at test-action.R:38:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links` to have names "add".
Differences:
`actual` is NULL
`expected` is a character vector ('add')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_named(upd$links, "add") at test-action.R:39:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `upd$links$add` to have length 1.
Actual length: 0.
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_length(upd$links$add, 1L) at test-action.R:40:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$from` to be identical to "a".
Differences:
`actual` is NULL
`expected` is a character vector ('a')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$from, "a") at test-action.R:43:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$to` to be identical to "b".
Differences:
`actual` is NULL
`expected` is a character vector ('b')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$to, "b") at test-action.R:44:9
── Failure ('test-action.R:52:3'): draw link action with valid target ──────────
Expected `new_link$input` to be identical to "data".
Differences:
`actual` is NULL
`expected` is a character vector ('data')
Backtrace:
▆
1. ├─blockr.dag (local) test_draw_link_action(g6_edge("a", "b"), 1L) at test-action.R:52:3
2. │ └─shiny::testServer(...) at test-action.R:18:3
3. │ ├─shiny:::withMockContext(...)
4. │ │ ├─shiny::isolate(...)
5. │ │ │ ├─shiny::..stacktraceoff..(...)
6. │ │ │ └─ctx$run(...)
7. │ │ │ ├─promises::with_promise_domain(...)
8. │ │ │ │ └─domain$wrapSync(expr)
9. │ │ │ ├─shiny::withReactiveDomain(...)
10. │ │ │ │ └─promises::with_promise_domain(...)
11. │ │ │ │ └─domain$wrapSync(expr)
12. │ │ │ │ └─base::force(expr)
13. │ │ │ ├─shiny:::with_otel_span_context(...)
14. │ │ │ │ └─base::force(expr)
15. │ │ │ ├─shiny::captureStackTraces(...)
16. │ │ │ │ └─promises::with_promise_domain(...)
17. │ │ │ │ └─domain$wrapSync(expr)
18. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
19. │ │ │ └─env$runWith(self, func)
20. │ │ │ └─shiny (local) contextFunc()
21. │ │ │ └─shiny::..stacktraceon..(expr)
22. │ │ ├─shiny::withReactiveDomain(...)
23. │ │ │ └─promises::with_promise_domain(...)
24. │ │ │ └─domain$wrapSync(expr)
25. │ │ │ └─base::force(expr)
26. │ │ └─withr::with_options(...)
27. │ │ └─base::force(code)
28. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
29. └─testthat::expect_identical(new_link$input, "data") at test-action.R:45:9
── Failure ('test-action.R:81:7'): remove_selected_action works ────────────────
Expected `upd` to have length 3.
Actual length: 0.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_length(upd, 3L) at test-action.R:81:7
── Failure ('test-action.R:82:7'): remove_selected_action works ────────────────
Expected `upd` to have names `c("blocks", "links", "stacks")`.
Differences:
`actual` is NULL
`expected` is a character vector ('blocks', 'links', 'stacks')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd, c("blocks", "links", "stacks")) at test-action.R:82:7
── Failure ('test-action.R:83:7'): remove_selected_action works ────────────────
Expected `upd$blocks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$blocks, "rm") at test-action.R:83:7
── Failure ('test-action.R:84:7'): remove_selected_action works ────────────────
Expected `upd$blocks$rm` to be identical to `input[["graph-selected_node"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('a', 'b')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$blocks$rm, input[["graph-selected_node"]]) at test-action.R:84:7
── Failure ('test-action.R:85:7'): remove_selected_action works ────────────────
Expected `upd$links` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$links, "rm") at test-action.R:85:7
── Failure ('test-action.R:86:7'): remove_selected_action works ────────────────
Expected `upd$links$rm` to be identical to `input[["graph-selected_edge"]]`.
Differences:
`actual` is NULL
`expected` is a character vector ('c-d')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_identical(upd$links$rm, input[["graph-selected_edge"]]) at test-action.R:86:7
── Failure ('test-action.R:87:7'): remove_selected_action works ────────────────
Expected `upd$stacks` to have names "rm".
Differences:
`actual` is NULL
`expected` is a character vector ('rm')
Backtrace:
▆
1. ├─shiny::testServer(...) at test-action.R:63:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny:::with_otel_span_context(...)
13. │ │ │ │ └─base::force(expr)
14. │ │ │ ├─shiny::captureStackTraces(...)
15. │ │ │ │ └─promises::with_promise_domain(...)
16. │ │ │ │ └─domain$wrapSync(expr)
17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
18. │ │ │ └─env$runWith(self, func)
19. │ │ │ └─shiny (local) contextFunc()
20. │ │ │ └─shiny::..stacktraceon..(expr)
21. │ │ ├─shiny::withReactiveDomain(...)
22. │ │ │ └─promises::with_promise_domain(...)
23. │ │ │ └─domain$wrapSync(expr)
24. │ │ │ └─base::force(expr)
25. │ │ └─withr::with_options(...)
26. │ │ └─base::force(code)
27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
28. └─testthat::expect_named(upd$stacks, "rm") at test-action.R:87:7
[ FAIL 15 | WARN 0 | SKIP 1 | PASS 136 ]
Deleting unused snapshots: 'e2e/empty-app-001.json', 'e2e/empty-app-001_.png',
'e2e/empty-app-002.json', 'e2e/empty-app-002_.png', 'e2e/empty-app-003.json',
'e2e/empty-app-003_.png', 'e2e/empty-app-004.json', 'e2e/empty-app-004_.png',
'e2e/empty-app-005.json', and 'e2e/empty-app-005_.png'
Error:
! Test failures.
Execution halted
Flavor: r-oldrel-windows-x86_64