Skip to content

Add a helper function to add app title with a favicon #1532

Add a helper function to add app title with a favicon

Add a helper function to add app title with a favicon #1532

GitHub Actions / Unit Tests Summary failed Dec 22, 2023 in 0s

2 errors, 2 skipped, 200 pass in 11s

    1 files  ±0    19 suites  ±0   11s ⏱️ -1s
204 tests +2  200 ✔️ ±0  2 💤 ±0  0 ±0  2 🔥 +2 
405 runs  +3  401 ✔️ +2  2 💤  - 1  0 ±0  2 🔥 +2 

Results for commit 7922aa0. ± Comparison against earlier commit 66215f9.

Annotations

Check failure on line 0 in module_nested_tabs

See this annotation in the file changed.

@github-actions github-actions / Unit Tests Summary

.datasets_to_data_returns_data_which_is_filtered (module_nested_tabs) with error

teal.Rcheck/tests/testthat/junit-result.xml [took 0s]
Raw output
Error in `value[[3L]](cond)`: Call execution failed: ('test-module_nested_tabs.R:369:3')
Error in `value[[3L]](cond)`: Call execution failed:
 - call:
   d2 <- dplyr::inner_join(x = d2, y = d1[, c("id"), drop = FALSE], by = c(pk = "id"))
 - message:
   Error in `dplyr::inner_join()`:
! Join columns in `x` must be present in the data.
✖ Problem with `pk`.
 
Backtrace:
     ▆
  1. ├─shiny::isolate(.datasets_to_data(module, datasets)) at test-module_nested_tabs.R:369:3
  2. │ ├─shiny::..stacktraceoff..(...)
  3. │ └─ctx$run(...)
  4. │   ├─promises::with_promise_domain(...)
  5. │   │ └─domain$wrapSync(expr)
  6. │   ├─shiny::withReactiveDomain(...)
  7. │   │ └─promises::with_promise_domain(...)
  8. │   │   └─domain$wrapSync(expr)
  9. │   │     └─base::force(expr)
 10. │   └─env$runWith(self, func)
 11. │     └─shiny (local) contextFunc()
 12. │       └─shiny::..stacktraceon..(expr)
 13. └─teal:::.datasets_to_data(module, datasets)
 14.   └─base::sapply(...)
 15.     └─base::lapply(X = X, FUN = FUN, ...)
 16.       └─teal (local) FUN(X[[i]], ...)
 17.         └─datasets$get_data(x, filtered = TRUE)
 18.           └─shiny (local) data()
 19.             ├─shiny::..stacktraceoff..(self$.updateValue())
 20.             └─self$.updateValue()
 21.               └─ctx$run(...)
 22.                 ├─promises::with_promise_domain(...)
 23.                 │ └─domain$wrapSync(expr)
 24.                 ├─shiny::withReactiveDomain(...)
 25.                 │ └─promises::with_promise_domain(...)
 26.                 │   └─domain$wrapSync(expr)
 27.                 │     └─base::force(expr)
 28.                 └─env$runWith(self, func)
 29.                   └─shiny (local) contextFunc()
 30.                     ├─base::withCallingHandlers(...)
 31.                     ├─base::withVisible(.func())
 32.                     └─shiny (local) .func()
 33.                       ├─shiny::..stacktraceon..(`<reactive>`(...))
 34.                       └─teal.slice (local) `<reactive>`(...)
 35.                         └─private$data_filtered_fun()
 36.                           └─teal.slice:::eval_expr_with_msg(filter_call, env)
 37.                             └─base::lapply(...)
 38.                               └─teal.slice (local) FUN(X[[i]], ...)
 39.                                 └─base::tryCatch(...)
 40.                                   └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 41.                                     └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 42.                                       └─value[[3L]](cond)

Check failure on line 0 in module_nested_tabs

See this annotation in the file changed.

@github-actions github-actions / Unit Tests Summary

.datasets_to_data_returns_teal_data_object (module_nested_tabs) with error

teal.Rcheck/tests/testthat/junit-result.xml [took 0s]
Raw output
Error in `value[[3L]](cond)`: Call execution failed: ('test-module_nested_tabs.R:388:3')
Error in `value[[3L]](cond)`: Call execution failed:
 - call:
   d2 <- dplyr::inner_join(x = d2, y = d1[, c("id"), drop = FALSE], by = c(pk = "id"))
 - message:
   Error in `dplyr::inner_join()`:
! Join columns in `x` must be present in the data.
✖ Problem with `pk`.
 
Backtrace:
     ▆
  1. ├─shiny::isolate(.datasets_to_data(module, datasets)) at test-module_nested_tabs.R:388:3
  2. │ ├─shiny::..stacktraceoff..(...)
  3. │ └─ctx$run(...)
  4. │   ├─promises::with_promise_domain(...)
  5. │   │ └─domain$wrapSync(expr)
  6. │   ├─shiny::withReactiveDomain(...)
  7. │   │ └─promises::with_promise_domain(...)
  8. │   │   └─domain$wrapSync(expr)
  9. │   │     └─base::force(expr)
 10. │   └─env$runWith(self, func)
 11. │     └─shiny (local) contextFunc()
 12. │       └─shiny::..stacktraceon..(expr)
 13. └─teal:::.datasets_to_data(module, datasets)
 14.   └─base::sapply(...)
 15.     └─base::lapply(X = X, FUN = FUN, ...)
 16.       └─teal (local) FUN(X[[i]], ...)
 17.         └─datasets$get_data(x, filtered = TRUE)
 18.           └─shiny (local) data()
 19.             ├─shiny::..stacktraceoff..(self$.updateValue())
 20.             └─self$.updateValue()
 21.               └─ctx$run(...)
 22.                 ├─promises::with_promise_domain(...)
 23.                 │ └─domain$wrapSync(expr)
 24.                 ├─shiny::withReactiveDomain(...)
 25.                 │ └─promises::with_promise_domain(...)
 26.                 │   └─domain$wrapSync(expr)
 27.                 │     └─base::force(expr)
 28.                 └─env$runWith(self, func)
 29.                   └─shiny (local) contextFunc()
 30.                     ├─base::withCallingHandlers(...)
 31.                     ├─base::withVisible(.func())
 32.                     └─shiny (local) .func()
 33.                       ├─shiny::..stacktraceon..(`<reactive>`(...))
 34.                       └─teal.slice (local) `<reactive>`(...)
 35.                         └─private$data_filtered_fun()
 36.                           └─teal.slice:::eval_expr_with_msg(filter_call, env)
 37.                             └─base::lapply(...)
 38.                               └─teal.slice (local) FUN(X[[i]], ...)
 39.                                 └─base::tryCatch(...)
 40.                                   └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 41.                                     └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 42.                                       └─value[[3L]](cond)