Running ‘testthat.R’ [42s/61s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > pkg_name <- "teal.widgets"
  > library(pkg_name, character.only = TRUE)
  > testthat::test_check(pkg_name)
  Error in (function (cond)  : 
    error in evaluating the argument 'obj' in selecting a method for function 'matrix_form': argument "fontspec" is missing, with no default
  Error in (function (cond)  : 
    error in evaluating the argument 'obj' in selecting a method for function 'matrix_form': argument "fontspec" is missing, with no default
  Error in (function (cond)  : 
    error in evaluating the argument 'obj' in selecting a method for function 'matrix_form': argument "fontspec" is missing, with no default
  [ FAIL 9 | WARN 0 | SKIP 2 | PASS 178 ]
  
  ══ Skipped tests (2) ═══════════════════════════════════════════════════════════
  • On CRAN (2): 'test-plot_with_settings_ui.R:23:3',
    'test-table_with_settings_ui.R:21:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-table_with_settings.R:29:7'): table_with_settings_srv: hiding works ──
  Error in `nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)`: argument "fontspec" is missing, with no default
  Backtrace:
       ▆
    1. ├─shiny::testServer(...) at test-table_with_settings.R:25: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. │ │ │   └─env$runWith(self, func)
   13. │ │ │     └─shiny (local) contextFunc()
   14. │ │ │       └─shiny::..stacktraceon..(expr)
   15. │ │ ├─shiny::withReactiveDomain(...)
   16. │ │ │ └─promises::with_promise_domain(...)
   17. │ │ │   └─domain$wrapSync(expr)
   18. │ │ │     └─base::force(expr)
   19. │ │ └─withr::with_options(...)
   20. │ │   └─base::force(code)
   21. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
   22. ├─testthat::expect_silent(output$table_out_modal$html) at test-table_with_settings.R:29:7
   23. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
   24. │   ├─testthat (local) .capture(...)
   25. │   │ ├─withr::with_output_sink(...)
   26. │   │ │ └─base::force(code)
   27. │   │ ├─base::withCallingHandlers(...)
   28. │   │ └─base::withVisible(code)
   29. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   30. ├─output$table_out_modal
   31. └─shiny:::`$.shinyoutput`(output, table_out_modal)
   32.   └─.subset2(x, "impl")$getOutput(name)
  ── Error ('test-table_with_settings.R:39:7'): table_with_settings_srv: return html table ──
  Error in `nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)`: argument "fontspec" is missing, with no default
  Backtrace:
       ▆
    1. ├─shiny::testServer(...) at test-table_with_settings.R:35: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. │ │ │   └─env$runWith(self, func)
   13. │ │ │     └─shiny (local) contextFunc()
   14. │ │ │       └─shiny::..stacktraceon..(expr)
   15. │ │ ├─shiny::withReactiveDomain(...)
   16. │ │ │ └─promises::with_promise_domain(...)
   17. │ │ │   └─domain$wrapSync(expr)
   18. │ │ │     └─base::force(expr)
   19. │ │ └─withr::with_options(...)
   20. │ │   └─base::force(code)
   21. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
   22. ├─testthat::expect_s3_class(output$table_out_modal$html, "html") at test-table_with_settings.R:39:7
   23. │ └─testthat::quasi_label(enquo(object), arg = "object")
   24. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   25. ├─output$table_out_modal
   26. └─shiny:::`$.shinyoutput`(output, table_out_modal)
   27.   └─.subset2(x, "impl")$getOutput(name)
  ── Error ('test-table_with_settings.R:51:7'): table_with_settings_srv: expand works ──
  Error in `nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)`: argument "fontspec" is missing, with no default
  Backtrace:
       ▆
    1. ├─shiny::testServer(...) at test-table_with_settings.R:46: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. │ │ │   └─env$runWith(self, func)
   13. │ │ │     └─shiny (local) contextFunc()
   14. │ │ │       └─shiny::..stacktraceon..(expr)
   15. │ │ ├─shiny::withReactiveDomain(...)
   16. │ │ │ └─promises::with_promise_domain(...)
   17. │ │ │   └─domain$wrapSync(expr)
   18. │ │ │     └─base::force(expr)
   19. │ │ └─withr::with_options(...)
   20. │ │   └─base::force(code)
   21. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
   22. ├─testthat::expect_silent(output$table_out_modal) at test-table_with_settings.R:51:7
   23. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
   24. │   ├─testthat (local) .capture(...)
   25. │   │ ├─withr::with_output_sink(...)
   26. │   │ │ └─base::force(code)
   27. │   │ ├─base::withCallingHandlers(...)
   28. │   │ └─base::withVisible(code)
   29. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   30. ├─output$table_out_modal
   31. └─shiny:::`$.shinyoutput`(output, table_out_modal)
   32.   └─.subset2(x, "impl")$getOutput(name)
  ── Error ('test-table_with_settings.R:65:9'): type_download_srv_table: downloading different output types, custom name ──
  Error in `nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)`: argument "fontspec" is missing, with no default
  Backtrace:
       ▆
    1. ├─shiny::testServer(...) at test-table_with_settings.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. │ │ │   └─env$runWith(self, func)
   13. │ │ │     └─shiny (local) contextFunc()
   14. │ │ │       └─shiny::..stacktraceon..(expr)
   15. │ │ ├─shiny::withReactiveDomain(...)
   16. │ │ │ └─promises::with_promise_domain(...)
   17. │ │ │   └─domain$wrapSync(expr)
   18. │ │ │     └─base::force(expr)
   19. │ │ └─withr::with_options(...)
   20. │ │   └─base::force(code)
   21. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
   22. ├─testthat::expect_true(file.exists(output$data_download)) at test-table_with_settings.R:65:9
   23. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   24. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   25. ├─base::file.exists(output$data_download)
   26. ├─output$data_download
   27. └─shiny:::`$.shinyoutput`(output, data_download)
   28.   └─.subset2(x, "impl")$getOutput(name)
   29.     └─private$renderFile(self$ns(name), download)
   30.       └─download$content(file)
   31.         ├─rtables::export_as_txt(...)
   32.         │ └─formatters:::.is_list_of_tables_or_listings(x)
   33.         │   └─methods::is(a_list, "list")
   34.         └─shiny (local) table_reactive()
  ── Error ('test-table_with_settings.R:83:9'): type_download_srv_table: downloading different output types, no name ──
  Error in `nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)`: argument "fontspec" is missing, with no default
  Backtrace:
       ▆
    1. ├─shiny::testServer(...) at test-table_with_settings.R:76: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. │ │ │   └─env$runWith(self, func)
   13. │ │ │     └─shiny (local) contextFunc()
   14. │ │ │       └─shiny::..stacktraceon..(expr)
   15. │ │ ├─shiny::withReactiveDomain(...)
   16. │ │ │ └─promises::with_promise_domain(...)
   17. │ │ │   └─domain$wrapSync(expr)
   18. │ │ │     └─base::force(expr)
   19. │ │ └─withr::with_options(...)
   20. │ │   └─base::force(code)
   21. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
   22. ├─testthat::expect_true(file.exists(output$data_download)) at test-table_with_settings.R:83:9
   23. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   24. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   25. ├─base::file.exists(output$data_download)
   26. ├─output$data_download
   27. └─shiny:::`$.shinyoutput`(output, data_download)
   28.   └─.subset2(x, "impl")$getOutput(name)
   29.     └─private$renderFile(self$ns(name), download)
   30.       └─download$content(file)
   31.         ├─rtables::export_as_txt(...)
   32.         │ └─formatters:::.is_list_of_tables_or_listings(x)
   33.         │   └─methods::is(a_list, "list")
   34.         └─shiny (local) table_reactive()
  ── Error ('test-table_with_settings.R:102:9'): type_download_srv_table: downloading different output types, pagination ──
  Error in `nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)`: argument "fontspec" is missing, with no default
  Backtrace:
       ▆
    1. ├─shiny::testServer(...) at test-table_with_settings.R:93: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. │ │ │   └─env$runWith(self, func)
   13. │ │ │     └─shiny (local) contextFunc()
   14. │ │ │       └─shiny::..stacktraceon..(expr)
   15. │ │ ├─shiny::withReactiveDomain(...)
   16. │ │ │ └─promises::with_promise_domain(...)
   17. │ │ │   └─domain$wrapSync(expr)
   18. │ │ │     └─base::force(expr)
   19. │ │ └─withr::with_options(...)
   20. │ │   └─base::force(code)
   21. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
   22. ├─testthat::expect_true(file.exists(output$data_download)) at test-table_with_settings.R:102:9
   23. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   24. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   25. ├─base::file.exists(output$data_download)
   26. ├─output$data_download
   27. └─shiny:::`$.shinyoutput`(output, data_download)
   28.   └─.subset2(x, "impl")$getOutput(name)
   29.     └─private$renderFile(self$ns(name), download)
   30.       └─download$content(file)
   31.         ├─rtables::export_as_txt(...)
   32.         │ └─formatters:::.is_list_of_tables_or_listings(x)
   33.         │   └─methods::is(a_list, "list")
   34.         └─shiny (local) table_reactive()
  ── Failure ('test-table_with_settings.R:113:3'): type_download_srv_table: pagination, lpp to small ──
  `shiny::testServer(...)` threw an error with unexpected message.
  Expected match: "Lines of repeated context"
  Actual message: "argument \"fontspec\" is missing, with no default"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-table_with_settings.R:113: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. ├─shiny::testServer(...)
    7. │ ├─shiny:::withMockContext(...)
    8. │ │ ├─shiny::isolate(...)
    9. │ │ │ ├─shiny::..stacktraceoff..(...)
   10. │ │ │ └─ctx$run(...)
   11. │ │ │   ├─promises::with_promise_domain(...)
   12. │ │ │   │ └─domain$wrapSync(expr)
   13. │ │ │   ├─shiny::withReactiveDomain(...)
   14. │ │ │   │ └─promises::with_promise_domain(...)
   15. │ │ │   │   └─domain$wrapSync(expr)
   16. │ │ │   │     └─base::force(expr)
   17. │ │ │   └─env$runWith(self, func)
   18. │ │ │     └─shiny (local) contextFunc()
   19. │ │ │       └─shiny::..stacktraceon..(expr)
   20. │ │ ├─shiny::withReactiveDomain(...)
   21. │ │ │ └─promises::with_promise_domain(...)
   22. │ │ │   └─domain$wrapSync(expr)
   23. │ │ │     └─base::force(expr)
   24. │ │ └─withr::with_options(...)
   25. │ │   └─base::force(code)
   26. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
   27. ├─testthat::expect_true(file.exists(output$data_download)) at test-table_with_settings.R:122:11
   28. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   29. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   30. ├─base::file.exists(output$data_download)
   31. ├─output$data_download
   32. └─shiny:::`$.shinyoutput`(output, data_download)
   33.   └─.subset2(x, "impl")$getOutput(name)
   34.     └─private$renderFile(self$ns(name), download)
   35.       └─download$content(file)
   36.         ├─rtables::export_as_txt(...)
   37.         │ └─formatters:::.is_list_of_tables_or_listings(x)
   38.         │   └─methods::is(a_list, "list")
   39.         └─shiny (local) table_reactive()
  ── Error ('test-table_with_settings.R:138:7'): type_download_srv_table: content of the table, csv ──
  Error in `(function (cond) 
  .Internal(C_tryCatchHelper(addr, 1L, cond)))(structure(list(message = "argument \"fontspec\" is missing, with no default", 
      call = nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)), class = c("simpleError", 
  "error", "condition")))`: error in evaluating the argument 'obj' in selecting a method for function 'matrix_form': argument "fontspec" is missing, with no default
  Backtrace:
       ▆
    1. ├─shiny::testServer(...) at test-table_with_settings.R:131: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. │ │ │   └─env$runWith(self, func)
   13. │ │ │     └─shiny (local) contextFunc()
   14. │ │ │       └─shiny::..stacktraceon..(expr)
   15. │ │ ├─shiny::withReactiveDomain(...)
   16. │ │ │ └─promises::with_promise_domain(...)
   17. │ │ │   └─domain$wrapSync(expr)
   18. │ │ │     └─base::force(expr)
   19. │ │ └─withr::with_options(...)
   20. │ │   └─base::force(code)
   21. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
   22. ├─utils::read.csv(output$data_download) at test-table_with_settings.R:138:7
   23. │ └─utils::read.table(...)
   24. ├─output$data_download
   25. ├─shiny:::`$.shinyoutput`(output, data_download)
   26. │ └─.subset2(x, "impl")$getOutput(name)
   27. │   └─private$renderFile(self$ns(name), download)
   28. │     └─download$content(file)
   29. │       ├─rtables::matrix_form(table_reactive())
   30. │       └─shiny (local) table_reactive()
   31. │         └─base::stop(.value)
   32. └─base (local) `<fn>`(`<smplErrr>`)
  ── Error ('test-table_with_settings.R:161:7'): type_download_srv_table: content of the table, txt ──
  Error in `nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)`: argument "fontspec" is missing, with no default
  Backtrace:
       ▆
    1. ├─shiny::testServer(...) at test-table_with_settings.R:154: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. │ │ │   └─env$runWith(self, func)
   13. │ │ │     └─shiny (local) contextFunc()
   14. │ │ │       └─shiny::..stacktraceon..(expr)
   15. │ │ ├─shiny::withReactiveDomain(...)
   16. │ │ │ └─promises::with_promise_domain(...)
   17. │ │ │   └─domain$wrapSync(expr)
   18. │ │ │     └─base::force(expr)
   19. │ │ └─withr::with_options(...)
   20. │ │   └─base::force(code)
   21. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
   22. ├─utils::read.delim(output$data_download, sep = "") at test-table_with_settings.R:161:7
   23. │ └─utils::read.table(...)
   24. ├─output$data_download
   25. └─shiny:::`$.shinyoutput`(output, data_download)
   26.   └─.subset2(x, "impl")$getOutput(name)
   27.     └─private$renderFile(self$ns(name), download)
   28.       └─download$content(file)
   29.         ├─rtables::export_as_txt(...)
   30.         │ └─formatters:::.is_list_of_tables_or_listings(x)
   31.         │   └─methods::is(a_list, "list")
   32.         └─shiny (local) table_reactive()
  
  [ FAIL 9 | WARN 0 | SKIP 2 | PASS 178 ]
  Deleting unused snapshots:
  • app_pws_ui/plot_with_settings_ui/pws-download_menu.png
  • app_pws_ui/plot_with_settings_ui/pws-hidden.png
  • app_pws_ui/plot_with_settings_ui/pws-resize_menu.png
  • app_pws_ui/plot_with_settings_ui/pws-visible.png
  • app_tws_ui/table_with_settings_ui/tws-final_values.json
  Error: Test failures
  Execution halted