Running ‘testthat.R’ [39s/173s]
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