[Bug]: When suggested packages shinytest2 is missing tests fail.

[llrs-roche]

What happened?

Tests should run ok without suggested packages.
Currently if shinytests2 is missing 27 tests fail: [ FAIL 27 | WARN 0 | SKIP 1 | PASS 260 ].

For example:

 ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-draggable_buckets.R:17:5'): e2e: teal.widgets::draggable_buckets: initializes without input ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-draggable_buckets.R:17:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)

sessionInfo()

Relevant log output

  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-draggable_buckets.R:17:5'): e2e: teal.widgets::draggable_buckets: initializes without input ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-draggable_buckets.R:17:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-draggable_buckets.R:45:5'): e2e: teal.widgets::draggable_buckets: initializes with default inputs ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-draggable_buckets.R:45:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-draggable_buckets.R:76:5'): e2e: teal.widgets::draggable_buckets: moving elements between buckets updates input ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-draggable_buckets.R:76:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-get_dt_rows_ui.R:49:5'): e2e: teal.widgets::get_dt_rows: rows are settable and visible ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-get_dt_rows_ui.R:49:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-optionalSelectInput_ui.R:96:5'): e2e: teal.widgets::optionalSelectInput: initializes ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-optionalSelectInput_ui.R:96:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-optionalSliderInputValMinMax_ui.R:17:5'): e2e: teal.widgets::optionalSliderInputValMinMax: initializes ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-optionalSliderInputValMinMax_ui.R:17:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-plot_with_settings_ui.R:130:5'): e2e: teal.widgets::plot_with_settings: initializes with a plot and the settings buttons ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-plot_with_settings_ui.R:130:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-plot_with_settings_ui.R:153:5'): e2e: teal.widgets::plot_with_settings: buttons have proper FA icons and two of them are dropdowns ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-plot_with_settings_ui.R:153:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-plot_with_settings_ui.R:214:5'): e2e: teal.widgets::plot_with_settings: the click on the expand button opens an overlay
    plot height, plot width, plot, download dropdown and dismiss button ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-plot_with_settings_ui.R:214:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-plot_with_settings_ui.R:255:5'): e2e: teal.widgets::plot_with_settings: the click on the download button in expand modal opens a download dropdown ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-plot_with_settings_ui.R:255:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-plot_with_settings_ui.R:294:5'): e2e: teal.widgets::plot_with_settings: the click on the resize button opens a dropdown menu
    plot height, plot width, plot, download dropdown and dismiss button ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-plot_with_settings_ui.R:294:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-plot_with_settings_ui.R:338:5'): e2e: teal.widgets::plot_with_settings: it is possible to set height and width for the plot
    on the third button dropdown menu without errors ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-plot_with_settings_ui.R:338:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-plot_with_settings_ui.R:367:5'): e2e teal.widgets::plot_with_settings: clicking download+download button downloads image in a specified format ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-plot_with_settings_ui.R:367:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-plot_with_settings_ui.R:388:3'): e2e teal.widgets::plot_with_settings: expanded image can be resized ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-plot_with_settings_ui.R:388:3
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-plot_with_settings_ui.R:443:3'): e2e teal.widgets::plot_with_settings: expanded image can be downloaded ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-plot_with_settings_ui.R:443:3
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-plot_with_settings_ui.R:466:3'): e2e teal.widgets::plot_with_settings: main image can be resized ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-plot_with_settings_ui.R:466:3
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-plot_with_settings_ui.R:514:3'): e2e teal.widgets::plot_with_settings: scrollbar appears when image is resized ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-plot_with_settings_ui.R:514:3
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-table_with_settings_ui.R:81:5'): e2e: teal.widgets::table_with_settings is initialized with 2 buttons and a table ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-table_with_settings_ui.R:81:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-table_with_settings_ui.R:104:5'): e2e: teal.widgets::table_with_settings: the click on the download button opens a download menu
    with file type, file name and download button ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-table_with_settings_ui.R:104:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-table_with_settings_ui.R:170:5'): e2e: teal.widgets::table_with_settings: check pagination appearance for .txt and disappearance for .csv
    for the first button ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-table_with_settings_ui.R:170:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-table_with_settings_ui.R:198:5'): e2e: teal.widgets::table_with_settings: the click on expand button opens a modal with a table ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-table_with_settings_ui.R:198:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-table_with_settings_ui.R:236:5'): e2e: teal.widgets::table_with_settings: clicking download in an expand modal opens dropdown menu with dwnl settings,
    such as: file type, file name, pagination ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-table_with_settings_ui.R:236:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-table_with_settings_ui.R:304:5'): e2e: teal.widgets::table_with_settings: check pagination appearance for .txt and disappearance for .csv
    for the modal on the second button ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-table_with_settings_ui.R:304:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-table_with_settings_ui.R:330:5'): e2e teal.widgets::table_with_settings: clicking download+download button downloads table in a specified format ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-table_with_settings_ui.R:330:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-table_with_settings_ui.R:355:3'): e2e teal.widgets::table_with_settings: expanded table can be downloaded ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-table_with_settings_ui.R:355:3
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-verbatim_popup_ui.R:38:5'): e2e: teal.widgets::verbatim_popup is initialized with a button that opens a modal with a verbatim text ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-verbatim_popup_ui.R:38:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-verbatim_popup_ui.R:120:5'): e2e: verbatim_popup button can be disabled and enabled ──
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shinytest2'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-verbatim_popup_ui.R:120:5
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  
  [ FAIL 27 | WARN 0 | SKIP 1 | PASS 260 ]

Code of Conduct

• I agree to follow this project's Code of Conduct.

Contribution Guidelines

• I agree to follow this project's Contribution Guidelines.

Security Policy

• I agree to follow this project's Security Policy.