Last updated on 2025-02-02 07:50:28 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.15.2 | 9.90 | 94.83 | 104.73 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.15.2 | 6.26 | 68.70 | 74.96 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.15.2 | 174.34 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 0.15.2 | 184.46 | ERROR | |||
| r-devel-windows-x86_64 | 0.15.2 | 10.00 | 132.00 | 142.00 | NOTE | |
| r-patched-linux-x86_64 | 0.15.2 | 16.97 | 90.06 | 107.03 | ERROR | |
| r-release-linux-x86_64 | 0.15.2 | 8.82 | 90.22 | 99.04 | ERROR | |
| r-release-macos-arm64 | 0.15.2 | 61.00 | OK | |||
| r-release-macos-x86_64 | 0.15.2 | 91.00 | OK | |||
| r-release-windows-x86_64 | 0.15.2 | 11.00 | 116.00 | 127.00 | ERROR | |
| r-oldrel-macos-arm64 | 0.15.2 | 69.00 | OK | |||
| r-oldrel-macos-x86_64 | 0.15.2 | 158.00 | OK | |||
| r-oldrel-windows-x86_64 | 0.15.2 | 13.00 | 139.00 | 152.00 | ERROR |
Version: 0.15.2
Check: Rd cross-references
Result: NOTE
Found the following Rd file(s) with Rd \link{} targets missing package
anchors:
TealReportCard.Rd: ReportCard
init.Rd: teal_data
module_teal_with_splash.Rd: teal_data
Please provide package anchors for all Rd \link{} targets not in the
package itself and the base packages.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-windows-x86_64
Version: 0.15.2
Check: examples
Result: ERROR
Running examples in ‘teal-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: example_module
> ### Title: An example 'teal' module
> ### Aliases: example_module
>
> ### ** Examples
>
> app <- init(
+ data = teal_data(IRIS = iris, MTCARS = mtcars),
+ modules = example_module()
+ )
Error in as.list(data@env) :
no slot of name "env" for this object of class "teal_data"
Calls: init -> create_app_id -> as.list
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.15.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [23s/28s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "teal"
> library(pkg_name, character.only = TRUE)
Loading required package: shiny
Loading required package: teal.data
Loading required package: teal.code
Loading required package: teal.slice
Registered S3 method overwritten by 'teal':
method from
c.teal_slices teal.slice
You are using teal version 0.15.2
Attaching package: 'teal'
The following objects are masked from 'package:teal.slice':
as.teal_slices, teal_slices
> testthat::test_check(pkg_name)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-init.R:3:3'): init data accepts teal_data object ─────────────
Expected `init(data = teal.data::teal_data(iris = iris), modules = modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:24:3'): init modules accepts a teal_modules object ────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:29:3'): init modules accepts a list of teal_module elements ──
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:34:3'): init modules accepts a teal_module object ─────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:42:3'): init filter accepts `teal_slices` ─────────────
Expected `init(...)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:53:3'): init throws when an empty `data` is used ──────
`init(data = teal.data::teal_data(), modules = list(example_module()))` threw an error with unexpected message.
Expected match: "The environment of `data` is empty."
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:53:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(), modules = list(example_module()))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Failure ('test-init.R:61:3'): init throws when datanames in modules incompatible w/ datanames in data ──
`init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))` threw an error with unexpected message.
Expected match: "Module 'example teal module' uses datanames not available in 'data'"
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:61:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-init.R:71:3'): init throws when dataname in filter incompatible w/ datanames in data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-init.R:71:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(...)
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-module_nested_tabs.R:4:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_nested_tabs.R:4:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_tabs_with_filters.R:5:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_tabs_with_filters.R:5:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_teal.R:30:7'): srv_teal when teal_data_rv changes, datasets_reactive is initialized as list of FilteredData ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:18: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─checkmate::expect_list(datasets_reactive(), types = "FilteredData") at test-module_teal.R:30:7
27. │ └─checkmate::checkList(...)
28. │ └─... %and% checkListTypes(x, types)
29. │ └─base::isTRUE(lhs)
30. ├─shiny (local) datasets_reactive()
31. │ ├─shiny::..stacktraceoff..(self$.updateValue())
32. │ └─self$.updateValue()
33. │ └─ctx$run(...)
34. │ ├─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ ├─shiny::withReactiveDomain(...)
37. │ │ └─promises::with_promise_domain(...)
38. │ │ └─domain$wrapSync(expr)
39. │ │ └─base::force(expr)
40. │ ├─shiny::captureStackTraces(...)
41. │ │ └─promises::with_promise_domain(...)
42. │ │ └─domain$wrapSync(expr)
43. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
44. │ └─env$runWith(self, func)
45. │ └─shiny (local) contextFunc()
46. │ ├─base::withCallingHandlers(...)
47. │ ├─base::withVisible(.func())
48. │ └─shiny (local) .func()
49. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
50. │ └─shiny:::hybrid_chain(...)
51. │ └─shiny (local) do()
52. │ └─base::tryCatch(...)
53. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
54. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
55. │ └─value[[3L]](cond)
56. │ └─base::stop(e)
57. ├─shiny (local) `<fn>`(`<smplErrr>`)
58. │ └─base::stop(e)
59. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:49:7'): srv_teal initialized datasets_reactive (list) reflects modules structure ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:37: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─testthat::expect_named(datasets_reactive(), c("iris_tab", "tab")) at test-module_teal.R:49:7
27. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
28. │ └─rlang::eval_bare(expr, quo_get_env(quo))
29. ├─shiny (local) datasets_reactive()
30. │ ├─shiny::..stacktraceoff..(self$.updateValue())
31. │ └─self$.updateValue()
32. │ └─ctx$run(...)
33. │ ├─promises::with_promise_domain(...)
34. │ │ └─domain$wrapSync(expr)
35. │ ├─shiny::withReactiveDomain(...)
36. │ │ └─promises::with_promise_domain(...)
37. │ │ └─domain$wrapSync(expr)
38. │ │ └─base::force(expr)
39. │ ├─shiny::captureStackTraces(...)
40. │ │ └─promises::with_promise_domain(...)
41. │ │ └─domain$wrapSync(expr)
42. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
43. │ └─env$runWith(self, func)
44. │ └─shiny (local) contextFunc()
45. │ ├─base::withCallingHandlers(...)
46. │ ├─base::withVisible(.func())
47. │ └─shiny (local) .func()
48. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
49. │ └─shiny:::hybrid_chain(...)
50. │ └─shiny (local) do()
51. │ └─base::tryCatch(...)
52. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
53. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
54. │ └─value[[3L]](cond)
55. │ └─base::stop(e)
56. ├─shiny (local) `<fn>`(`<smplErrr>`)
57. │ └─base::stop(e)
58. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:70:7'): srv_teal initialized data containing same FilteredData when the filter is global ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:57: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:70:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:92:7'): srv_teal initialized data containing different FilteredData when the filter is module_specific ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:79: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:92:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-utils.R:45:3'): teal_data_to_filtered_data return FilteredData class ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─testthat::expect_s3_class(...) at test-utils.R:45:3
2. │ └─testthat::quasi_label(enquo(object), arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─teal:::teal_data_to_filtered_data(teal_data)
5. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
6. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:64:3'): teal_data_datanames returns datanames which are set by teal.data::datanames ──
teal_data_datanames(teal_data) not equal to "iris".
Lengths differ: 2 is not 1
── Error ('test-utils.R:103:3'): modules_datasets returns correct structure ────
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─base::rapply(...) at test-utils.R:103:3
2. └─teal:::modules_datasets(data, modules, filters)
3. ├─checkmate::assert_r6(filtered_data_singleton, "FilteredData")
4. │ └─checkmate::checkR6(...)
5. └─teal:::teal_data_to_filtered_data(data)
6. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
8. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:164:3'): create_app_id: 'data' accepts teal_data or teal_data_module ──
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-utils.R:179:3'): create_app_id: 'modules' accepts modules ────
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Error ('test-utils.R:188:3'): create_app_id returns a character string ──────
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─checkmate::expect_string(...) at test-utils.R:188:3
2. │ └─checkmate::checkString(...)
3. │ └─... %and% ...
4. │ └─base::isTRUE(lhs)
5. └─teal:::create_app_id(teal.data::teal_data(), modules(example_module()))
6. └─base::as.list(data@env)
── Error ('test-utils.R:192:3'): create_app_id returns different hash for different data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:192:3
2. └─base::as.list(data@env)
── Error ('test-utils.R:198:3'): create_app_id returns different hash for different modules ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:198:3
2. └─base::as.list(data@env)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.15.2
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
...
--- re-building ‘adding-support-for-reporting.Rmd’ using rmarkdown
Quitting from lines 106-112 [unnamed-chunk-4] (adding-support-for-reporting.Rmd)
Error: processing vignette 'adding-support-for-reporting.Rmd' failed with diagnostics:
no slot of name "env" for this object of class "teal_data"
--- failed re-building ‘adding-support-for-reporting.Rmd’
--- re-building ‘bootstrap-themes-in-teal.Rmd’ using rmarkdown
--- finished re-building ‘bootstrap-themes-in-teal.Rmd’
--- re-building ‘creating-custom-modules.Rmd’ using rmarkdown
Quitting from lines 174-183 [unnamed-chunk-4] (creating-custom-modules.Rmd)
Error: processing vignette 'creating-custom-modules.Rmd' failed with diagnostics:
no slot of name "env" for this object of class "teal_data"
--- failed re-building ‘creating-custom-modules.Rmd’
--- re-building ‘data-as-shiny-module.Rmd’ using rmarkdown
--- finished re-building ‘data-as-shiny-module.Rmd’
--- re-building ‘filter-panel.Rmd’ using rmarkdown
--- finished re-building ‘filter-panel.Rmd’
--- re-building ‘getting-started-with-teal.Rmd’ using rmarkdown
Quitting from lines 33-52 [unnamed-chunk-1] (getting-started-with-teal.Rmd)
Error: processing vignette 'getting-started-with-teal.Rmd' failed with diagnostics:
no slot of name "env" for this object of class "teal_data"
--- failed re-building ‘getting-started-with-teal.Rmd’
--- re-building ‘including-data-in-teal-applications.Rmd’ using rmarkdown
--- finished re-building ‘including-data-in-teal-applications.Rmd’
--- re-building ‘teal-options.Rmd’ using rmarkdown
--- finished re-building ‘teal-options.Rmd’
SUMMARY: processing the following files failed:
‘adding-support-for-reporting.Rmd’ ‘creating-custom-modules.Rmd’
‘getting-started-with-teal.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.15.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [16s/17s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "teal"
> library(pkg_name, character.only = TRUE)
Loading required package: shiny
Loading required package: teal.data
Loading required package: teal.code
Loading required package: teal.slice
Registered S3 method overwritten by 'teal':
method from
c.teal_slices teal.slice
You are using teal version 0.15.2
Attaching package: 'teal'
The following objects are masked from 'package:teal.slice':
as.teal_slices, teal_slices
> testthat::test_check(pkg_name)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-init.R:3:3'): init data accepts teal_data object ─────────────
Expected `init(data = teal.data::teal_data(iris = iris), modules = modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:24:3'): init modules accepts a teal_modules object ────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:29:3'): init modules accepts a list of teal_module elements ──
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:34:3'): init modules accepts a teal_module object ─────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:42:3'): init filter accepts `teal_slices` ─────────────
Expected `init(...)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:53:3'): init throws when an empty `data` is used ──────
`init(data = teal.data::teal_data(), modules = list(example_module()))` threw an error with unexpected message.
Expected match: "The environment of `data` is empty."
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:53:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(), modules = list(example_module()))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Failure ('test-init.R:61:3'): init throws when datanames in modules incompatible w/ datanames in data ──
`init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))` threw an error with unexpected message.
Expected match: "Module 'example teal module' uses datanames not available in 'data'"
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:61:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-init.R:71:3'): init throws when dataname in filter incompatible w/ datanames in data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-init.R:71:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(...)
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-module_nested_tabs.R:4:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_nested_tabs.R:4:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_tabs_with_filters.R:5:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_tabs_with_filters.R:5:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_teal.R:30:7'): srv_teal when teal_data_rv changes, datasets_reactive is initialized as list of FilteredData ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:18: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─checkmate::expect_list(datasets_reactive(), types = "FilteredData") at test-module_teal.R:30:7
27. │ └─checkmate::checkList(...)
28. │ └─... %and% checkListTypes(x, types)
29. │ └─base::isTRUE(lhs)
30. ├─shiny (local) datasets_reactive()
31. │ ├─shiny::..stacktraceoff..(self$.updateValue())
32. │ └─self$.updateValue()
33. │ └─ctx$run(...)
34. │ ├─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ ├─shiny::withReactiveDomain(...)
37. │ │ └─promises::with_promise_domain(...)
38. │ │ └─domain$wrapSync(expr)
39. │ │ └─base::force(expr)
40. │ ├─shiny::captureStackTraces(...)
41. │ │ └─promises::with_promise_domain(...)
42. │ │ └─domain$wrapSync(expr)
43. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
44. │ └─env$runWith(self, func)
45. │ └─shiny (local) contextFunc()
46. │ ├─base::withCallingHandlers(...)
47. │ ├─base::withVisible(.func())
48. │ └─shiny (local) .func()
49. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
50. │ └─shiny:::hybrid_chain(...)
51. │ └─shiny (local) do()
52. │ └─base::tryCatch(...)
53. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
54. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
55. │ └─value[[3L]](cond)
56. │ └─base::stop(e)
57. ├─shiny (local) `<fn>`(`<smplErrr>`)
58. │ └─base::stop(e)
59. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:49:7'): srv_teal initialized datasets_reactive (list) reflects modules structure ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:37: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─testthat::expect_named(datasets_reactive(), c("iris_tab", "tab")) at test-module_teal.R:49:7
27. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
28. │ └─rlang::eval_bare(expr, quo_get_env(quo))
29. ├─shiny (local) datasets_reactive()
30. │ ├─shiny::..stacktraceoff..(self$.updateValue())
31. │ └─self$.updateValue()
32. │ └─ctx$run(...)
33. │ ├─promises::with_promise_domain(...)
34. │ │ └─domain$wrapSync(expr)
35. │ ├─shiny::withReactiveDomain(...)
36. │ │ └─promises::with_promise_domain(...)
37. │ │ └─domain$wrapSync(expr)
38. │ │ └─base::force(expr)
39. │ ├─shiny::captureStackTraces(...)
40. │ │ └─promises::with_promise_domain(...)
41. │ │ └─domain$wrapSync(expr)
42. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
43. │ └─env$runWith(self, func)
44. │ └─shiny (local) contextFunc()
45. │ ├─base::withCallingHandlers(...)
46. │ ├─base::withVisible(.func())
47. │ └─shiny (local) .func()
48. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
49. │ └─shiny:::hybrid_chain(...)
50. │ └─shiny (local) do()
51. │ └─base::tryCatch(...)
52. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
53. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
54. │ └─value[[3L]](cond)
55. │ └─base::stop(e)
56. ├─shiny (local) `<fn>`(`<smplErrr>`)
57. │ └─base::stop(e)
58. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:70:7'): srv_teal initialized data containing same FilteredData when the filter is global ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:57: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:70:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:92:7'): srv_teal initialized data containing different FilteredData when the filter is module_specific ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:79: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:92:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-utils.R:45:3'): teal_data_to_filtered_data return FilteredData class ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─testthat::expect_s3_class(...) at test-utils.R:45:3
2. │ └─testthat::quasi_label(enquo(object), arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─teal:::teal_data_to_filtered_data(teal_data)
5. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
6. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:64:3'): teal_data_datanames returns datanames which are set by teal.data::datanames ──
teal_data_datanames(teal_data) not equal to "iris".
Lengths differ: 2 is not 1
── Error ('test-utils.R:103:3'): modules_datasets returns correct structure ────
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─base::rapply(...) at test-utils.R:103:3
2. └─teal:::modules_datasets(data, modules, filters)
3. ├─checkmate::assert_r6(filtered_data_singleton, "FilteredData")
4. │ └─checkmate::checkR6(...)
5. └─teal:::teal_data_to_filtered_data(data)
6. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
8. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:164:3'): create_app_id: 'data' accepts teal_data or teal_data_module ──
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-utils.R:179:3'): create_app_id: 'modules' accepts modules ────
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Error ('test-utils.R:188:3'): create_app_id returns a character string ──────
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─checkmate::expect_string(...) at test-utils.R:188:3
2. │ └─checkmate::checkString(...)
3. │ └─... %and% ...
4. │ └─base::isTRUE(lhs)
5. └─teal:::create_app_id(teal.data::teal_data(), modules(example_module()))
6. └─base::as.list(data@env)
── Error ('test-utils.R:192:3'): create_app_id returns different hash for different data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:192:3
2. └─base::as.list(data@env)
── Error ('test-utils.R:198:3'): create_app_id returns different hash for different modules ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:198:3
2. └─base::as.list(data@env)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.15.2
Check: examples
Result: ERROR
Running examples in ‘teal-Ex.R’ failed
The error most likely occurred in:
> ### Name: example_module
> ### Title: An example 'teal' module
> ### Aliases: example_module
>
> ### ** Examples
>
> app <- init(
+ data = teal_data(IRIS = iris, MTCARS = mtcars),
+ modules = example_module()
+ )
Error in as.list(data@env) :
no slot of name "env" for this object of class "teal_data"
Calls: init -> create_app_id -> as.list
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-release-windows-x86_64, r-oldrel-windows-x86_64
Version: 0.15.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [38s/42s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "teal"
> library(pkg_name, character.only = TRUE)
Loading required package: shiny
Loading required package: teal.data
Loading required package: teal.code
Loading required package: teal.slice
Registered S3 method overwritten by 'teal':
method from
c.teal_slices teal.slice
You are using teal version 0.15.2
Attaching package: 'teal'
The following objects are masked from 'package:teal.slice':
as.teal_slices, teal_slices
> testthat::test_check(pkg_name)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-init.R:3:3'): init data accepts teal_data object ─────────────
Expected `init(data = teal.data::teal_data(iris = iris), modules = modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:24:3'): init modules accepts a teal_modules object ────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:29:3'): init modules accepts a list of teal_module elements ──
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:34:3'): init modules accepts a teal_module object ─────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:42:3'): init filter accepts `teal_slices` ─────────────
Expected `init(...)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:53:3'): init throws when an empty `data` is used ──────
`init(data = teal.data::teal_data(), modules = list(example_module()))` threw an error with unexpected message.
Expected match: "The environment of `data` is empty."
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:53:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(), modules = list(example_module()))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Failure ('test-init.R:61:3'): init throws when datanames in modules incompatible w/ datanames in data ──
`init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))` threw an error with unexpected message.
Expected match: "Module 'example teal module' uses datanames not available in 'data'"
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:61:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-init.R:71:3'): init throws when dataname in filter incompatible w/ datanames in data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-init.R:71:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(...)
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-module_nested_tabs.R:4:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_nested_tabs.R:4:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_tabs_with_filters.R:5:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_tabs_with_filters.R:5:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_teal.R:30:7'): srv_teal when teal_data_rv changes, datasets_reactive is initialized as list of FilteredData ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:18: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─checkmate::expect_list(datasets_reactive(), types = "FilteredData") at test-module_teal.R:30:7
27. │ └─checkmate::checkList(...)
28. │ └─... %and% checkListTypes(x, types)
29. │ └─base::isTRUE(lhs)
30. ├─shiny (local) datasets_reactive()
31. │ ├─shiny::..stacktraceoff..(self$.updateValue())
32. │ └─self$.updateValue()
33. │ └─ctx$run(...)
34. │ ├─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ ├─shiny::withReactiveDomain(...)
37. │ │ └─promises::with_promise_domain(...)
38. │ │ └─domain$wrapSync(expr)
39. │ │ └─base::force(expr)
40. │ ├─shiny::captureStackTraces(...)
41. │ │ └─promises::with_promise_domain(...)
42. │ │ └─domain$wrapSync(expr)
43. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
44. │ └─env$runWith(self, func)
45. │ └─shiny (local) contextFunc()
46. │ ├─base::withCallingHandlers(...)
47. │ ├─base::withVisible(.func())
48. │ └─shiny (local) .func()
49. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
50. │ └─shiny:::hybrid_chain(...)
51. │ └─shiny (local) do()
52. │ └─base::tryCatch(...)
53. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
54. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
55. │ └─value[[3L]](cond)
56. │ └─base::stop(e)
57. ├─shiny (local) `<fn>`(`<smplErrr>`)
58. │ └─base::stop(e)
59. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:49:7'): srv_teal initialized datasets_reactive (list) reflects modules structure ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:37: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─testthat::expect_named(datasets_reactive(), c("iris_tab", "tab")) at test-module_teal.R:49:7
27. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
28. │ └─rlang::eval_bare(expr, quo_get_env(quo))
29. ├─shiny (local) datasets_reactive()
30. │ ├─shiny::..stacktraceoff..(self$.updateValue())
31. │ └─self$.updateValue()
32. │ └─ctx$run(...)
33. │ ├─promises::with_promise_domain(...)
34. │ │ └─domain$wrapSync(expr)
35. │ ├─shiny::withReactiveDomain(...)
36. │ │ └─promises::with_promise_domain(...)
37. │ │ └─domain$wrapSync(expr)
38. │ │ └─base::force(expr)
39. │ ├─shiny::captureStackTraces(...)
40. │ │ └─promises::with_promise_domain(...)
41. │ │ └─domain$wrapSync(expr)
42. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
43. │ └─env$runWith(self, func)
44. │ └─shiny (local) contextFunc()
45. │ ├─base::withCallingHandlers(...)
46. │ ├─base::withVisible(.func())
47. │ └─shiny (local) .func()
48. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
49. │ └─shiny:::hybrid_chain(...)
50. │ └─shiny (local) do()
51. │ └─base::tryCatch(...)
52. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
53. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
54. │ └─value[[3L]](cond)
55. │ └─base::stop(e)
56. ├─shiny (local) `<fn>`(`<smplErrr>`)
57. │ └─base::stop(e)
58. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:70:7'): srv_teal initialized data containing same FilteredData when the filter is global ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:57: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:70:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:92:7'): srv_teal initialized data containing different FilteredData when the filter is module_specific ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:79: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:92:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-utils.R:45:3'): teal_data_to_filtered_data return FilteredData class ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─testthat::expect_s3_class(...) at test-utils.R:45:3
2. │ └─testthat::quasi_label(enquo(object), arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─teal:::teal_data_to_filtered_data(teal_data)
5. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
6. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:64:3'): teal_data_datanames returns datanames which are set by teal.data::datanames ──
teal_data_datanames(teal_data) not equal to "iris".
Lengths differ: 2 is not 1
── Error ('test-utils.R:103:3'): modules_datasets returns correct structure ────
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─base::rapply(...) at test-utils.R:103:3
2. └─teal:::modules_datasets(data, modules, filters)
3. ├─checkmate::assert_r6(filtered_data_singleton, "FilteredData")
4. │ └─checkmate::checkR6(...)
5. └─teal:::teal_data_to_filtered_data(data)
6. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
8. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:164:3'): create_app_id: 'data' accepts teal_data or teal_data_module ──
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-utils.R:179:3'): create_app_id: 'modules' accepts modules ────
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Error ('test-utils.R:188:3'): create_app_id returns a character string ──────
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─checkmate::expect_string(...) at test-utils.R:188:3
2. │ └─checkmate::checkString(...)
3. │ └─... %and% ...
4. │ └─base::isTRUE(lhs)
5. └─teal:::create_app_id(teal.data::teal_data(), modules(example_module()))
6. └─base::as.list(data@env)
── Error ('test-utils.R:192:3'): create_app_id returns different hash for different data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:192:3
2. └─base::as.list(data@env)
── Error ('test-utils.R:198:3'): create_app_id returns different hash for different modules ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:198:3
2. └─base::as.list(data@env)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.15.2
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
--- re-building ‘adding-support-for-reporting.Rmd’ using rmarkdown
Quitting from lines 106-112 [unnamed-chunk-4] (adding-support-for-reporting.Rmd)
Error: processing vignette 'adding-support-for-reporting.Rmd' failed with diagnostics:
no slot of name "env" for this object of class "teal_data"
--- failed re-building ‘adding-support-for-reporting.Rmd’
--- re-building ‘bootstrap-themes-in-teal.Rmd’ using rmarkdown
--- finished re-building ‘bootstrap-themes-in-teal.Rmd’
--- re-building ‘creating-custom-modules.Rmd’ using rmarkdown
Quitting from lines 174-183 [unnamed-chunk-4] (creating-custom-modules.Rmd)
Error: processing vignette 'creating-custom-modules.Rmd' failed with diagnostics:
no slot of name "env" for this object of class "teal_data"
--- failed re-building ‘creating-custom-modules.Rmd’
--- re-building ‘data-as-shiny-module.Rmd’ using rmarkdown
--- finished re-building ‘data-as-shiny-module.Rmd’
--- re-building ‘filter-panel.Rmd’ using rmarkdown
--- finished re-building ‘filter-panel.Rmd’
--- re-building ‘getting-started-with-teal.Rmd’ using rmarkdown
Quitting from lines 33-52 [unnamed-chunk-1] (getting-started-with-teal.Rmd)
Error: processing vignette 'getting-started-with-teal.Rmd' failed with diagnostics:
no slot of name "env" for this object of class "teal_data"
--- failed re-building ‘getting-started-with-teal.Rmd’
--- re-building ‘including-data-in-teal-applications.Rmd’ using rmarkdown
--- finished re-building ‘including-data-in-teal-applications.Rmd’
--- re-building ‘teal-options.Rmd’ using rmarkdown
--- finished re-building ‘teal-options.Rmd’
SUMMARY: processing the following files failed:
‘adding-support-for-reporting.Rmd’ ‘creating-custom-modules.Rmd’
‘getting-started-with-teal.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-release-windows-x86_64, r-oldrel-windows-x86_64
Version: 0.15.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [37s/74s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "teal"
> library(pkg_name, character.only = TRUE)
Loading required package: shiny
Loading required package: teal.data
Loading required package: teal.code
Loading required package: teal.slice
Registered S3 method overwritten by 'teal':
method from
c.teal_slices teal.slice
You are using teal version 0.15.2
Attaching package: 'teal'
The following objects are masked from 'package:teal.slice':
as.teal_slices, teal_slices
> testthat::test_check(pkg_name)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-init.R:3:3'): init data accepts teal_data object ─────────────
Expected `init(data = teal.data::teal_data(iris = iris), modules = modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:24:3'): init modules accepts a teal_modules object ────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:29:3'): init modules accepts a list of teal_module elements ──
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:34:3'): init modules accepts a teal_module object ─────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:42:3'): init filter accepts `teal_slices` ─────────────
Expected `init(...)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:53:3'): init throws when an empty `data` is used ──────
`init(data = teal.data::teal_data(), modules = list(example_module()))` threw an error with unexpected message.
Expected match: "The environment of `data` is empty."
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:53:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(), modules = list(example_module()))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Failure ('test-init.R:61:3'): init throws when datanames in modules incompatible w/ datanames in data ──
`init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))` threw an error with unexpected message.
Expected match: "Module 'example teal module' uses datanames not available in 'data'"
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:61:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-init.R:71:3'): init throws when dataname in filter incompatible w/ datanames in data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-init.R:71:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(...)
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-module_nested_tabs.R:4:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_nested_tabs.R:4:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_tabs_with_filters.R:5:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_tabs_with_filters.R:5:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_teal.R:30:7'): srv_teal when teal_data_rv changes, datasets_reactive is initialized as list of FilteredData ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:18: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─checkmate::expect_list(datasets_reactive(), types = "FilteredData") at test-module_teal.R:30:7
27. │ └─checkmate::checkList(...)
28. │ └─... %and% checkListTypes(x, types)
29. │ └─base::isTRUE(lhs)
30. ├─shiny (local) datasets_reactive()
31. │ ├─shiny::..stacktraceoff..(self$.updateValue())
32. │ └─self$.updateValue()
33. │ └─ctx$run(...)
34. │ ├─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ ├─shiny::withReactiveDomain(...)
37. │ │ └─promises::with_promise_domain(...)
38. │ │ └─domain$wrapSync(expr)
39. │ │ └─base::force(expr)
40. │ ├─shiny::captureStackTraces(...)
41. │ │ └─promises::with_promise_domain(...)
42. │ │ └─domain$wrapSync(expr)
43. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
44. │ └─env$runWith(self, func)
45. │ └─shiny (local) contextFunc()
46. │ ├─base::withCallingHandlers(...)
47. │ ├─base::withVisible(.func())
48. │ └─shiny (local) .func()
49. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
50. │ └─shiny:::hybrid_chain(...)
51. │ └─shiny (local) do()
52. │ └─base::tryCatch(...)
53. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
54. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
55. │ └─value[[3L]](cond)
56. │ └─base::stop(e)
57. ├─shiny (local) `<fn>`(`<smplErrr>`)
58. │ └─base::stop(e)
59. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:49:7'): srv_teal initialized datasets_reactive (list) reflects modules structure ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:37: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─testthat::expect_named(datasets_reactive(), c("iris_tab", "tab")) at test-module_teal.R:49:7
27. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
28. │ └─rlang::eval_bare(expr, quo_get_env(quo))
29. ├─shiny (local) datasets_reactive()
30. │ ├─shiny::..stacktraceoff..(self$.updateValue())
31. │ └─self$.updateValue()
32. │ └─ctx$run(...)
33. │ ├─promises::with_promise_domain(...)
34. │ │ └─domain$wrapSync(expr)
35. │ ├─shiny::withReactiveDomain(...)
36. │ │ └─promises::with_promise_domain(...)
37. │ │ └─domain$wrapSync(expr)
38. │ │ └─base::force(expr)
39. │ ├─shiny::captureStackTraces(...)
40. │ │ └─promises::with_promise_domain(...)
41. │ │ └─domain$wrapSync(expr)
42. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
43. │ └─env$runWith(self, func)
44. │ └─shiny (local) contextFunc()
45. │ ├─base::withCallingHandlers(...)
46. │ ├─base::withVisible(.func())
47. │ └─shiny (local) .func()
48. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
49. │ └─shiny:::hybrid_chain(...)
50. │ └─shiny (local) do()
51. │ └─base::tryCatch(...)
52. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
53. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
54. │ └─value[[3L]](cond)
55. │ └─base::stop(e)
56. ├─shiny (local) `<fn>`(`<smplErrr>`)
57. │ └─base::stop(e)
58. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:70:7'): srv_teal initialized data containing same FilteredData when the filter is global ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:57: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:70:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:92:7'): srv_teal initialized data containing different FilteredData when the filter is module_specific ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:79: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:92:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-utils.R:45:3'): teal_data_to_filtered_data return FilteredData class ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─testthat::expect_s3_class(...) at test-utils.R:45:3
2. │ └─testthat::quasi_label(enquo(object), arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─teal:::teal_data_to_filtered_data(teal_data)
5. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
6. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:64:3'): teal_data_datanames returns datanames which are set by teal.data::datanames ──
teal_data_datanames(teal_data) not equal to "iris".
Lengths differ: 2 is not 1
── Error ('test-utils.R:103:3'): modules_datasets returns correct structure ────
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─base::rapply(...) at test-utils.R:103:3
2. └─teal:::modules_datasets(data, modules, filters)
3. ├─checkmate::assert_r6(filtered_data_singleton, "FilteredData")
4. │ └─checkmate::checkR6(...)
5. └─teal:::teal_data_to_filtered_data(data)
6. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
8. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:164:3'): create_app_id: 'data' accepts teal_data or teal_data_module ──
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-utils.R:179:3'): create_app_id: 'modules' accepts modules ────
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Error ('test-utils.R:188:3'): create_app_id returns a character string ──────
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─checkmate::expect_string(...) at test-utils.R:188:3
2. │ └─checkmate::checkString(...)
3. │ └─... %and% ...
4. │ └─base::isTRUE(lhs)
5. └─teal:::create_app_id(teal.data::teal_data(), modules(example_module()))
6. └─base::as.list(data@env)
── Error ('test-utils.R:192:3'): create_app_id returns different hash for different data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:192:3
2. └─base::as.list(data@env)
── Error ('test-utils.R:198:3'): create_app_id returns different hash for different modules ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:198:3
2. └─base::as.list(data@env)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.15.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [22s/26s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "teal"
> library(pkg_name, character.only = TRUE)
Loading required package: shiny
Loading required package: teal.data
Loading required package: teal.code
Loading required package: teal.slice
Registered S3 method overwritten by 'teal':
method from
c.teal_slices teal.slice
You are using teal version 0.15.2
Attaching package: 'teal'
The following objects are masked from 'package:teal.slice':
as.teal_slices, teal_slices
> testthat::test_check(pkg_name)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-init.R:3:3'): init data accepts teal_data object ─────────────
Expected `init(data = teal.data::teal_data(iris = iris), modules = modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:24:3'): init modules accepts a teal_modules object ────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:29:3'): init modules accepts a list of teal_module elements ──
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:34:3'): init modules accepts a teal_module object ─────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:42:3'): init filter accepts `teal_slices` ─────────────
Expected `init(...)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:53:3'): init throws when an empty `data` is used ──────
`init(data = teal.data::teal_data(), modules = list(example_module()))` threw an error with unexpected message.
Expected match: "The environment of `data` is empty."
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:53:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(), modules = list(example_module()))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Failure ('test-init.R:61:3'): init throws when datanames in modules incompatible w/ datanames in data ──
`init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))` threw an error with unexpected message.
Expected match: "Module 'example teal module' uses datanames not available in 'data'"
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:61:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-init.R:71:3'): init throws when dataname in filter incompatible w/ datanames in data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-init.R:71:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(...)
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-module_nested_tabs.R:4:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_nested_tabs.R:4:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_tabs_with_filters.R:5:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_tabs_with_filters.R:5:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_teal.R:30:7'): srv_teal when teal_data_rv changes, datasets_reactive is initialized as list of FilteredData ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:18: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─checkmate::expect_list(datasets_reactive(), types = "FilteredData") at test-module_teal.R:30:7
27. │ └─checkmate::checkList(...)
28. │ └─... %and% checkListTypes(x, types)
29. │ └─base::isTRUE(lhs)
30. ├─shiny (local) datasets_reactive()
31. │ ├─shiny::..stacktraceoff..(self$.updateValue())
32. │ └─self$.updateValue()
33. │ └─ctx$run(...)
34. │ ├─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ ├─shiny::withReactiveDomain(...)
37. │ │ └─promises::with_promise_domain(...)
38. │ │ └─domain$wrapSync(expr)
39. │ │ └─base::force(expr)
40. │ ├─shiny::captureStackTraces(...)
41. │ │ └─promises::with_promise_domain(...)
42. │ │ └─domain$wrapSync(expr)
43. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
44. │ └─env$runWith(self, func)
45. │ └─shiny (local) contextFunc()
46. │ ├─base::withCallingHandlers(...)
47. │ ├─base::withVisible(.func())
48. │ └─shiny (local) .func()
49. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
50. │ └─shiny:::hybrid_chain(...)
51. │ └─shiny (local) do()
52. │ └─base::tryCatch(...)
53. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
54. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
55. │ └─value[[3L]](cond)
56. │ └─base::stop(e)
57. ├─shiny (local) `<fn>`(`<smplErrr>`)
58. │ └─base::stop(e)
59. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:49:7'): srv_teal initialized datasets_reactive (list) reflects modules structure ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:37: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─testthat::expect_named(datasets_reactive(), c("iris_tab", "tab")) at test-module_teal.R:49:7
27. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
28. │ └─rlang::eval_bare(expr, quo_get_env(quo))
29. ├─shiny (local) datasets_reactive()
30. │ ├─shiny::..stacktraceoff..(self$.updateValue())
31. │ └─self$.updateValue()
32. │ └─ctx$run(...)
33. │ ├─promises::with_promise_domain(...)
34. │ │ └─domain$wrapSync(expr)
35. │ ├─shiny::withReactiveDomain(...)
36. │ │ └─promises::with_promise_domain(...)
37. │ │ └─domain$wrapSync(expr)
38. │ │ └─base::force(expr)
39. │ ├─shiny::captureStackTraces(...)
40. │ │ └─promises::with_promise_domain(...)
41. │ │ └─domain$wrapSync(expr)
42. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
43. │ └─env$runWith(self, func)
44. │ └─shiny (local) contextFunc()
45. │ ├─base::withCallingHandlers(...)
46. │ ├─base::withVisible(.func())
47. │ └─shiny (local) .func()
48. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
49. │ └─shiny:::hybrid_chain(...)
50. │ └─shiny (local) do()
51. │ └─base::tryCatch(...)
52. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
53. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
54. │ └─value[[3L]](cond)
55. │ └─base::stop(e)
56. ├─shiny (local) `<fn>`(`<smplErrr>`)
57. │ └─base::stop(e)
58. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:70:7'): srv_teal initialized data containing same FilteredData when the filter is global ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:57: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:70:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:92:7'): srv_teal initialized data containing different FilteredData when the filter is module_specific ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:79: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:92:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-utils.R:45:3'): teal_data_to_filtered_data return FilteredData class ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─testthat::expect_s3_class(...) at test-utils.R:45:3
2. │ └─testthat::quasi_label(enquo(object), arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─teal:::teal_data_to_filtered_data(teal_data)
5. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
6. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:64:3'): teal_data_datanames returns datanames which are set by teal.data::datanames ──
teal_data_datanames(teal_data) not equal to "iris".
Lengths differ: 2 is not 1
── Error ('test-utils.R:103:3'): modules_datasets returns correct structure ────
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─base::rapply(...) at test-utils.R:103:3
2. └─teal:::modules_datasets(data, modules, filters)
3. ├─checkmate::assert_r6(filtered_data_singleton, "FilteredData")
4. │ └─checkmate::checkR6(...)
5. └─teal:::teal_data_to_filtered_data(data)
6. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
8. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:164:3'): create_app_id: 'data' accepts teal_data or teal_data_module ──
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-utils.R:179:3'): create_app_id: 'modules' accepts modules ────
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Error ('test-utils.R:188:3'): create_app_id returns a character string ──────
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─checkmate::expect_string(...) at test-utils.R:188:3
2. │ └─checkmate::checkString(...)
3. │ └─... %and% ...
4. │ └─base::isTRUE(lhs)
5. └─teal:::create_app_id(teal.data::teal_data(), modules(example_module()))
6. └─base::as.list(data@env)
── Error ('test-utils.R:192:3'): create_app_id returns different hash for different data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:192:3
2. └─base::as.list(data@env)
── Error ('test-utils.R:198:3'): create_app_id returns different hash for different modules ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:198:3
2. └─base::as.list(data@env)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
Error: Test failures
Execution halted
Flavor: r-patched-linux-x86_64
Version: 0.15.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [23s/31s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "teal"
> library(pkg_name, character.only = TRUE)
Loading required package: shiny
Loading required package: teal.data
Loading required package: teal.code
Loading required package: teal.slice
Registered S3 method overwritten by 'teal':
method from
c.teal_slices teal.slice
You are using teal version 0.15.2
Attaching package: 'teal'
The following objects are masked from 'package:teal.slice':
as.teal_slices, teal_slices
> testthat::test_check(pkg_name)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-init.R:3:3'): init data accepts teal_data object ─────────────
Expected `init(data = teal.data::teal_data(iris = iris), modules = modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:24:3'): init modules accepts a teal_modules object ────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:29:3'): init modules accepts a list of teal_module elements ──
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:34:3'): init modules accepts a teal_module object ─────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:42:3'): init filter accepts `teal_slices` ─────────────
Expected `init(...)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:53:3'): init throws when an empty `data` is used ──────
`init(data = teal.data::teal_data(), modules = list(example_module()))` threw an error with unexpected message.
Expected match: "The environment of `data` is empty."
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:53:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(), modules = list(example_module()))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Failure ('test-init.R:61:3'): init throws when datanames in modules incompatible w/ datanames in data ──
`init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))` threw an error with unexpected message.
Expected match: "Module 'example teal module' uses datanames not available in 'data'"
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:61:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-init.R:71:3'): init throws when dataname in filter incompatible w/ datanames in data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-init.R:71:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(...)
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-module_nested_tabs.R:4:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_nested_tabs.R:4:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_tabs_with_filters.R:5:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_tabs_with_filters.R:5:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_teal.R:30:7'): srv_teal when teal_data_rv changes, datasets_reactive is initialized as list of FilteredData ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:18: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─checkmate::expect_list(datasets_reactive(), types = "FilteredData") at test-module_teal.R:30:7
27. │ └─checkmate::checkList(...)
28. │ └─... %and% checkListTypes(x, types)
29. │ └─base::isTRUE(lhs)
30. ├─shiny (local) datasets_reactive()
31. │ ├─shiny::..stacktraceoff..(self$.updateValue())
32. │ └─self$.updateValue()
33. │ └─ctx$run(...)
34. │ ├─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ ├─shiny::withReactiveDomain(...)
37. │ │ └─promises::with_promise_domain(...)
38. │ │ └─domain$wrapSync(expr)
39. │ │ └─base::force(expr)
40. │ ├─shiny::captureStackTraces(...)
41. │ │ └─promises::with_promise_domain(...)
42. │ │ └─domain$wrapSync(expr)
43. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
44. │ └─env$runWith(self, func)
45. │ └─shiny (local) contextFunc()
46. │ ├─base::withCallingHandlers(...)
47. │ ├─base::withVisible(.func())
48. │ └─shiny (local) .func()
49. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
50. │ └─shiny:::hybrid_chain(...)
51. │ └─shiny (local) do()
52. │ └─base::tryCatch(...)
53. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
54. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
55. │ └─value[[3L]](cond)
56. │ └─base::stop(e)
57. ├─shiny (local) `<fn>`(`<smplErrr>`)
58. │ └─base::stop(e)
59. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:49:7'): srv_teal initialized datasets_reactive (list) reflects modules structure ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:37: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─testthat::expect_named(datasets_reactive(), c("iris_tab", "tab")) at test-module_teal.R:49:7
27. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
28. │ └─rlang::eval_bare(expr, quo_get_env(quo))
29. ├─shiny (local) datasets_reactive()
30. │ ├─shiny::..stacktraceoff..(self$.updateValue())
31. │ └─self$.updateValue()
32. │ └─ctx$run(...)
33. │ ├─promises::with_promise_domain(...)
34. │ │ └─domain$wrapSync(expr)
35. │ ├─shiny::withReactiveDomain(...)
36. │ │ └─promises::with_promise_domain(...)
37. │ │ └─domain$wrapSync(expr)
38. │ │ └─base::force(expr)
39. │ ├─shiny::captureStackTraces(...)
40. │ │ └─promises::with_promise_domain(...)
41. │ │ └─domain$wrapSync(expr)
42. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
43. │ └─env$runWith(self, func)
44. │ └─shiny (local) contextFunc()
45. │ ├─base::withCallingHandlers(...)
46. │ ├─base::withVisible(.func())
47. │ └─shiny (local) .func()
48. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
49. │ └─shiny:::hybrid_chain(...)
50. │ └─shiny (local) do()
51. │ └─base::tryCatch(...)
52. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
53. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
54. │ └─value[[3L]](cond)
55. │ └─base::stop(e)
56. ├─shiny (local) `<fn>`(`<smplErrr>`)
57. │ └─base::stop(e)
58. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:70:7'): srv_teal initialized data containing same FilteredData when the filter is global ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:57: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:70:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:92:7'): srv_teal initialized data containing different FilteredData when the filter is module_specific ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:79: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:92:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-utils.R:45:3'): teal_data_to_filtered_data return FilteredData class ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─testthat::expect_s3_class(...) at test-utils.R:45:3
2. │ └─testthat::quasi_label(enquo(object), arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─teal:::teal_data_to_filtered_data(teal_data)
5. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
6. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:64:3'): teal_data_datanames returns datanames which are set by teal.data::datanames ──
teal_data_datanames(teal_data) not equal to "iris".
Lengths differ: 2 is not 1
── Error ('test-utils.R:103:3'): modules_datasets returns correct structure ────
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─base::rapply(...) at test-utils.R:103:3
2. └─teal:::modules_datasets(data, modules, filters)
3. ├─checkmate::assert_r6(filtered_data_singleton, "FilteredData")
4. │ └─checkmate::checkR6(...)
5. └─teal:::teal_data_to_filtered_data(data)
6. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
8. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:164:3'): create_app_id: 'data' accepts teal_data or teal_data_module ──
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-utils.R:179:3'): create_app_id: 'modules' accepts modules ────
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Error ('test-utils.R:188:3'): create_app_id returns a character string ──────
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─checkmate::expect_string(...) at test-utils.R:188:3
2. │ └─checkmate::checkString(...)
3. │ └─... %and% ...
4. │ └─base::isTRUE(lhs)
5. └─teal:::create_app_id(teal.data::teal_data(), modules(example_module()))
6. └─base::as.list(data@env)
── Error ('test-utils.R:192:3'): create_app_id returns different hash for different data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:192:3
2. └─base::as.list(data@env)
── Error ('test-utils.R:198:3'): create_app_id returns different hash for different modules ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:198:3
2. └─base::as.list(data@env)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
Error: Test failures
Execution halted
Flavor: r-release-linux-x86_64
Version: 0.15.2
Check: tests
Result: ERROR
Running 'testthat.R' [20s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> pkg_name <- "teal"
> library(pkg_name, character.only = TRUE)
Loading required package: shiny
Loading required package: teal.data
Loading required package: teal.code
Loading required package: teal.slice
Registered S3 method overwritten by 'teal':
method from
c.teal_slices teal.slice
You are using teal version 0.15.2
Attaching package: 'teal'
The following objects are masked from 'package:teal.slice':
as.teal_slices, teal_slices
> testthat::test_check(pkg_name)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-init.R:3:3'): init data accepts teal_data object ─────────────
Expected `init(data = teal.data::teal_data(iris = iris), modules = modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:24:3'): init modules accepts a teal_modules object ────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:29:3'): init modules accepts a list of teal_module elements ──
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:34:3'): init modules accepts a teal_module object ─────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:42:3'): init filter accepts `teal_slices` ─────────────
Expected `init(...)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:53:3'): init throws when an empty `data` is used ──────
`init(data = teal.data::teal_data(), modules = list(example_module()))` threw an error with unexpected message.
Expected match: "The environment of `data` is empty."
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:53:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(), modules = list(example_module()))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Failure ('test-init.R:61:3'): init throws when datanames in modules incompatible w/ datanames in data ──
`init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))` threw an error with unexpected message.
Expected match: "Module 'example teal module' uses datanames not available in 'data'"
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:61:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-init.R:71:3'): init throws when dataname in filter incompatible w/ datanames in data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-init.R:71:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(...)
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-module_nested_tabs.R:4:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_nested_tabs.R:4:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_tabs_with_filters.R:5:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_tabs_with_filters.R:5:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_teal.R:30:7'): srv_teal when teal_data_rv changes, datasets_reactive is initialized as list of FilteredData ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:18: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─checkmate::expect_list(datasets_reactive(), types = "FilteredData") at test-module_teal.R:30:7
27. │ └─checkmate::checkList(...)
28. │ └─... %and% checkListTypes(x, types)
29. │ └─base::isTRUE(lhs)
30. ├─shiny (local) datasets_reactive()
31. │ ├─shiny::..stacktraceoff..(self$.updateValue())
32. │ └─self$.updateValue()
33. │ └─ctx$run(...)
34. │ ├─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ ├─shiny::withReactiveDomain(...)
37. │ │ └─promises::with_promise_domain(...)
38. │ │ └─domain$wrapSync(expr)
39. │ │ └─base::force(expr)
40. │ ├─shiny::captureStackTraces(...)
41. │ │ └─promises::with_promise_domain(...)
42. │ │ └─domain$wrapSync(expr)
43. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
44. │ └─env$runWith(self, func)
45. │ └─shiny (local) contextFunc()
46. │ ├─base::withCallingHandlers(...)
47. │ ├─base::withVisible(.func())
48. │ └─shiny (local) .func()
49. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
50. │ └─shiny:::hybrid_chain(...)
51. │ └─shiny (local) do()
52. │ └─base::tryCatch(...)
53. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
54. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
55. │ └─value[[3L]](cond)
56. │ └─base::stop(e)
57. ├─shiny (local) `<fn>`(`<smplErrr>`)
58. │ └─base::stop(e)
59. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:49:7'): srv_teal initialized datasets_reactive (list) reflects modules structure ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:37: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─testthat::expect_named(datasets_reactive(), c("iris_tab", "tab")) at test-module_teal.R:49:7
27. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
28. │ └─rlang::eval_bare(expr, quo_get_env(quo))
29. ├─shiny (local) datasets_reactive()
30. │ ├─shiny::..stacktraceoff..(self$.updateValue())
31. │ └─self$.updateValue()
32. │ └─ctx$run(...)
33. │ ├─promises::with_promise_domain(...)
34. │ │ └─domain$wrapSync(expr)
35. │ ├─shiny::withReactiveDomain(...)
36. │ │ └─promises::with_promise_domain(...)
37. │ │ └─domain$wrapSync(expr)
38. │ │ └─base::force(expr)
39. │ ├─shiny::captureStackTraces(...)
40. │ │ └─promises::with_promise_domain(...)
41. │ │ └─domain$wrapSync(expr)
42. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
43. │ └─env$runWith(self, func)
44. │ └─shiny (local) contextFunc()
45. │ ├─base::withCallingHandlers(...)
46. │ ├─base::withVisible(.func())
47. │ └─shiny (local) .func()
48. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
49. │ └─shiny:::hybrid_chain(...)
50. │ └─shiny (local) do()
51. │ └─base::tryCatch(...)
52. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
53. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
54. │ └─value[[3L]](cond)
55. │ └─base::stop(e)
56. ├─shiny (local) `<fn>`(`<smplErrr>`)
57. │ └─base::stop(e)
58. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:70:7'): srv_teal initialized data containing same FilteredData when the filter is global ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:57: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:70:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:92:7'): srv_teal initialized data containing different FilteredData when the filter is module_specific ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:79: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:92:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-utils.R:45:3'): teal_data_to_filtered_data return FilteredData class ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─testthat::expect_s3_class(...) at test-utils.R:45:3
2. │ └─testthat::quasi_label(enquo(object), arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─teal:::teal_data_to_filtered_data(teal_data)
5. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
6. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:64:3'): teal_data_datanames returns datanames which are set by teal.data::datanames ──
teal_data_datanames(teal_data) not equal to "iris".
Lengths differ: 2 is not 1
── Error ('test-utils.R:103:3'): modules_datasets returns correct structure ────
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─base::rapply(...) at test-utils.R:103:3
2. └─teal:::modules_datasets(data, modules, filters)
3. ├─checkmate::assert_r6(filtered_data_singleton, "FilteredData")
4. │ └─checkmate::checkR6(...)
5. └─teal:::teal_data_to_filtered_data(data)
6. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
8. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:164:3'): create_app_id: 'data' accepts teal_data or teal_data_module ──
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-utils.R:179:3'): create_app_id: 'modules' accepts modules ────
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Error ('test-utils.R:188:3'): create_app_id returns a character string ──────
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─checkmate::expect_string(...) at test-utils.R:188:3
2. │ └─checkmate::checkString(...)
3. │ └─... %and% ...
4. │ └─base::isTRUE(lhs)
5. └─teal:::create_app_id(teal.data::teal_data(), modules(example_module()))
6. └─base::as.list(data@env)
── Error ('test-utils.R:192:3'): create_app_id returns different hash for different data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:192:3
2. └─base::as.list(data@env)
── Error ('test-utils.R:198:3'): create_app_id returns different hash for different modules ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:198:3
2. └─base::as.list(data@env)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
Error: Test failures
Execution halted
Flavor: r-release-windows-x86_64
Version: 0.15.2
Check: tests
Result: ERROR
Running 'testthat.R' [28s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> pkg_name <- "teal"
> library(pkg_name, character.only = TRUE)
Loading required package: shiny
Loading required package: teal.data
Loading required package: teal.code
Loading required package: teal.slice
Registered S3 method overwritten by 'teal':
method from
c.teal_slices teal.slice
You are using teal version 0.15.2
Attaching package: 'teal'
The following objects are masked from 'package:teal.slice':
as.teal_slices, teal_slices
> testthat::test_check(pkg_name)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-init.R:3:3'): init data accepts teal_data object ─────────────
Expected `init(data = teal.data::teal_data(iris = iris), modules = modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:24:3'): init modules accepts a teal_modules object ────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:29:3'): init modules accepts a list of teal_module elements ──
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:34:3'): init modules accepts a teal_module object ─────
Expected `init(data = teal.data::teal_data(iris = iris), modules = mods)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:42:3'): init filter accepts `teal_slices` ─────────────
Expected `init(...)` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-init.R:53:3'): init throws when an empty `data` is used ──────
`init(data = teal.data::teal_data(), modules = list(example_module()))` threw an error with unexpected message.
Expected match: "The environment of `data` is empty."
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:53:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(), modules = list(example_module()))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Failure ('test-init.R:61:3'): init throws when datanames in modules incompatible w/ datanames in data ──
`init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))` threw an error with unexpected message.
Expected match: "Module 'example teal module' uses datanames not available in 'data'"
Actual message: "no slot of name \"env\" for this object of class \"teal_data\""
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-init.R:61:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(data = teal.data::teal_data(mtcars = mtcars), modules = list(example_module(datanames = "iris")))
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-init.R:71:3'): init throws when dataname in filter incompatible w/ datanames in data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-init.R:71:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─teal::init(...)
7. └─teal:::create_app_id(data, modules)
8. └─base::as.list(data@env)
── Error ('test-module_nested_tabs.R:4:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_nested_tabs.R:4:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_tabs_with_filters.R:5:1'): (code run outside of `test_that()`) ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. └─teal:::teal_data_to_filtered_data(teal_data) at test-module_tabs_with_filters.R:5:1
2. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
3. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
4. └─teal.data (local) .local(object, deparse, names, ...)
── Error ('test-module_teal.R:30:7'): srv_teal when teal_data_rv changes, datasets_reactive is initialized as list of FilteredData ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:18: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─checkmate::expect_list(datasets_reactive(), types = "FilteredData") at test-module_teal.R:30:7
27. │ └─checkmate::checkList(...)
28. │ └─... %and% checkListTypes(x, types)
29. │ └─base::isTRUE(lhs)
30. ├─shiny (local) datasets_reactive()
31. │ ├─shiny::..stacktraceoff..(self$.updateValue())
32. │ └─self$.updateValue()
33. │ └─ctx$run(...)
34. │ ├─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ ├─shiny::withReactiveDomain(...)
37. │ │ └─promises::with_promise_domain(...)
38. │ │ └─domain$wrapSync(expr)
39. │ │ └─base::force(expr)
40. │ ├─shiny::captureStackTraces(...)
41. │ │ └─promises::with_promise_domain(...)
42. │ │ └─domain$wrapSync(expr)
43. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
44. │ └─env$runWith(self, func)
45. │ └─shiny (local) contextFunc()
46. │ ├─base::withCallingHandlers(...)
47. │ ├─base::withVisible(.func())
48. │ └─shiny (local) .func()
49. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
50. │ └─shiny:::hybrid_chain(...)
51. │ └─shiny (local) do()
52. │ └─base::tryCatch(...)
53. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
54. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
55. │ └─value[[3L]](cond)
56. │ └─base::stop(e)
57. ├─shiny (local) `<fn>`(`<smplErrr>`)
58. │ └─base::stop(e)
59. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:49:7'): srv_teal initialized datasets_reactive (list) reflects modules structure ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:37: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─testthat::expect_named(datasets_reactive(), c("iris_tab", "tab")) at test-module_teal.R:49:7
27. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
28. │ └─rlang::eval_bare(expr, quo_get_env(quo))
29. ├─shiny (local) datasets_reactive()
30. │ ├─shiny::..stacktraceoff..(self$.updateValue())
31. │ └─self$.updateValue()
32. │ └─ctx$run(...)
33. │ ├─promises::with_promise_domain(...)
34. │ │ └─domain$wrapSync(expr)
35. │ ├─shiny::withReactiveDomain(...)
36. │ │ └─promises::with_promise_domain(...)
37. │ │ └─domain$wrapSync(expr)
38. │ │ └─base::force(expr)
39. │ ├─shiny::captureStackTraces(...)
40. │ │ └─promises::with_promise_domain(...)
41. │ │ └─domain$wrapSync(expr)
42. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
43. │ └─env$runWith(self, func)
44. │ └─shiny (local) contextFunc()
45. │ ├─base::withCallingHandlers(...)
46. │ ├─base::withVisible(.func())
47. │ └─shiny (local) .func()
48. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
49. │ └─shiny:::hybrid_chain(...)
50. │ └─shiny (local) do()
51. │ └─base::tryCatch(...)
52. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
53. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
54. │ └─value[[3L]](cond)
55. │ └─base::stop(e)
56. ├─shiny (local) `<fn>`(`<smplErrr>`)
57. │ └─base::stop(e)
58. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:70:7'): srv_teal initialized data containing same FilteredData when the filter is global ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:57: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:70:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-module_teal.R:92:7'): srv_teal initialized data containing different FilteredData when the filter is module_specific ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─shiny::testServer(...) at test-module_teal.R:79: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::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. ├─base::unlist(datasets_reactive(), use.names = FALSE) at test-module_teal.R:92:7
27. ├─shiny (local) datasets_reactive()
28. │ ├─shiny::..stacktraceoff..(self$.updateValue())
29. │ └─self$.updateValue()
30. │ └─ctx$run(...)
31. │ ├─promises::with_promise_domain(...)
32. │ │ └─domain$wrapSync(expr)
33. │ ├─shiny::withReactiveDomain(...)
34. │ │ └─promises::with_promise_domain(...)
35. │ │ └─domain$wrapSync(expr)
36. │ │ └─base::force(expr)
37. │ ├─shiny::captureStackTraces(...)
38. │ │ └─promises::with_promise_domain(...)
39. │ │ └─domain$wrapSync(expr)
40. │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
41. │ └─env$runWith(self, func)
42. │ └─shiny (local) contextFunc()
43. │ ├─base::withCallingHandlers(...)
44. │ ├─base::withVisible(.func())
45. │ └─shiny (local) .func()
46. │ └─shiny (local) `<reactive:eventReactive(teal_data_rv())>`(...)
47. │ └─shiny:::hybrid_chain(...)
48. │ └─shiny (local) do()
49. │ └─base::tryCatch(...)
50. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
51. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
52. │ └─value[[3L]](cond)
53. │ └─base::stop(e)
54. ├─shiny (local) `<fn>`(`<smplErrr>`)
55. │ └─base::stop(e)
56. └─shiny (local) `<fn>`(`<smplErrr>`)
── Error ('test-utils.R:45:3'): teal_data_to_filtered_data return FilteredData class ──
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─testthat::expect_s3_class(...) at test-utils.R:45:3
2. │ └─testthat::quasi_label(enquo(object), arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─teal:::teal_data_to_filtered_data(teal_data)
5. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
6. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:64:3'): teal_data_datanames returns datanames which are set by teal.data::datanames ──
teal_data_datanames(teal_data) not equal to "iris".
Lengths differ: 2 is not 1
── Error ('test-utils.R:103:3'): modules_datasets returns correct structure ────
Error in `.local(object, deparse, names, ...)`: 'names' shouldn't be specified with deprecated 'datanames' parameter.
Backtrace:
▆
1. ├─base::rapply(...) at test-utils.R:103:3
2. └─teal:::modules_datasets(data, modules, filters)
3. ├─checkmate::assert_r6(filtered_data_singleton, "FilteredData")
4. │ └─checkmate::checkR6(...)
5. └─teal:::teal_data_to_filtered_data(data)
6. ├─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
7. └─teal.data::get_code(x, datanames = datanames, check_names = FALSE)
8. └─teal.data (local) .local(object, deparse, names, ...)
── Failure ('test-utils.R:164:3'): create_app_id: 'data' accepts teal_data or teal_data_module ──
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Failure ('test-utils.R:179:3'): create_app_id: 'modules' accepts modules ────
Expected `create_app_id(teal.data::teal_data(), modules(example_module()))` to run without any errors.
ℹ Actually got a <simpleError> with text:
no slot of name "env" for this object of class "teal_data"
── Error ('test-utils.R:188:3'): create_app_id returns a character string ──────
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. ├─checkmate::expect_string(...) at test-utils.R:188:3
2. │ └─checkmate::checkString(...)
3. │ └─... %and% ...
4. │ └─base::isTRUE(lhs)
5. └─teal:::create_app_id(teal.data::teal_data(), modules(example_module()))
6. └─base::as.list(data@env)
── Error ('test-utils.R:192:3'): create_app_id returns different hash for different data ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:192:3
2. └─base::as.list(data@env)
── Error ('test-utils.R:198:3'): create_app_id returns different hash for different modules ──
Error in `as.list(data@env)`: no slot of name "env" for this object of class "teal_data"
Backtrace:
▆
1. └─teal:::create_app_id(teal.data::teal_data(i = iris), modules(example_module())) at test-utils.R:198:3
2. └─base::as.list(data@env)
[ FAIL 22 | WARN 3 | SKIP 0 | PASS 355 ]
Error: Test failures
Execution halted
Flavor: r-oldrel-windows-x86_64
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.