From f23c3bf50640e42adfff3cdbbc261f1645fd06f7 Mon Sep 17 00:00:00 2001
From: averissimo <averissimo@users.noreply.github.com>
Date: Fri, 20 Dec 2024 09:30:43 +0000
Subject: [PATCH] deploy: 30ef669aab484de5e9d4abadc49cdde37ff0f4f8

---
 coverage-report/index.html | 42179 ++++++++++++++++++-----------------
 1 file changed, 21100 insertions(+), 21079 deletions(-)

diff --git a/coverage-report/index.html b/coverage-report/index.html
index 47108b793..b3c6af759 100644
--- a/coverage-report/index.html
+++ b/coverage-report/index.html
@@ -107,19 +107,19 @@ <h2>teal coverage - 60.02%</h2>
       </ul>
       <div class="tab-content" data-tabsetid="covr">
         <div class="tab-pane active" title="Files" data-value="Files" id="tab-covr-1">
-          <div class="datatables html-widget html-fill-item" id="htmlwidget-62c813b4e7912338c354" style="width:100%;height:500px;"></div>
-          <script type="application/json" data-for="htmlwidget-62c813b4e7912338c354">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/TealAppDriver.R<\/a>","<a href=\"#\">R/show_rcode_modal.R<\/a>","<a href=\"#\">R/landing_popup_module.R<\/a>","<a href=\"#\">R/tdata.R<\/a>","<a href=\"#\">R/module_teal_with_splash.R<\/a>","<a href=\"#\">R/module_bookmark_manager.R<\/a>","<a href=\"#\">R/include_css_js.R<\/a>","<a href=\"#\">R/zzz.R<\/a>","<a href=\"#\">R/module_snapshot_manager.R<\/a>","<a href=\"#\">R/validations.R<\/a>","<a href=\"#\">R/module_teal_data.R<\/a>","<a href=\"#\">R/module_teal.R<\/a>","<a href=\"#\">R/init.R<\/a>","<a href=\"#\">R/module_teal_lockfile.R<\/a>","<a href=\"#\">R/module_nested_tabs.R<\/a>","<a href=\"#\">R/module_filter_manager.R<\/a>","<a href=\"#\">R/modules.R<\/a>","<a href=\"#\">R/module_data_summary.R<\/a>","<a href=\"#\">R/dummy_functions.R<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/reporter_previewer_module.R<\/a>","<a href=\"#\">R/teal_reporter.R<\/a>","<a href=\"#\">R/module_transform_data.R<\/a>","<a href=\"#\">R/module_filter_data.R<\/a>","<a href=\"#\">R/module_init_data.R<\/a>","<a href=\"#\">R/teal_slices.R<\/a>","<a href=\"#\">R/teal_transform_module.R<\/a>","<a href=\"#\">R/validate_inputs.R<\/a>","<a href=\"#\">R/teal_slices-store.R<\/a>","<a href=\"#\">R/checkmate.R<\/a>","<a href=\"#\">R/teal_data_module.R<\/a>","<a href=\"#\">R/teal_data_module-eval_code.R<\/a>","<a href=\"#\">R/teal_data_utils.R<\/a>","<a href=\"#\">R/get_rcode_utils.R<\/a>","<a href=\"#\">R/teal_data_module-within.R<\/a>"],[738,43,88,62,39,327,83,40,360,379,253,286,248,201,396,390,754,277,102,484,48,190,149,111,144,177,226,190,68,49,83,59,35,28,42],[293,19,19,12,10,135,18,13,166,47,110,154,83,100,177,180,238,146,51,197,16,61,85,48,57,50,34,27,22,20,16,15,10,10,7],[0,0,0,0,0,27,4,3,42,17,51,84,49,60,113,133,178,117,42,171,14,55,81,46,57,50,34,27,22,20,16,15,10,10,7],[293,19,19,12,10,108,14,10,124,30,59,70,34,40,64,47,60,29,9,26,2,6,4,2,0,0,0,0,0,0,0,0,0,0,0],["0","0","0","0","0","22","20","0","19","3","39","35","7","19","62","75","56","49","13","43","3","4","17","103","74","78","12","51","8","126","28","5","89","4","2"],["0.00%","0.00%","0.00%","0.00%","0.00%","20.00%","22.22%","23.08%","25.30%","36.17%","46.36%","54.55%","59.04%","60.00%","63.84%","73.89%","74.79%","80.14%","82.35%","86.80%","87.50%","90.16%","95.29%","95.83%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%"]],"container":"<table class=\"row-border\">\n  <thead>\n    <tr>\n      <th>File<\/th>\n      <th>Lines<\/th>\n      <th>Relevant<\/th>\n      <th>Covered<\/th>\n      <th>Missed<\/th>\n      <th>Hits / Line<\/th>\n      <th>Coverage<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"searching":false,"dom":"t","paging":false,"columnDefs":[{"targets":6,"createdCell":"function(td, cellData, rowData, row, col) {\n  var percent = cellData.replace(\"%\", \"\");\n  if (percent > 90) {\n    var grad = \"linear-gradient(90deg, #edfde7 \" + cellData + \", white \" + cellData + \")\";\n  } else if (percent > 75) {\n    var grad = \"linear-gradient(90deg, #f9ffe5 \" + cellData + \", white \" + cellData + \")\";\n  } else {\n    var grad = \"linear-gradient(90deg, #fcece9 \" + cellData + \", white \" + cellData + \")\";\n  }\n  $(td).css(\"background\", grad);\n}\n"},{"className":"dt-right","targets":[1,2,3,4]},{"name":"File","targets":0},{"name":"Lines","targets":1},{"name":"Relevant","targets":2},{"name":"Covered","targets":3},{"name":"Missed","targets":4},{"name":"Hits / Line","targets":5},{"name":"Coverage","targets":6}],"order":[],"autoWidth":false,"orderClasses":false},"callback":"function(table) {\ntable.on('click.dt', 'a', function() {\n  files = $('div#files div');\n  files.not('div.hidden').addClass('hidden');\n  id = $(this).text();\n  files.filter('div[id=\\'' + id + '\\']').removeClass('hidden');\n  $('ul.nav a[data-value=Source]').text(id).tab('show');\n});\n}","selection":{"mode":"multiple","selected":null,"target":"row","selectable":null}},"evals":["options.columnDefs.0.createdCell","callback"],"jsHooks":[]}</script>
+          <div class="datatables html-widget html-fill-item" id="htmlwidget-b1b85477ec7ec91c15e2" style="width:100%;height:500px;"></div>
+          <script type="application/json" data-for="htmlwidget-b1b85477ec7ec91c15e2">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/TealAppDriver.R<\/a>","<a href=\"#\">R/landing_popup_module.R<\/a>","<a href=\"#\">R/show_rcode_modal.R<\/a>","<a href=\"#\">R/tdata.R<\/a>","<a href=\"#\">R/module_teal_with_splash.R<\/a>","<a href=\"#\">R/module_bookmark_manager.R<\/a>","<a href=\"#\">R/include_css_js.R<\/a>","<a href=\"#\">R/zzz.R<\/a>","<a href=\"#\">R/module_snapshot_manager.R<\/a>","<a href=\"#\">R/validations.R<\/a>","<a href=\"#\">R/module_teal_data.R<\/a>","<a href=\"#\">R/module_teal.R<\/a>","<a href=\"#\">R/init.R<\/a>","<a href=\"#\">R/module_teal_lockfile.R<\/a>","<a href=\"#\">R/module_nested_tabs.R<\/a>","<a href=\"#\">R/module_filter_manager.R<\/a>","<a href=\"#\">R/modules.R<\/a>","<a href=\"#\">R/module_data_summary.R<\/a>","<a href=\"#\">R/dummy_functions.R<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/reporter_previewer_module.R<\/a>","<a href=\"#\">R/teal_reporter.R<\/a>","<a href=\"#\">R/module_transform_data.R<\/a>","<a href=\"#\">R/module_filter_data.R<\/a>","<a href=\"#\">R/module_init_data.R<\/a>","<a href=\"#\">R/teal_slices.R<\/a>","<a href=\"#\">R/teal_transform_module.R<\/a>","<a href=\"#\">R/validate_inputs.R<\/a>","<a href=\"#\">R/teal_slices-store.R<\/a>","<a href=\"#\">R/checkmate.R<\/a>","<a href=\"#\">R/teal_data_module.R<\/a>","<a href=\"#\">R/teal_data_module-eval_code.R<\/a>","<a href=\"#\">R/teal_data_utils.R<\/a>","<a href=\"#\">R/get_rcode_utils.R<\/a>","<a href=\"#\">R/teal_data_module-within.R<\/a>"],[741,88,43,62,39,327,83,40,360,379,253,286,248,201,396,390,754,277,102,484,48,190,149,111,144,177,226,190,68,49,83,59,35,28,42],[293,19,19,12,10,135,18,13,166,47,110,154,83,100,177,180,238,146,51,197,16,61,85,48,57,50,34,27,22,20,16,15,10,10,7],[0,0,0,0,0,27,4,3,42,17,51,84,49,60,113,133,178,117,42,171,14,55,81,46,57,50,34,27,22,20,16,15,10,10,7],[293,19,19,12,10,108,14,10,124,30,59,70,34,40,64,47,60,29,9,26,2,6,4,2,0,0,0,0,0,0,0,0,0,0,0],["0","0","0","0","0","22","20","0","19","3","39","35","7","19","62","75","56","49","13","43","3","4","17","103","74","78","12","51","8","126","28","5","89","4","2"],["0.00%","0.00%","0.00%","0.00%","0.00%","20.00%","22.22%","23.08%","25.30%","36.17%","46.36%","54.55%","59.04%","60.00%","63.84%","73.89%","74.79%","80.14%","82.35%","86.80%","87.50%","90.16%","95.29%","95.83%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%"]],"container":"<table class=\"row-border\">\n  <thead>\n    <tr>\n      <th>File<\/th>\n      <th>Lines<\/th>\n      <th>Relevant<\/th>\n      <th>Covered<\/th>\n      <th>Missed<\/th>\n      <th>Hits / Line<\/th>\n      <th>Coverage<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"searching":false,"dom":"t","paging":false,"columnDefs":[{"targets":6,"createdCell":"function(td, cellData, rowData, row, col) {\n  var percent = cellData.replace(\"%\", \"\");\n  if (percent > 90) {\n    var grad = \"linear-gradient(90deg, #edfde7 \" + cellData + \", white \" + cellData + \")\";\n  } else if (percent > 75) {\n    var grad = \"linear-gradient(90deg, #f9ffe5 \" + cellData + \", white \" + cellData + \")\";\n  } else {\n    var grad = \"linear-gradient(90deg, #fcece9 \" + cellData + \", white \" + cellData + \")\";\n  }\n  $(td).css(\"background\", grad);\n}\n"},{"className":"dt-right","targets":[1,2,3,4]},{"name":"File","targets":0},{"name":"Lines","targets":1},{"name":"Relevant","targets":2},{"name":"Covered","targets":3},{"name":"Missed","targets":4},{"name":"Hits / Line","targets":5},{"name":"Coverage","targets":6}],"order":[],"autoWidth":false,"orderClasses":false},"callback":"function(table) {\ntable.on('click.dt', 'a', function() {\n  files = $('div#files div');\n  files.not('div.hidden').addClass('hidden');\n  id = $(this).text();\n  files.filter('div[id=\\'' + id + '\\']').removeClass('hidden');\n  $('ul.nav a[data-value=Source]').text(id).tab('show');\n});\n}","selection":{"mode":"multiple","selected":null,"target":"row","selectable":null}},"evals":["options.columnDefs.0.createdCell","callback"],"jsHooks":[]}</script>
         </div>
         <div class="tab-pane" title="Source" data-value="Source" id="tab-covr-2">
           <div id="files">
-            <div id="R/module_snapshot_manager.R" class="hidden">
+            <div id="R/module_filter_data.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Filter state snapshot management</pre>
+                      <pre class="language-r">#' Filter panel module in teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -133,24278 +133,23614 @@ <h2>teal coverage - 60.02%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Capture and restore snapshots of the global (app) filter state.</pre>
+                      <pre class="language-r">#' Creates filter panel module from `teal_data` object and returns `teal_data`. It is build in a way</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' that filter panel changes and anything what happens before (e.g. [`module_init_data`]) is triggering</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module introduces snapshots: stored descriptions of the filter state of the entire application.</pre>
+                      <pre class="language-r">#' further reactive events only if something has changed and if the module is visible. Thanks to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Snapshots allow the user to save the current filter state of the application for later use in the session,</pre>
+                      <pre class="language-r">#' this special implementation all modules' data are recalculated only for those modules which are</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as well as to save it to file in order to share it with an app developer or other users,</pre>
+                      <pre class="language-r">#' currently displayed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' who in turn can upload it to their own session.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A `eventReactive` containing `teal_data` containing filtered objects and filter code.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The snapshot manager is accessed with the camera icon in the tabset bar.</pre>
+                      <pre class="language-r">#' `eventReactive` triggers only if all conditions are met:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' At the beginning of a session it presents three icons: a camera, an upload, and an circular arrow.</pre>
+                      <pre class="language-r">#'  - tab is selected (`is_active`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Clicking the camera captures a snapshot, clicking the upload adds a snapshot from a file</pre>
+                      <pre class="language-r">#'  - when filters are changed (`get_filter_expr` is different than previous)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and applies the filter states therein, and clicking the arrow resets initial application state.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' As snapshots are added, they will show up as rows in a table and each will have a select button and a save button.</pre>
+                      <pre class="language-r">#' @inheritParams module_teal_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param active_datanames (`reactive` returning `character`) this module's data names</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Server logic:</pre>
+                      <pre class="language-r">#' @name module_filter_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Snapshots are basically `teal_slices` objects, however, since each module is served by a separate instance</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of `FilteredData` and these objects require shared state, `teal_slice` is a `reactiveVal` so `teal_slices`</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' cannot be stored as is. Therefore, `teal_slices` are reversibly converted to a list of lists representation</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (attributes are maintained).</pre>
+                      <pre class="language-r">#' @rdname module_filter_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">ui_filter_data &lt;- function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">22</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Snapshots are stored in a `reactiveVal` as a named list.</pre>
+                      <pre class="language-r">  ns &lt;- shiny::NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">23</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The first snapshot is the initial state of the application and the user can add a snapshot whenever they see fit.</pre>
+                      <pre class="language-r">  uiOutput(ns("panel"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For every snapshot except the initial one, a piece of UI is generated that contains</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the snapshot name, a select button to restore that snapshot, and a save button to save it to a file.</pre>
+                      <pre class="language-r">#' @rdname module_filter_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The initial snapshot is restored by a separate "reset" button.</pre>
+                      <pre class="language-r">srv_filter_data &lt;- function(id, datasets, active_datanames, data, is_active) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">28</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It cannot be saved directly but a user is welcome to capture the initial state as a snapshot and save that.</pre>
+                      <pre class="language-r">  assert_reactive(datasets)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">29</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">30</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Snapshot mechanics:</pre>
+                      <pre class="language-r">    active_corrected &lt;- reactive(intersect(active_datanames(), datasets()$datanames()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' When a snapshot is captured, the user is prompted to name it.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">32</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Names are displayed as is but since they are used to create button ids,</pre>
+                      <pre class="language-r">    output$panel &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">33</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' under the hood they are converted to syntactically valid strings.</pre>
+                      <pre class="language-r">      req(inherits(datasets(), "FilteredData"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">34</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' New snapshot names are validated so that their valid versions are unique.</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Leading and trailing white space is trimmed.</pre>
+                      <pre class="language-r">        # render will be triggered only when FilteredData object changes (not when filters change)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        # technically it means that teal_data_module needs to be refreshed</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">37</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The module can read the global state of the application from `slices_global` and `mapping_matrix`.</pre>
+                      <pre class="language-r">        logger::log_debug("srv_filter_panel rendering filter panel.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">38</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The former provides a list of all existing `teal_slice`s and the latter says which slice is active in which module.</pre>
+                      <pre class="language-r">        if (length(active_corrected())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">39</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Once a name has been accepted, `slices_global` is converted to a list of lists - a snapshot.</pre>
+                      <pre class="language-r">          datasets()$srv_active("filters", active_datanames = active_corrected)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">40</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The snapshot contains the `mapping` attribute of the initial application state</pre>
+                      <pre class="language-r">          datasets()$ui_active(session$ns("filters"), active_datanames = active_corrected)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (or one that has been restored), which may not reflect the current one,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' so `mapping_matrix` is transformed to obtain the current mapping, i.e. a list that,</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' when passed to the `mapping` argument of [teal_slices()], would result in the current mapping.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is substituted as the snapshot's `mapping` attribute and the snapshot is added to the snapshot list.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">45</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    trigger_data &lt;- .observe_active_filter_changed(datasets, is_active, active_corrected, data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To restore app state, a snapshot is retrieved from storage and rebuilt into a `teal_slices` object.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">47</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Then state of all `FilteredData` objects (provided in `datasets`) is cleared</pre>
+                      <pre class="language-r">    eventReactive(trigger_data(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and set anew according to the `mapping` attribute of the snapshot.</pre>
+                      <pre class="language-r">      .make_filtered_teal_data(modules, data = data(), datasets = datasets(), datanames = active_corrected())</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The snapshot is then set as the current content of `slices_global`.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To save a snapshot, the snapshot is retrieved and reassembled just like for restoring,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and then saved to file with [slices_store()].</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @rdname module_filter_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' When a snapshot is uploaded, it will first be added to storage just like a newly created one,</pre>
+                      <pre class="language-r">.make_filtered_teal_data &lt;- function(modules, data, datasets = NULL, datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and then used to restore app state much like a snapshot taken from storage.</pre>
+                      <pre class="language-r">  data &lt;- eval_code(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Upon clicking the upload icon the user will be prompted for a file to upload</pre>
+                      <pre class="language-r">    data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and may choose to name the new snapshot. The name defaults to the name of the file (the extension is dropped)</pre>
+                      <pre class="language-r">    paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and normal naming rules apply. Loading the file yields a `teal_slices` object,</pre>
+                      <pre class="language-r">      ".raw_data &lt;- list2env(list(",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' which is disassembled for storage and used directly for restoring app state.</pre>
+                      <pre class="language-r">      toString(sprintf("%1$s = %1$s", sapply(datanames, as.name))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      "))\n",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Transferring snapshots:</pre>
+                      <pre class="language-r">      "lockEnvironment(.raw_data) # @linksto .raw_data" # this is environment and it is shared by qenvs. CAN'T MODIFY!</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Snapshots uploaded from disk should only be used in the same application they come from,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' _i.e._ an application that uses the same data and the same modules.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To ensure this is the case, `init` stamps `teal_slices` with an app id that is stored in the `app_id` attribute of</pre>
+                      <pre class="language-r">  filtered_code &lt;- .get_filter_expr(datasets = datasets, datanames = datanames)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a `teal_slices` object. When a snapshot is restored from file, its `app_id` is compared to that</pre>
+                      <pre class="language-r">  filtered_teal_data &lt;- .append_evaluated_code(data, filtered_code)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of the current app state and only if the match is the snapshot admitted to the session.</pre>
+                      <pre class="language-r">  filtered_datasets &lt;- sapply(datanames, function(x) datasets$get_data(x, filtered = TRUE), simplify = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  filtered_teal_data &lt;- .append_modified_data(filtered_teal_data, filtered_datasets)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Bookmarks:</pre>
+                      <pre class="language-r">  filtered_teal_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' An `onBookmark` callback creates a snapshot of the current filter state.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is done on the app session, not the module session.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (The snapshot will be retrieved by `module_teal` in order to set initial app state in a restored app.)</pre>
+                      <pre class="language-r">#' @rdname module_filter_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Then that snapshot, and the previous snapshot history are dumped into the `values.rds` file in `&lt;bookmark_dir&gt;`.</pre>
+                      <pre class="language-r">.observe_active_filter_changed &lt;- function(datasets, is_active, active_datanames, data) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  previous_signature &lt;- reactiveVal(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">  filter_changed &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">195<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param slices_global (`reactiveVal`) that contains a `teal_slices` object</pre>
+                      <pre class="language-r">    req(inherits(datasets(), "FilteredData"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">195<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'                      containing all `teal_slice`s existing in the app, both active and inactive.</pre>
+                      <pre class="language-r">    new_signature &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">195<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      teal.code::get_code(data()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">195<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `list` containing the snapshot history, where each element is an unlisted `teal_slices` object.</pre>
+                      <pre class="language-r">      .get_filter_expr(datasets = datasets(), datanames = active_datanames())</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">195<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_snapshot_manager</pre>
+                      <pre class="language-r">    if (!identical(previous_signature(), new_signature)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_snapshot_manager</pre>
+                      <pre class="language-r">      previous_signature(new_signature)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author Aleksander Chlebowski</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_snapshot_manager</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_snapshot_manager_panel &lt;- function(id) {</pre>
+                      <pre class="language-r">  trigger_data &lt;- reactiveVal(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">89</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">  observe({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$button(</pre>
+                      <pre class="language-r">    if (isTRUE(is_active() &amp;&amp; filter_changed())) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = ns("show_snapshot_manager"),</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">92</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "btn action-button wunder_bar_button",</pre>
+                      <pre class="language-r">        if (is.null(trigger_data())) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title = "View filter mapping",</pre>
+                      <pre class="language-r">          trigger_data(0)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    suppressMessages(icon("fas fa-camera"))</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          trigger_data(trigger_data() + 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_snapshot_manager</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_snapshot_manager_panel &lt;- function(id, slices_global) {</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_debug("srv_snapshot_manager_panel initializing")</pre>
+                      <pre class="language-r">  trigger_data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    setBookmarkExclude(c("show_snapshot_manager"))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">103</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$show_snapshot_manager, {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">104</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager_panel@1 show_snapshot_manager button has been clicked.")</pre>
+                      <pre class="language-r">#' @rdname module_filter_data</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">105</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      showModal(</pre>
+                      <pre class="language-r">.get_filter_expr &lt;- function(datasets, datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">284<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modalDialog(</pre>
+                      <pre class="language-r">  if (length(datanames)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">278<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ui_snapshot_manager(session$ns("module")),</pre>
+                      <pre class="language-r">    teal.slice::get_filter_expr(datasets = datasets, datanames = datanames)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">108</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "snapshot_manager_modal",</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size = "m",</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">110</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          footer = NULL,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">111</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          easyClose = TRUE</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_teal.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' `teal` main module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_snapshot_manager("module", slices_global = slices_global)</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#' Module to create a `teal` app. This module can be called directly instead of [init()] and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' included in your custom application. Please note that [init()] adds `reporter_previewer_module`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' automatically, which is not a case when calling `ui/srv_teal` directly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_snapshot_manager</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_snapshot_manager &lt;- function(id) {</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">121</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">122</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$div(</pre>
+                      <pre class="language-r">#' Module is responsible for creating the main `shiny` app layout and initializing all the necessary</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">123</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    class = "manager_content",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">124</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">125</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      class = "manager_table_row",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">126</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      tags$span(tags$b("Snapshot manager")),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">127</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      actionLink(ns("snapshot_add"), label = NULL, icon = icon("fas fa-camera"), title = "add snapshot"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">128</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      actionLink(ns("snapshot_load"), label = NULL, icon = icon("fas fa-upload"), title = "upload snapshot"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">129</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      actionLink(ns("snapshot_reset"), label = NULL, icon = icon("fas fa-undo"), title = "reset initial state"),</pre>
+                      <pre class="language-r">#' components. This module establishes reactive connection between the input `data` and every other</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">130</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      NULL</pre>
+                      <pre class="language-r">#' component in the app. Reactive change of the `data` passed as an argument, reloads the app and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#' possibly keeps all input settings the same so the user can continue where one left off.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">132</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    uiOutput(ns("snapshot_list"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' ## data flow in `teal` application</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' This module supports multiple data inputs but eventually, they are all converted to `reactive`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_snapshot_manager</pre>
+                      <pre class="language-r">#' returning `teal_data` in this module. On this `reactive teal_data` object several actions are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_snapshot_manager &lt;- function(id, slices_global) {</pre>
+                      <pre class="language-r">#' performed:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(id)</pre>
+                      <pre class="language-r">#' - data loading in [`module_init_data`]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - data filtering in [`module_filter_data`]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">#' - data transformation in [`module_transform_data`]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_debug("srv_snapshot_manager initializing")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' ## Fallback on failure</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Set up bookmarking callbacks ----</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Register bookmark exclusions (all buttons and text fields).</pre>
+                      <pre class="language-r">#' `teal` is designed in such way that app will never crash if the error is introduced in any</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    setBookmarkExclude(c(</pre>
+                      <pre class="language-r">#' custom `shiny` module provided by app developer (e.g. [teal_data_module()], [teal_transform_module()]).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "snapshot_add", "snapshot_load", "snapshot_reset",</pre>
+                      <pre class="language-r">#' If any module returns a failing object, the app will halt the evaluation and display a warning message.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "snapshot_name_accept", "snaphot_file_accept",</pre>
+                      <pre class="language-r">#' App user should always have a chance to fix the improper input and continue without restarting the session.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "snapshot_name", "snapshot_file"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#' @rdname module_teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Add snapshot history to bookmark.</pre>
+                      <pre class="language-r">#' @name module_teal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    session$onBookmark(function(state) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">152</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager@onBookmark: storing snapshot and bookmark history")</pre>
+                      <pre class="language-r">#' @inheritParams module_init_data</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">153</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      state$values$snapshot_history &lt;- snapshot_history() # isolate this?</pre>
+                      <pre class="language-r">#' @inheritParams init</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return `NULL` invisibly</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ns &lt;- session$ns</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Track global filter states ----</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    snapshot_history &lt;- reactiveVal({</pre>
+                      <pre class="language-r">#' @rdname module_teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Restore directly from bookmarked state, if applicable.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      restoreValue(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ns("snapshot_history"),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list("Initial application state" = shiny::isolate(as.list(slices_global$all_slices(), recursive = TRUE)))</pre>
+                      <pre class="language-r">ui_teal &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                    modules,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">                    title = build_app_title(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    header = tags$p(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Snapshot current application state ----</pre>
+                      <pre class="language-r">                    footer = tags$p()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">48</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Name snaphsot.</pre>
+                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">49</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$snapshot_add, {</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">170</td>
+                    <td class="num">50</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot_add button clicked")</pre>
+                      <pre class="language-r">    .var.name = "title",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">171</td>
+                    <td class="num">51</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      showModal(</pre>
+                      <pre class="language-r">    checkmate::check_string(title),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">172</td>
+                    <td class="num">52</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modalDialog(</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(title, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">173</td>
+                    <td class="num">54</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          textInput(ns("snapshot_name"), "Name the snapshot", width = "100%", placeholder = "Meaningful, unique name"),</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">174</td>
+                    <td class="num">55</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          footer = tagList(</pre>
+                      <pre class="language-r">    .var.name = "header",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">175</td>
+                    <td class="num">56</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            actionButton(ns("snapshot_name_accept"), "Accept", icon = icon("far fa-thumbs-up")),</pre>
+                      <pre class="language-r">    checkmate::check_string(header),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">176</td>
+                    <td class="num">57</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            modalButton(label = "Cancel", icon = icon("far fa-thumbs-down"))</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(header, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">178</td>
+                    <td class="num">59</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size = "s"</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">60</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    .var.name = "footer",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">61</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    checkmate::check_string(footer),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">62</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(footer, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Store snaphsot.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$snapshot_name_accept, {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">184</td>
+                    <td class="num">65</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot_name_accept button clicked")</pre>
+                      <pre class="language-r">  if (is.character(title)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">185</td>
+                    <td class="num">66</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      snapshot_name &lt;- trimws(input$snapshot_name)</pre>
+                      <pre class="language-r">    title &lt;- build_app_title(title)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">186</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(snapshot_name, "")) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">187</td>
+                    <td class="num">68</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: snapshot name rejected")</pre>
+                      <pre class="language-r">    validate_app_title_tag(title)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">188</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        showNotification(</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">189</td>
+                    <td class="num">71</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Please name the snapshot.",</pre>
+                      <pre class="language-r">  if (checkmate::test_string(header)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">190</td>
+                    <td class="num">72</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = "message"</pre>
+                      <pre class="language-r">    header &lt;- tags$p(header)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">192</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">193</td>
+                    <td class="num">75</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (is.element(make.names(snapshot_name), make.names(names(snapshot_history())))) {</pre>
+                      <pre class="language-r">  if (checkmate::test_string(footer)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">76</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: snapshot name rejected")</pre>
+                      <pre class="language-r">    footer &lt;- tags$p(footer)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">195</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        showNotification(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">196</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "This name is in conflict with other snapshot names. Please choose a different one.",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">197</td>
+                    <td class="num">79</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = "message"</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">199</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">  # show busy icon when `shiny` session is busy computing stuff</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">201</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: snapshot name accepted, adding snapshot")</pre>
+                      <pre class="language-r">  # based on https://stackoverflow.com/questions/17325521/r-shiny-display-loading-message-while-function-is-running/22475216#22475216 # nolint: line_length.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">202</td>
+                    <td class="num">83</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        snapshot &lt;- as.list(slices_global$all_slices(), recursive = TRUE)</pre>
+                      <pre class="language-r">  shiny_busy_message_panel &lt;- conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">203</td>
+                    <td class="num">84</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        snapshot_update &lt;- c(snapshot_history(), list(snapshot))</pre>
+                      <pre class="language-r">    condition = "(($('html').hasClass('shiny-busy')) &amp;&amp; (document.getElementById('shiny-notification-panel') == null))", # nolint: line_length.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">204</td>
+                    <td class="num">85</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        names(snapshot_update)[length(snapshot_update)] &lt;- snapshot_name</pre>
+                      <pre class="language-r">    tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">205</td>
+                    <td class="num">86</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        snapshot_history(snapshot_update)</pre>
+                      <pre class="language-r">      icon("arrows-rotate", class = "fa-spin", prefer_type = "solid"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">206</td>
+                    <td class="num">87</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        removeModal()</pre>
+                      <pre class="language-r">      "Computing ...",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Reopen filter manager modal by clicking button in the main application.</pre>
+                      <pre class="language-r">      # CSS defined in `custom.css`</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">208</td>
+                    <td class="num">89</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::click(id = "teal-wunder_bar-show_snapshot_manager", asis = TRUE)</pre>
+                      <pre class="language-r">      class = "shinybusymessage"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">93</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Upload a snapshot file ----</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # Select file.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$snapshot_load, {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">215</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot_load button clicked")</pre>
+                      <pre class="language-r">  fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">94</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      showModal(</pre>
+                      <pre class="language-r">    id = id,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">217</td>
+                    <td class="num">95</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modalDialog(</pre>
+                      <pre class="language-r">    title = title,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">218</td>
+                    <td class="num">96</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          fileInput(ns("snapshot_file"), "Choose snapshot file", accept = ".json", width = "100%"),</pre>
+                      <pre class="language-r">    theme = get_teal_bs_theme(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">219</td>
+                    <td class="num">97</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          textInput(</pre>
+                      <pre class="language-r">    include_teal_css_js(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">220</td>
+                    <td class="num">98</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("snapshot_name"),</pre>
+                      <pre class="language-r">    tags$header(header),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">221</td>
+                    <td class="num">99</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Name the snapshot (optional)",</pre>
+                      <pre class="language-r">    tags$hr(class = "my-2"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">222</td>
+                    <td class="num">100</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            width = "100%",</pre>
+                      <pre class="language-r">    shiny_busy_message_panel,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">101</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            placeholder = "Meaningful, unique name"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">224</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">    tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">225</td>
+                    <td class="num">102</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          footer = tagList(</pre>
+                      <pre class="language-r">      id = ns("tabpanel_wrapper"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">226</td>
+                    <td class="num">103</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            actionButton(ns("snaphot_file_accept"), "Accept", icon = icon("far fa-thumbs-up")),</pre>
+                      <pre class="language-r">      class = "teal-body",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">227</td>
+                    <td class="num">104</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            modalButton(label = "Cancel", icon = icon("far fa-thumbs-down"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">228</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">229</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      ui_teal_module(id = ns("teal_modules"), modules = modules)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Store new snapshot to list and restore filter states.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$snaphot_file_accept, {</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">106</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot_file_accept button clicked")</pre>
+                      <pre class="language-r">    tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">235</td>
+                    <td class="num">107</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      snapshot_name &lt;- trimws(input$snapshot_name)</pre>
+                      <pre class="language-r">      id = ns("options_buttons"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">108</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(snapshot_name, "")) {</pre>
+                      <pre class="language-r">      style = "position: absolute; right: 10px;",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">237</td>
+                    <td class="num">109</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: no snapshot name provided, naming after file")</pre>
+                      <pre class="language-r">      ui_bookmark_panel(ns("bookmark_manager"), modules),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
+                    <td class="num">110</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        snapshot_name &lt;- tools::file_path_sans_ext(input$snapshot_file$name)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      tags$button(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">240</td>
+                    <td class="num">111</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.element(make.names(snapshot_name), make.names(names(snapshot_history())))) {</pre>
+                      <pre class="language-r">        class = "btn action-button filter_hamburger", # see sidebar.css for style filter_hamburger</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">241</td>
+                    <td class="num">112</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: snapshot name rejected")</pre>
+                      <pre class="language-r">        href = "javascript:void(0)",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">113</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        showNotification(</pre>
+                      <pre class="language-r">        onclick = sprintf("toggleFilterPanel('%s');", ns("tabpanel_wrapper")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">243</td>
+                    <td class="num">114</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "This name is in conflict with other snapshot names. Please choose a different one.",</pre>
+                      <pre class="language-r">        title = "Toggle filter panel",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">244</td>
+                    <td class="num">115</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = "message"</pre>
+                      <pre class="language-r">        icon("fas fa-bars")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">246</td>
+                    <td class="num">117</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
+                      <pre class="language-r">      ui_snapshot_manager_panel(ns("snapshot_manager_panel")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">118</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      ui_filter_manager_panel(ns("filter_manager_panel"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Restore snapshot and verify app compatibility.</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">249</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: snapshot name accepted, loading snapshot")</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">250</td>
+                    <td class="num">120</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        snapshot_state &lt;- try(slices_restore(input$snapshot_file$datapath))</pre>
+                      <pre class="language-r">    tags$script(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">121</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!inherits(snapshot_state, "modules_teal_slices")) {</pre>
+                      <pre class="language-r">      HTML(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">252</td>
+                    <td class="num">122</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_debug("srv_snapshot_manager: snapshot file corrupt")</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">253</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          showNotification(</pre>
+                      <pre class="language-r">          "</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">254</td>
+                    <td class="num">124</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "File appears to be corrupt.",</pre>
+                      <pre class="language-r">            $(document).ready(function() {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">255</td>
+                    <td class="num">125</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            type = "error"</pre>
+                      <pre class="language-r">              $('#%s').appendTo('#%s');</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">257</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        } else if (!identical(attr(snapshot_state, "app_id"), attr(slices_global$all_slices(), "app_id"))) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">258</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_debug("srv_snapshot_manager: snapshot not compatible with app")</pre>
+                      <pre class="language-r">            });</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">259</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          showNotification(</pre>
+                      <pre class="language-r">          ",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">128</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "This snapshot file is not compatible with the app and cannot be loaded.",</pre>
+                      <pre class="language-r">          ns("options_buttons"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">261</td>
+                    <td class="num">129</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            type = "warning"</pre>
+                      <pre class="language-r">          ns("teal_modules-active_tab")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Add to snapshot history.</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">265</td>
+                    <td class="num">133</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_debug("srv_snapshot_manager: snapshot loaded, adding to history")</pre>
+                      <pre class="language-r">    tags$hr(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">266</td>
+                    <td class="num">134</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          snapshot &lt;- as.list(slices_global$all_slices(), recursive = TRUE)</pre>
+                      <pre class="language-r">    tags$footer(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">267</td>
+                    <td class="num">135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          snapshot_update &lt;- c(snapshot_history(), list(snapshot))</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">268</td>
+                    <td class="num">136</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          names(snapshot_update)[length(snapshot_update)] &lt;- snapshot_name</pre>
+                      <pre class="language-r">        footer,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">269</td>
+                    <td class="num">137</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          snapshot_history(snapshot_update)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">270</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          ### Begin simplified restore procedure. ###</pre>
+                      <pre class="language-r">        teal.widgets::verbatim_popup_ui(ns("sessionInfo"), "Session Info", type = "link"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">271</td>
+                    <td class="num">138</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_debug("srv_snapshot_manager: restoring snapshot")</pre>
+                      <pre class="language-r">        br(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">272</td>
+                    <td class="num">139</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slices_global$slices_set(snapshot_state)</pre>
+                      <pre class="language-r">        ui_teal_lockfile(ns("lockfile")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">273</td>
+                    <td class="num">140</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          removeModal()</pre>
+                      <pre class="language-r">        textOutput(ns("identifier"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ### End  simplified restore procedure. ###</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Apply newly added snapshot.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname module_teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Restore initial state ----</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$snapshot_reset, {</pre>
+                      <pre class="language-r">srv_teal &lt;- function(id, data, modules, filter = teal_slices()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">149</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot_reset button clicked, restoring snapshot")</pre>
+                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s &lt;- "Initial application state"</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module", "reactive"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Begin restore procedure. ###</pre>
+                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">152</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      snapshot &lt;- snapshot_history()[[s]]</pre>
+                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      snapshot_state &lt;- as.teal_slices(snapshot)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_global$slices_set(snapshot_state)</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      removeModal()</pre>
+                      <pre class="language-r">    logger::log_debug("srv_teal initializing.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### End restore procedure. ###</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">290</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    if (getOption("teal.show_js_log", default = FALSE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">291</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">158</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      shinyjs::showLog()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Build snapshot table ----</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Create UI elements and server logic for the snapshot table.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">294</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Observers must be tracked to avoid duplication and excess reactivity.</pre>
+                      <pre class="language-r">    srv_teal_lockfile("lockfile")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Remaining elements are tracked likewise for consistency and a slight speed margin.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">163</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observers &lt;- reactiveValues()</pre>
+                      <pre class="language-r">    output$identifier &lt;- renderText(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    handlers &lt;- reactiveValues()</pre>
+                      <pre class="language-r">      paste0("Pid:", Sys.getpid(), " Token:", substr(session$token, 25, 32))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    divs &lt;- reactiveValues()</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">167</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(snapshot_history(), {</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">77<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot history modified, updating snapshot list")</pre>
+                      <pre class="language-r">      "sessionInfo",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">77<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      lapply(names(snapshot_history())[-1L], function(s) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">303</td>
-                    <td class="coverage">!</td>
+                    <td class="num">169</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id_pickme &lt;- sprintf("pickme_%s", make.names(s))</pre>
+                      <pre class="language-r">      verbatim_content = utils::capture.output(utils::sessionInfo()),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">304</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id_saveme &lt;- sprintf("saveme_%s", make.names(s))</pre>
+                      <pre class="language-r">      title = "SessionInfo"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">305</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">171</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id_rowme &lt;- sprintf("rowme_%s", make.names(s))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Observer for restoring snapshot.</pre>
+                      <pre class="language-r">    # `JavaScript` code</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">308</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.element(id_pickme, names(observers))) {</pre>
+                      <pre class="language-r">    run_js_files(files = "init.js")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">309</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">175</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observers[[id_pickme]] &lt;- observeEvent(input[[id_pickme]], {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ### Begin restore procedure. ###</pre>
+                      <pre class="language-r">    # set timezone in shiny app</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">311</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            snapshot &lt;- snapshot_history()[[s]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">312</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            snapshot_state &lt;- as.teal_slices(snapshot)</pre>
+                      <pre class="language-r">    # timezone is set in the early beginning so it will be available also</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # for `DDL` and all shiny modules</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">88<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    get_client_timezone(session$ns)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">88<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    observeEvent(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">88<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      eventExpr = input$timezone,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">88<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      once = TRUE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">88<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      handlerExpr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">314</td>
+                    <td class="num">184</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            slices_global$slices_set(snapshot_state)</pre>
+                      <pre class="language-r">        session$userData$timezone &lt;- input$timezone</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">315</td>
+                    <td class="num">185</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            removeModal()</pre>
+                      <pre class="language-r">        logger::log_debug("srv_teal@1 Timezone set to client's timezone: { input$timezone }.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ### End restore procedure. ###</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">88<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    data_handled &lt;- srv_init_data("data", data = data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Create handler for downloading snapshot.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">320</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.element(id_saveme, names(handlers))) {</pre>
+                      <pre class="language-r">    validate_ui &lt;- tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">321</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output[[id_saveme]] &lt;- downloadHandler(</pre>
+                      <pre class="language-r">      id = session$ns("validate_messages"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">322</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            filename = function() {</pre>
+                      <pre class="language-r">      class = "teal_validated",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">323</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              sprintf("teal_snapshot_%s_%s.json", s, Sys.Date())</pre>
+                      <pre class="language-r">      ui_check_class_teal_data(session$ns("class_teal_data")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">324</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">      ui_validate_error(session$ns("silent_error")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">325</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            content = function(file) {</pre>
+                      <pre class="language-r">      ui_check_module_datanames(session$ns("datanames_warning"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">326</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              snapshot &lt;- snapshot_history()[[s]]</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">327</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              snapshot_state &lt;- as.teal_slices(snapshot)</pre>
+                      <pre class="language-r">    srv_check_class_teal_data("class_teal_data", data_handled)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">328</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              slices_store(tss = snapshot_state, file = file)</pre>
+                      <pre class="language-r">    srv_validate_error("silent_error", data_handled, validate_shiny_silent_error = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    srv_check_module_datanames("datanames_warning", data_handled, modules)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">331</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          handlers[[id_saveme]] &lt;- id_saveme</pre>
+                      <pre class="language-r">    data_validated &lt;- .trigger_on_success(data_handled)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">333</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Create a row for the snapshot table.</pre>
+                      <pre class="language-r">    data_signatured &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">334</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.element(id_rowme, names(divs))) {</pre>
+                      <pre class="language-r">      req(inherits(data_validated(), "teal_data"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">335</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          divs[[id_rowme]] &lt;- tags$div(</pre>
+                      <pre class="language-r">      is_filter_ok &lt;- check_filter_datanames(filter, names(data_validated()))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">336</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "manager_table_row",</pre>
+                      <pre class="language-r">      if (!isTRUE(is_filter_ok)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">337</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span(tags$h5(s)),</pre>
+                      <pre class="language-r">        showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">338</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            actionLink(inputId = ns(id_pickme), label = icon("far fa-circle-check"), title = "select"),</pre>
+                      <pre class="language-r">          "Some filters were not applied because of incompatibility with data. Contact app developer.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">339</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            downloadLink(outputId = ns(id_saveme), label = icon("far fa-save"), title = "save to file")</pre>
+                      <pre class="language-r">          type = "warning",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">340</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          duration = 10</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">342</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">        warning(is_filter_ok)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">344</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      .add_signature_to_data(data_validated())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Create table to display list of snapshots and their actions.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$snapshot_list &lt;- renderUI({</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">77<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rows &lt;- rev(reactiveValuesToList(divs))</pre>
+                      <pre class="language-r">    data_load_status &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">77<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(rows) == 0L) {</pre>
+                      <pre class="language-r">      if (inherits(data_handled(), "teal_data")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">77<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
+                      <pre class="language-r">        "ok"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">77<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "manager_placeholder",</pre>
+                      <pre class="language-r">      } else if (inherits(data, "teal_data_module")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">77<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "Snapshots will appear here."</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">352</td>
-                    <td class="coverage"></td>
+                    <td class="num">222</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        "teal_data_module failed"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">224</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rows</pre>
+                      <pre class="language-r">        "external failed"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">358</td>
+                    <td class="num">228</td>
                     <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    snapshot_history</pre>
+                      <pre class="language-r">    datasets_rv &lt;- if (!isTRUE(attr(filter, "module_specific"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">359</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">      eventReactive(data_signatured(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">360</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        req(inherits(data_signatured(), "teal_data"))</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_filter_data.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Filter panel module in teal</pre>
+                      <pre class="language-r">        logger::log_debug("srv_teal@1 initializing FilteredData")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        teal_data_to_filtered_data(data_signatured())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Creates filter panel module from `teal_data` object and returns `teal_data`. It is build in a way</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' that filter panel changes and anything what happens before (e.g. [`module_init_data`]) is triggering</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' further reactive events only if something has changed and if the module is visible. Thanks to</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' this special implementation all modules' data are recalculated only for those modules which are</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' currently displayed.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (inherits(data, "teal_data_module")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `eventReactive` containing `teal_data` containing filtered objects and filter code.</pre>
+                      <pre class="language-r">      setBookmarkExclude(c("teal_modules-active_tab"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `eventReactive` triggers only if all conditions are met:</pre>
+                      <pre class="language-r">      shiny::insertTab(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - tab is selected (`is_active`)</pre>
+                      <pre class="language-r">        inputId = "teal_modules-active_tab",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - when filters are changed (`get_filter_expr` is different than previous)</pre>
+                      <pre class="language-r">        position = "before",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        select = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams module_teal_module</pre>
+                      <pre class="language-r">        tabPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param active_datanames (`reactive` returning `character`) this module's data names</pre>
+                      <pre class="language-r">          title = icon("fas fa-database"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_filter_data</pre>
+                      <pre class="language-r">          value = "teal_data_module",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">            ui_init_data(session$ns("data")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            validate_ui</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_data</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_filter_data &lt;- function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">22</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- shiny::NS(id)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">23</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  uiOutput(ns("panel"))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_data</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">srv_filter_data &lt;- function(id, datasets, active_datanames, data, is_active) {</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">254</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_reactive(datasets)</pre>
+                      <pre class="language-r">      if (attr(data, "once")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">255</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">        observeEvent(data_signatured(), once = TRUE, {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">256</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_corrected &lt;- reactive(intersect(active_datanames(), datasets()$datanames()))</pre>
+                      <pre class="language-r">          logger::log_debug("srv_teal@2 removing data tab.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          # when once = TRUE we pull data once and then remove data tab</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">258</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$panel &lt;- renderUI({</pre>
+                      <pre class="language-r">          removeTab("teal_modules-active_tab", target = "teal_data_module")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">259</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(inherits(datasets(), "FilteredData"))</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">260</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # render will be triggered only when FilteredData object changes (not when filters change)</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # technically it means that teal_data_module needs to be refreshed</pre>
+                      <pre class="language-r">      # when no teal_data_module then we want to display messages above tabsetPanel (because there is no data-tab)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">263</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_filter_panel rendering filter panel.")</pre>
+                      <pre class="language-r">      insertUI(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">264</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(active_corrected())) {</pre>
+                      <pre class="language-r">        selector = sprintf("#%s", session$ns("tabpanel_wrapper")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">265</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          datasets()$srv_active("filters", active_datanames = active_corrected)</pre>
+                      <pre class="language-r">        where = "beforeBegin",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">86<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          datasets()$ui_active(session$ns("filters"), active_datanames = active_corrected)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                    <td class="num">266</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        ui = tags$div(validate_ui, tags$br())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">270</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    trigger_data &lt;- .observe_active_filter_changed(datasets, is_active, active_corrected, data)</pre>
+                      <pre class="language-r">    module_labels &lt;- unlist(module_labels(modules), use.names = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    slices_global &lt;- methods::new(".slicesGlobal", filter, module_labels)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">272</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    eventReactive(trigger_data(), {</pre>
+                      <pre class="language-r">    modules_output &lt;- srv_teal_module(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">273</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .make_filtered_teal_data(modules, data = data(), datasets = datasets(), datanames = active_corrected())</pre>
+                      <pre class="language-r">      id = "teal_modules",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      data = data_signatured,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">      datasets = datasets_rv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      modules = modules,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      slices_global = slices_global,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_data</pre>
+                      <pre class="language-r">      data_load_status = data_load_status</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.make_filtered_teal_data &lt;- function(modules, data, datasets = NULL, datanames) {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- eval_code(</pre>
+                      <pre class="language-r">    mapping_table &lt;- srv_filter_manager_panel("filter_manager_panel", slices_global = slices_global)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data,</pre>
+                      <pre class="language-r">    snapshots &lt;- srv_snapshot_manager_panel("snapshot_manager_panel", slices_global = slices_global)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(</pre>
+                      <pre class="language-r">    srv_bookmark_panel("bookmark_manager", modules)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">283</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ".raw_data &lt;- list2env(list(",</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      toString(sprintf("%1$s = %1$s", sapply(datanames, as.name))),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">285</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "))\n",</pre>
+                      <pre class="language-r">  invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">286</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "lockEnvironment(.raw_data) # @linksto .raw_data" # this is environment and it is shared by qenvs. CAN'T MODIFY!</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/teal_slices.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' Filter settings for `teal` applications</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  filtered_code &lt;- .get_filter_expr(datasets = datasets, datanames = datanames)</pre>
+                      <pre class="language-r">#' Specify initial filter states and filtering settings for a `teal` app.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  filtered_teal_data &lt;- .append_evaluated_code(data, filtered_code)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  filtered_datasets &lt;- sapply(datanames, function(x) datasets$get_data(x, filtered = TRUE), simplify = FALSE)</pre>
+                      <pre class="language-r">#' Produces a `teal_slices` object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  filtered_teal_data &lt;- .append_modified_data(filtered_teal_data, filtered_datasets)</pre>
+                      <pre class="language-r">#' The `teal_slice` components will specify filter states that will be active when the app starts.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  filtered_teal_data</pre>
+                      <pre class="language-r">#' Attributes (created with the named arguments) will configure the way the app applies filters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' See argument descriptions for details.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_data</pre>
+                      <pre class="language-r">#' @inheritParams teal.slice::teal_slices</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.observe_active_filter_changed &lt;- function(datasets, is_active, active_datanames, data) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  previous_signature &lt;- reactiveVal(NULL)</pre>
+                      <pre class="language-r">#' @param module_specific (`logical(1)`) optional,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  filter_changed &lt;- reactive({</pre>
+                      <pre class="language-r">#'  - `FALSE` (default) when one filter panel applied to all modules.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">195<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    req(inherits(datasets(), "FilteredData"))</pre>
+                      <pre class="language-r">#'  All filters will be shared by all modules.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">195<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    new_signature &lt;- c(</pre>
+                      <pre class="language-r">#'  - `TRUE` when filter panel module-specific.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">195<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.code::get_code(data()),</pre>
+                      <pre class="language-r">#'  Modules can have different set of filters specified - see `mapping` argument.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">195<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .get_filter_expr(datasets = datasets(), datanames = active_datanames())</pre>
+                      <pre class="language-r">#' @param mapping `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' _This is a new feature. Do kindly share your opinions on</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">195<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!identical(previous_signature(), new_signature)) {</pre>
+                      <pre class="language-r">#' [`teal`'s GitHub repository](https://github.com/insightsengineering/teal/)._</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">94<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      previous_signature(new_signature)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">94<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE</pre>
+                      <pre class="language-r">#'  (named `list`) specifies which filters will be active in which modules on app start.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#'  Elements should contain character vector of `teal_slice` `id`s (see [`teal.slice::teal_slice`]).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      FALSE</pre>
+                      <pre class="language-r">#'  Names of the list should correspond to `teal_module` `label` set in [module()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'  - `id`s listed under `"global_filters` will be active in all modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'  - If missing, all filters will be applied to all modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  - If empty list, all filters will be available to all modules but will start inactive.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  trigger_data &lt;- reactiveVal(NULL)</pre>
+                      <pre class="language-r">#'  - If `module_specific` is `FALSE`, only `global_filters` will be active on start.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  observe({</pre>
+                      <pre class="language-r">#' @param app_id (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">208<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (isTRUE(is_active() &amp;&amp; filter_changed())) {</pre>
+                      <pre class="language-r">#'  For internal use only, do not set manually.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">94<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">#'  Added by `init` so that a `teal_slices` can be matched to the app in which it was used.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">94<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(trigger_data())) {</pre>
+                      <pre class="language-r">#'  Used for verifying snapshots uploaded from file. See `snapshot`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          trigger_data(0)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#' @param x (`list`) of lists to convert to `teal_slices`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          trigger_data(trigger_data() + 1)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">#' A `teal_slices` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#' @seealso [`teal.slice::teal_slices`], [`teal.slice::teal_slice`], [slices_store()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  trigger_data</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' filter &lt;- teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Species", id = "species"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_data</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Sepal.Length", id = "sepal_length"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.get_filter_expr &lt;- function(datasets, datanames) {</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">284<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(datanames)) {</pre>
+                      <pre class="language-r">#'     dataname = "iris", id = "long_petals", title = "Long petals", expr = "Petal.Length &gt; 5"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">278<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.slice::get_filter_expr(datasets = datasets, datanames = datanames)</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "mtcars", varname = "mpg", id = "mtcars_mpg"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">#'   mapping = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     module1 = c("species", "sepal_length"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     module2 = c("mtcars_mpg"),</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/utils.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get client timezone</pre>
+                      <pre class="language-r">#'     global_filters = "long_petals"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' User timezone in the browser may be different to the one on the server.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This script can be run to register a `shiny` input which contains information about the timezone in the browser.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ns (`function`) namespace function passed from the `session` object in the `shiny` server.</pre>
+                      <pre class="language-r">#'   data = teal_data(iris = iris, mtcars = mtcars),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  For `shiny` modules this will allow for proper name spacing of the registered input.</pre>
+                      <pre class="language-r">#'   modules = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     module("module1"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#'     module("module2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   filter = filter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_client_timezone &lt;- function(ns) {</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">14</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  script &lt;- sprintf(</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">15</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Shiny.setInputValue(`%s`, Intl.DateTimeFormat().resolvedOptions().timeZone)",</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">16</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ns("timezone")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">18</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shinyjs::runjs(script) # function does not return anything</pre>
+                      <pre class="language-r">teal_slices &lt;- function(...,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">19</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r">                        exclude_varnames = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                        include_varnames = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                        count_type = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Resolve the expected bootstrap theme</pre>
+                      <pre class="language-r">                        allow_add = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">                        module_specific = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                        mapping,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_teal_bs_theme &lt;- function() {</pre>
+                      <pre class="language-r">                        app_id = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">26</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">170<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bs_theme &lt;- getOption("teal.bs_theme")</pre>
+                      <pre class="language-r">  shiny::isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">170<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    checkmate::assert_flag(allow_add)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">170<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(bs_theme)) {</pre>
+                      <pre class="language-r">    checkmate::assert_flag(module_specific)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(NULL)</pre>
+                      <pre class="language-r">    if (!missing(mapping)) checkmate::assert_list(mapping, types = c("character", "NULL"), names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    checkmate::assert_string(app_id, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!checkmate::test_class(bs_theme, "bs_theme")) {</pre>
+                      <pre class="language-r">    slices &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">    all_slice_id &lt;- vapply(slices, `[[`, character(1L), "id")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Assertion on 'teal.bs_theme' option value failed: ",</pre>
+                      <pre class="language-r">    if (missing(mapping)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_class(bs_theme, "bs_theme"),</pre>
+                      <pre class="language-r">      mapping &lt;- if (length(all_slice_id)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ". The default Shiny Bootstrap theme will be used."</pre>
+                      <pre class="language-r">        list(global_filters = all_slice_id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">91<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(NULL)</pre>
+                      <pre class="language-r">        list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bs_theme</pre>
+                      <pre class="language-r">    if (!module_specific) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">148<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      mapping[setdiff(names(mapping), "global_filters")] &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Return parentnames along with datanames.</pre>
+                      <pre class="language-r">    failed_slice_id &lt;- setdiff(unlist(mapping), all_slice_id)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">167<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (length(failed_slice_id)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stop(sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "Filters in mapping don't match any available filter.\n %s not in %s",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        toString(failed_slice_id),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        toString(all_slice_id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.include_parent_datanames &lt;- function(datanames, join_keys) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ordered_datanames &lt;- datanames</pre>
+                      <pre class="language-r">    tss &lt;- teal.slice::teal_slices(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (current in datanames) {</pre>
+                      <pre class="language-r">      ...,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">62<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parents &lt;- character(0L)</pre>
+                      <pre class="language-r">      exclude_varnames = exclude_varnames,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">62<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    while (length(current) &gt; 0) {</pre>
+                      <pre class="language-r">      include_varnames = include_varnames,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      current &lt;- teal.data::parent(join_keys, current)</pre>
+                      <pre class="language-r">      count_type = count_type,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parents &lt;- c(current, parents)</pre>
+                      <pre class="language-r">      allow_add = allow_add</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">62<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ordered_datanames &lt;- c(parents, ordered_datanames)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="num">114</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    attr(tss, "mapping") &lt;- mapping</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    attr(tss, "module_specific") &lt;- module_specific</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unique(ordered_datanames)</pre>
+                      <pre class="language-r">    attr(tss, "app_id") &lt;- app_id</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    class(tss) &lt;- c("modules_teal_slices", class(tss))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    tss</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `FilteredData`</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `FilteredData` object from a `teal_data` object.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`teal_data`) object</pre>
+                      <pre class="language-r">#' @rdname teal_slices</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) vector of data set names to include; must be subset of `names(x)`</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `FilteredData` object.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">teal_data_to_filtered_data &lt;- function(x, datanames = names(x)) {</pre>
+                      <pre class="language-r">as.teal_slices &lt;- function(x) { # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">83<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(x, "teal_data")</pre>
+                      <pre class="language-r">  checkmate::assert_list(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">83<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(datanames, min.chars = 1L, any.missing = FALSE)</pre>
+                      <pre class="language-r">  lapply(x, checkmate::assert_list, names = "named", .var.name = "list element")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Otherwise, FilteredData will be created in the modules' scope later</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">83<em>x</em></td>
+                    <td class="num">131</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.slice::init_filtered_data(</pre>
+                      <pre class="language-r">  attrs &lt;- attributes(unclass(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">83<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = Filter(length, sapply(datanames, function(dn) x[[dn]], simplify = FALSE)),</pre>
+                      <pre class="language-r">  ans &lt;- lapply(x, function(x) if (is.teal_slice(x)) x else as.teal_slice(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">83<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    join_keys = teal.data::join_keys(x)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="num">133</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  do.call(teal_slices, c(ans, attrs))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Template function for `TealReportCard` creation and customization</pre>
+                      <pre class="language-r">#' @rdname teal_slices</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function generates a report card with a title,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' an optional description, and the option to append the filter state list.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">c.teal_slices &lt;- function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  x &lt;- list(...)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_true(all(vapply(x, is.teal_slices, logical(1L))), .var.name = "all arguments are teal_slices")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`character(1)`) title of the card (unless overwritten by label)</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  all_attributes &lt;- lapply(x, attributes)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  all_attributes &lt;- coalesce_r(all_attributes)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  all_attributes &lt;- all_attributes[names(all_attributes) != "class"]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`character(1)`) label provided by the user when adding the card</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  do.call(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    teal_slices,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    c(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      unique(unlist(x, recursive = FALSE)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      all_attributes</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param description (`character(1)`) optional, additional description</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param with_filter (`logical(1)`) flag indicating to add filter state</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filter_panel_api (`FilterPanelAPI`) object with API that allows the generation</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of the filter state in the report</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return (`TealReportCard`) populated with a title, description and filter state.</pre>
+                      <pre class="language-r">#' Deep copy `teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' it's important to create a new copy of `teal_slices` when</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">report_card_template &lt;- function(title, label, description = NULL, with_filter, filter_panel_api) {</pre>
+                      <pre class="language-r">#' starting a new `shiny` session. Otherwise, object will be shared</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(title)</pre>
+                      <pre class="language-r">#' by multiple users as it is created in global environment before</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">#' `shiny` session starts.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(description, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' @param filter (`teal_slices`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(with_filter)</pre>
+                      <pre class="language-r">#' @return `teal_slices`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filter_panel_api, classes = "FilterPanelAPI")</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">deep_copy_filter &lt;- function(filter) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  card &lt;- teal::TealReportCard$new()</pre>
+                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">170</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  title &lt;- if (label == "") title else label</pre>
+                      <pre class="language-r">  shiny::isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  card$set_name(title)</pre>
+                      <pre class="language-r">    filter_copy &lt;- lapply(filter, function(slice) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
+                    <td class="num">172</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  card$append_text(title, "header2")</pre>
+                      <pre class="language-r">      teal.slice::as.teal_slice(as.list(slice))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
+                    <td class="num">174</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(description)) card$append_text(description, "header3")</pre>
+                      <pre class="language-r">    attributes(filter_copy) &lt;- attributes(filter)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
+                    <td class="num">175</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (with_filter) card$append_fs(filter_panel_api$get_filter_state())</pre>
+                      <pre class="language-r">    filter_copy</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  card</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/teal_transform_module.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Data module for `teal` transformations and output customization</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Check `datanames` in modules</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' These functions check if specified `datanames` in modules match those in the data object,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' returning error messages or `TRUE` for successful validation. Two functions return error message</pre>
+                      <pre class="language-r">#' `teal_transform_module` provides a `shiny` module that enables data transformations within a `teal` application</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' in different forms:</pre>
+                      <pre class="language-r">#' and allows for customization of outputs generated by modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `check_modules_datanames` returns `character(1)` for basic assertion usage</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `check_modules_datanames_html` returns `shiny.tag.list` to display it in the app.</pre>
+                      <pre class="language-r">#' # Transforming Module Inputs in `teal`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`) object</pre>
+                      <pre class="language-r">#' Data transformations occur after data has been filtered in `teal`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) names of datasets available in the `data` object</pre>
+                      <pre class="language-r">#' The transformed data is then passed to the `server` of [`teal_module()`] and managed by `teal`'s internal processes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' The primary advantage of `teal_transform_module` over custom modules is in its error handling, where all warnings and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `TRUE` if validation passes, otherwise `character(1)` or `shiny.tag.list`</pre>
+                      <pre class="language-r">#' errors are managed by `teal`, allowing developers to focus on transformation logic.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_modules_datanames &lt;- function(modules, datanames) {</pre>
+                      <pre class="language-r">#' For more details, see the vignette: `vignette("data-transform-as-shiny-module", package = "teal")`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- check_modules_datanames_html(modules, datanames)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(out, "shiny.tag.list")) {</pre>
+                      <pre class="language-r">#' # Customizing Module Outputs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out_with_ticks &lt;- gsub("&lt;code&gt;|&lt;/code&gt;", "`", toString(out))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out_text &lt;- gsub("&lt;[^&lt;&gt;]+&gt;", "", toString(out_with_ticks))</pre>
+                      <pre class="language-r">#' `teal_transform_module` also allows developers to modify any object created within [`teal.data::teal_data`].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    trimws(gsub("[[:space:]]+", " ", out_text))</pre>
+                      <pre class="language-r">#' This means you can use it to customize not only datasets but also tables, listings, and graphs.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' Some [`teal_modules`] permit developers to inject custom `shiny` modules to enhance displayed outputs.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out</pre>
+                      <pre class="language-r">#' To manage these `decorators` within your module, use [`ui_transform_teal_data()`] and [`srv_transform_teal_data()`].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' (For further guidance on managing decorators, refer to `ui_args` and `srv_args` in the vignette documentation.)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' See the vignette `vignette("decorate-modules-output", package = "teal")` for additional examples.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname check_modules_datanames</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_reserved_datanames &lt;- function(datanames) {</pre>
+                      <pre class="language-r">#' # `server` as a language</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">190<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  reserved_datanames &lt;- datanames[datanames %in% c("all", ".raw_data")]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">190<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(reserved_datanames) == 0L) {</pre>
+                      <pre class="language-r">#' The `server` function in `teal_transform_module` must return a reactive [`teal.data::teal_data`] object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">184<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(NULL)</pre>
+                      <pre class="language-r">#' For simple transformations without complex reactivity, the `server` function might look like this:s</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' ```</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$span(</pre>
+                      <pre class="language-r">#' function(id, data) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    to_html_code_list(reserved_datanames),</pre>
+                      <pre class="language-r">#'   moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sprintf(</pre>
+                      <pre class="language-r">#'     reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "%s reserved for internal use. Please avoid using %s as %s.",</pre>
+                      <pre class="language-r">#'       within(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pluralize(reserved_datanames, "is", "are"),</pre>
+                      <pre class="language-r">#'         data(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pluralize(reserved_datanames, "it", "them"),</pre>
+                      <pre class="language-r">#'         expr = x &lt;- subset(x, col == level),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pluralize(reserved_datanames, "a dataset name", "dataset names")</pre>
+                      <pre class="language-r">#'         level = input$level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'     })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname check_modules_datanames</pre>
+                      <pre class="language-r">#' ```</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_modules_datanames_html &lt;- function(modules, datanames) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">190<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  check_datanames &lt;- check_modules_datanames_recursive(modules, datanames)</pre>
+                      <pre class="language-r">#' The example above can be simplified using `make_teal_transform_server`, where `level` is automatically matched to the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">190<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  show_module_info &lt;- inherits(modules, "teal_modules") # used in two contexts - module and app</pre>
+                      <pre class="language-r">#' corresponding `input` parameter:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">190<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  reserved_datanames &lt;- check_reserved_datanames(datanames)</pre>
+                      <pre class="language-r">#' ```</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' make_teal_transform_server(expr = expression(x &lt;- subset(x, col == level)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">190<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!length(check_datanames)) {</pre>
+                      <pre class="language-r">#' ```</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">172<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- if (is.null(reserved_datanames)) {</pre>
+                      <pre class="language-r">#' @inheritParams teal_data_module</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE</pre>
+                      <pre class="language-r">#' @param server (`function(id, data)` or `expression`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' A `shiny` module server function that takes `id` and `data` as arguments, where `id` is the module id and `data`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::tagList(reserved_datanames)</pre>
+                      <pre class="language-r">#' is the reactive `teal_data` input. The `server` function must return a reactive expression containing a `teal_data`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' object. For simplified syntax, use [`make_teal_transform_server()`].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">172<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(out)</pre>
+                      <pre class="language-r">#' @param datanames (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' Specifies the names of datasets relevant to the module. Only filters for the specified `datanames` will be displayed</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::tagList(</pre>
+                      <pre class="language-r">#' in the filter panel. The keyword `"all"` can be used to display filters for all datasets. `datanames` are</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    reserved_datanames,</pre>
+                      <pre class="language-r">#' automatically appended to the [`modules()`] `datanames`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      check_datanames,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(mod) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tagList(</pre>
+                      <pre class="language-r">#' data_transformators &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$span(</pre>
+                      <pre class="language-r">#'   teal_transform_module(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span(pluralize(mod$missing_datanames, "Dataset")),</pre>
+                      <pre class="language-r">#'     label = "Static transformator for iris",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            to_html_code_list(mod$missing_datanames),</pre>
+                      <pre class="language-r">#'     datanames = "iris",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span(</pre>
+                      <pre class="language-r">#'     server = function(id, data) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              sprintf(</pre>
+                      <pre class="language-r">#'       moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "%s missing%s.",</pre>
+                      <pre class="language-r">#'         reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                pluralize(mod$missing_datanames, "is", "are"),</pre>
+                      <pre class="language-r">#'           within(data(), {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                if (show_module_info) sprintf(" for module '%s'", mod$label) else ""</pre>
+                      <pre class="language-r">#'             iris &lt;- head(iris, 5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#'           })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#'         })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">#'       })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (length(datanames) &gt;= 1) {</pre>
+                      <pre class="language-r">#'     }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tagList(</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$span(pluralize(datanames, "Dataset")),</pre>
+                      <pre class="language-r">#'   teal_transform_module(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$span("available in data:"),</pre>
+                      <pre class="language-r">#'     label = "Interactive transformator for iris",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tagList(</pre>
+                      <pre class="language-r">#'     datanames = "iris",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tags$span(</pre>
+                      <pre class="language-r">#'     ui = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  to_html_code_list(datanames),</pre>
+                      <pre class="language-r">#'       ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  tags$span(".", .noWS = "outside"),</pre>
+                      <pre class="language-r">#'       tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  .noWS = c("outside")</pre>
+                      <pre class="language-r">#'         numericInput(ns("n_cols"), "Show n columns", value = 5, min = 1, max = 5, step = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#'     },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#'     server = function(id, data) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">#'       moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span("No datasets are available in data.")</pre>
+                      <pre class="language-r">#'         reactive({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
+                      <pre class="language-r">#'           within(data(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$br(.noWS = "before")</pre>
+                      <pre class="language-r">#'             {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'               iris &lt;- iris[, 1:n_cols]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'             },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'             n_cols = input$n_cols</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'           )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'         })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Recursively checks modules and returns list for every datanames mismatch between module and data</pre>
+                      <pre class="language-r">#'     }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_modules_datanames_recursive &lt;- function(modules, datanames) { # nolint: object_name_length</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">296<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_module", "teal_modules"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">296<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(datanames)</pre>
+                      <pre class="language-r">#' output_decorator &lt;- teal_transform_module(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">296<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">#'   server = make_teal_transform_server(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unlist(</pre>
+                      <pre class="language-r">#'     expression(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lapply(modules$children, check_modules_datanames_recursive, datanames = datanames),</pre>
+                      <pre class="language-r">#'       object &lt;- rev(object)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      recursive = FALSE</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">210<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    missing_datanames &lt;- setdiff(modules$datanames, c("all", datanames))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">210<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(missing_datanames)) {</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(list(</pre>
+                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = modules$label,</pre>
+                      <pre class="language-r">#'   modules = example_module(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        missing_datanames = missing_datanames</pre>
+                      <pre class="language-r">#'     transformators = data_transformators,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">#'     decorators = list(output_decorator)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert character vector to html code separated with commas and "and"</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">to_html_code_list &lt;- function(x) {</pre>
+                      <pre class="language-r">#' @name teal_transform_module</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">40<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(x)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">40<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">40<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tagList,</pre>
+                      <pre class="language-r">teal_transform_module &lt;- function(ui = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">40<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(seq_along(x), function(.ix) {</pre>
+                      <pre class="language-r">                                  server = function(id, data) data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">                                  label = "transform module",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$code(x[.ix]),</pre>
+                      <pre class="language-r">                                  datanames = "all") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (.ix != length(x)) {</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">130</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (.ix == length(x) - 1) tags$span(" and ") else tags$span(", ", .noWS = "before")</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      ui = ui,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      server = function(id, data) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">242</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">        data_out &lt;- server(id, data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        if (inherits(data_out, "reactive.event")) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          # This warning message partially detects when `eventReactive` is used in `data_module`.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">246</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Check `datanames` in filters</pre>
+                      <pre class="language-r">            "teal_transform_module() ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">248</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            "Using eventReactive in teal_transform module server code should be avoided as it ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function checks whether `datanames` in filters correspond to those in `data`,</pre>
+                      <pre class="language-r">            "may lead to unexpected behavior. See the vignettes for more information  ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' returning character vector with error messages or `TRUE` if all checks pass.</pre>
+                      <pre class="language-r">            "(`vignette(\"data-transform-as-shiny-module\", package = \"teal\")`).",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">251</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            call. = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filters (`teal_slices`) object</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) names of datasets available in the `data` object</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `character(1)` containing error message or TRUE if validation passes.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        decorate_err_msg(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_filter_datanames &lt;- function(filters, datanames) {</pre>
+                      <pre class="language-r">          assert_reactive(data_out),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">149</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filters, "teal_slices")</pre>
+                      <pre class="language-r">          pre = sprintf("From: 'teal_transform_module()':\nA 'teal_transform_module' with \"%s\" label:", label),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(datanames)</pre>
+                      <pre class="language-r">          post = "Please make sure that this module returns a 'reactive` object containing 'teal_data' class of object." # nolint: line_length_linter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # check teal_slices against datanames</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">86<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- unlist(sapply(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">86<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    filters, function(filter) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      dataname &lt;- shiny::isolate(filter$dataname)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!dataname %in% datanames) {</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "- Filter '%s' refers to dataname not available in 'data':\n %s not in (%s)",</pre>
+                      <pre class="language-r">    datanames = datanames,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">156</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shiny::isolate(filter$id),</pre>
+                      <pre class="language-r">    class = c("teal_transform_module", "teal_data_module")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dQuote(dataname, q = FALSE),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(dQuote(datanames, q = FALSE))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' Make teal_transform_module's server</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">#' A factory function to simplify creation of a [`teal_transform_module`]'s server. Specified `expr`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' is wrapped in a shiny module function and output can be passed to the `server` argument in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' [teal_transform_module()] call. Such a server function can be linked with ui and values from the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(out)) {</pre>
+                      <pre class="language-r">#' inputs can be used in the expression. Object names specified in the expression will be substituted</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(out, collapse = "\n")</pre>
+                      <pre class="language-r">#' with the value of the respective input (matched by the name) - for example in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' `expression(graph &lt;- graph + ggtitle(title))` object `title` will be replaced with the value of</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">83<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRUE</pre>
+                      <pre class="language-r">#' `input$title`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param expr (`language`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'  An R call which will be evaluated within [`teal.data::teal_data`] environment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return `function(id, data)` returning `shiny` module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for validating the title parameter of `teal::init`</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Checks if the input of the title from `teal::init` will create a valid title and favicon tag.</pre>
+                      <pre class="language-r">#' trim_iris &lt;- teal_transform_module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param shiny_tag (`shiny.tag`) Object to validate for a valid title.</pre>
+                      <pre class="language-r">#'   label = "Simplified interactive transformator for iris",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   datanames = "iris",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_app_title_tag &lt;- function(shiny_tag) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(shiny_tag, "shiny.tag")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(shiny_tag$name == "head")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  child_names &lt;- vapply(shiny_tag$children, `[[`, character(1L), "name")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(c("title", "link"), child_names, .var.name = "child tags")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  rel_attr &lt;- shiny_tag$children[[which(child_names == "link")]]$attribs$rel</pre>
+                      <pre class="language-r">#'   ui = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">178</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(</pre>
+                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rel_attr,</pre>
+                      <pre class="language-r">#'     numericInput(ns("n_rows"), "Subset n rows", value = 6, min = 1, max = 150, step = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("icon", "shortcut icon"),</pre>
+                      <pre class="language-r">#'   },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "Link tag's rel attribute",</pre>
+                      <pre class="language-r">#'   server = make_teal_transform_server(expression(iris &lt;- head(iris, n_rows)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    empty.ok = FALSE</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Build app title with favicon</pre>
+                      <pre class="language-r">#'   modules = example_module(transformators = trim_iris)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function to create the browser title along with a logo.</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`character`) The browser title for the `teal` app.</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param favicon (`character`) The path for the icon for the title.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The image/icon path can be remote or the static path accessible by `shiny`, like the `www/`</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">make_teal_transform_server &lt;- function(expr) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `shiny.tag` containing the element that adds the title and logo to the `shiny` app.</pre>
+                      <pre class="language-r">  if (is.call(expr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    expr &lt;- as.expression(expr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">build_app_title &lt;- function(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">314</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title = "teal app",</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(expr, c("call", "expression"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    favicon = "https://raw.githubusercontent.com/insightsengineering/hex-stickers/main/PNG/nest.png") {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(title, null.ok = TRUE)</pre>
+                      <pre class="language-r">  function(id, data) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(favicon, null.ok = TRUE)</pre>
+                      <pre class="language-r">    moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$head(</pre>
+                      <pre class="language-r">      list_env &lt;- reactive(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$title(title),</pre>
+                      <pre class="language-r">        lapply(rlang::set_names(names(input)), function(x) input[[x]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$link(</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rel = "icon",</pre>
+                      <pre class="language-r">      reactive({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      href = favicon,</pre>
+                      <pre class="language-r">        call_with_inputs &lt;- lapply(expr, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">323</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sizes = "any"</pre>
+                      <pre class="language-r">          do.call(what = substitute, args = list(expr = x, env = list_env()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        })</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        eval_code(object = data(), code = as.expression(call_with_inputs))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Application ID</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Creates App ID used to match filter snapshots to application.</pre>
+                      <pre class="language-r">#' Extract all `transformators` from `modules`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculate app ID that will be used to stamp filter state snapshots.</pre>
+                      <pre class="language-r">#' @param modules `teal_modules` or `teal_module`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' App ID is a hash of the app's data and modules.</pre>
+                      <pre class="language-r">#' @return A list of `teal_transform_module` nested in the same way as input `modules`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' See "transferring snapshots" section in ?snapshot.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">extract_transformators &lt;- function(modules) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">336</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data` or `teal_data_module`) as accepted by `init`</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_module")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    modules$transformators</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    lapply(modules$children, extract_transformators)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`) object as accepted by `init`</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_snapshot_manager.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A single character string.</pre>
+                      <pre class="language-r">#' Filter state snapshot management</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' Capture and restore snapshots of the global (app) filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">create_app_id &lt;- function(data, modules) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
+                      <pre class="language-r">#' This module introduces snapshots: stored descriptions of the filter state of the entire application.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
+                      <pre class="language-r">#' Snapshots allow the user to save the current filter state of the application for later use in the session,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' as well as to save it to file in order to share it with an app developer or other users,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- if (inherits(data, "teal_data")) {</pre>
+                      <pre class="language-r">#' who in turn can upload it to their own session.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    as.list(data)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(data, "teal_data_module")) {</pre>
+                      <pre class="language-r">#' The snapshot manager is accessed with the camera icon in the tabset bar.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deparse1(body(data$server))</pre>
+                      <pre class="language-r">#' At the beginning of a session it presents three icons: a camera, an upload, and an circular arrow.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' Clicking the camera captures a snapshot, clicking the upload adds a snapshot from a file</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  modules &lt;- lapply(modules, defunction)</pre>
+                      <pre class="language-r">#' and applies the filter states therein, and clicking the arrow resets initial application state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' As snapshots are added, they will show up as rows in a table and each will have a select button and a save button.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rlang::hash(list(data = data, modules = modules))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @section Server logic:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Snapshots are basically `teal_slices` objects, however, since each module is served by a separate instance</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Go through list and extract bodies of encountered functions as string, recursively.</pre>
+                      <pre class="language-r">#' of `FilteredData` and these objects require shared state, `teal_slice` is a `reactiveVal` so `teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' cannot be stored as is. Therefore, `teal_slices` are reversibly converted to a list of lists representation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' (attributes are maintained).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">defunction &lt;- function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">297<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.list(x)) {</pre>
+                      <pre class="language-r">#' Snapshots are stored in a `reactiveVal` as a named list.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">121<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(x, defunction)</pre>
+                      <pre class="language-r">#' The first snapshot is the initial state of the application and the user can add a snapshot whenever they see fit.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">176<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (is.function(x)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deparse1(body(x))</pre>
+                      <pre class="language-r">#' For every snapshot except the initial one, a piece of UI is generated that contains</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' the snapshot name, a select button to restore that snapshot, and a save button to save it to a file.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">122<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
+                      <pre class="language-r">#' The initial snapshot is restored by a separate "reset" button.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' It cannot be saved directly but a user is welcome to capture the initial state as a snapshot and save that.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @section Snapshot mechanics:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get unique labels</pre>
+                      <pre class="language-r">#' When a snapshot is captured, the user is prompted to name it.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Names are displayed as is but since they are used to create button ids,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get unique labels for the modules to avoid namespace conflicts.</pre>
+                      <pre class="language-r">#' under the hood they are converted to syntactically valid strings.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' New snapshot names are validated so that their valid versions are unique.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param labels (`character`) vector of labels</pre>
+                      <pre class="language-r">#' Leading and trailing white space is trimmed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return (`character`) vector of unique labels</pre>
+                      <pre class="language-r">#' The module can read the global state of the application from `slices_global` and `mapping_matrix`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' The former provides a list of all existing `teal_slice`s and the latter says which slice is active in which module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' Once a name has been accepted, `slices_global` is converted to a list of lists - a snapshot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_unique_labels &lt;- function(labels) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">141<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  make.unique(gsub("[^[:alnum:]]", "_", tolower(labels)), sep = "_")</pre>
+                      <pre class="language-r">#' The snapshot contains the `mapping` attribute of the initial application state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' (or one that has been restored), which may not reflect the current one,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' so `mapping_matrix` is transformed to obtain the current mapping, i.e. a list that,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' when passed to the `mapping` argument of [teal_slices()], would result in the current mapping.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' This is substituted as the snapshot's `mapping` attribute and the snapshot is added to the snapshot list.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">pasten &lt;- function(...) paste0(..., "\n")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' To restore app state, a snapshot is retrieved from storage and rebuilt into a `teal_slices` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert character list to human readable html with commas and "and"</pre>
+                      <pre class="language-r">#' Then state of all `FilteredData` objects (provided in `datasets`) is cleared</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' and set anew according to the `mapping` attribute of the snapshot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">paste_datanames_character &lt;- function(x,</pre>
+                      <pre class="language-r">#' The snapshot is then set as the current content of `slices_global`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      tags = list(span = shiny::tags$span, code = shiny::tags$code),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      tagList = shiny::tagList) { # nolint: object_name.</pre>
+                      <pre class="language-r">#' To save a snapshot, the snapshot is retrieved and reassembled just like for restoring,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">391</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(x)</pre>
+                      <pre class="language-r">#' and then saved to file with [slices_store()].</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">392</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">393</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tagList,</pre>
+                      <pre class="language-r">#' When a snapshot is uploaded, it will first be added to storage just like a newly created one,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">394</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(seq_along(x), function(.ix) {</pre>
+                      <pre class="language-r">#' and then used to restore app state much like a snapshot taken from storage.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">#' Upon clicking the upload icon the user will be prompted for a file to upload</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">396</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$code(x[.ix]),</pre>
+                      <pre class="language-r">#' and may choose to name the new snapshot. The name defaults to the name of the file (the extension is dropped)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">397</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (.ix != length(x)) {</pre>
+                      <pre class="language-r">#' and normal naming rules apply. Loading the file yields a `teal_slices` object,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">398</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$span(if (.ix == length(x) - 1) " and " else ", ")</pre>
+                      <pre class="language-r">#' which is disassembled for storage and used directly for restoring app state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @section Transferring snapshots:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' Snapshots uploaded from disk should only be used in the same application they come from,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' _i.e._ an application that uses the same data and the same modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' To ensure this is the case, `init` stamps `teal_slices` with an app id that is stored in the `app_id` attribute of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' a `teal_slices` object. When a snapshot is restored from file, its `app_id` is compared to that</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Build datanames error string for error message</pre>
+                      <pre class="language-r">#' of the current app state and only if the match is the snapshot admitted to the session.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tags and tagList are overwritten in arguments allowing to create strings for</pre>
+                      <pre class="language-r">#' @section Bookmarks:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' logging purposes</pre>
+                      <pre class="language-r">#' An `onBookmark` callback creates a snapshot of the current filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' This is done on the app session, not the module session.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">build_datanames_error_message &lt;- function(label = NULL,</pre>
+                      <pre class="language-r">#' (The snapshot will be retrieved by `module_teal` in order to set initial app state in a restored app.)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          datanames,</pre>
+                      <pre class="language-r">#' Then that snapshot, and the previous snapshot history are dumped into the `values.rds` file in `&lt;bookmark_dir&gt;`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          extra_datanames,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          tags = list(span = shiny::tags$span, code = shiny::tags$code),</pre>
+                      <pre class="language-r">#' @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          tagList = shiny::tagList) { # nolint: object_name.</pre>
+                      <pre class="language-r">#' @param slices_global (`reactiveVal`) that contains a `teal_slices` object</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">415</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$span(</pre>
+                      <pre class="language-r">#'                      containing all `teal_slice`s existing in the app, both active and inactive.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">416</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$span(pluralize(extra_datanames, "Dataset")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">417</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste_datanames_character(extra_datanames, tags, tagList),</pre>
+                      <pre class="language-r">#' @return `list` containing the snapshot history, where each element is an unlisted `teal_slices` object.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">418</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$span(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">419</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf(</pre>
+                      <pre class="language-r">#' @name module_snapshot_manager</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">420</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "%s missing%s",</pre>
+                      <pre class="language-r">#' @rdname module_snapshot_manager</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">421</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pluralize(extra_datanames, "is", "are"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">422</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(label)) "" else sprintf(" for tab '%s'", label)</pre>
+                      <pre class="language-r">#' @author Aleksander Chlebowski</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">425</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(datanames) &gt;= 1) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">426</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">#' @rdname module_snapshot_manager</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">427</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$span(pluralize(datanames, "Dataset")),</pre>
+                      <pre class="language-r">ui_snapshot_manager_panel &lt;- function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">428</td>
+                    <td class="num">89</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$span("available in data:"),</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">429</td>
+                    <td class="num">90</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tagList(</pre>
+                      <pre class="language-r">  tags$button(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">430</td>
+                    <td class="num">91</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$span(</pre>
+                      <pre class="language-r">    id = ns("show_snapshot_manager"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">431</td>
+                    <td class="num">92</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paste_datanames_character(datanames, tags, tagList),</pre>
+                      <pre class="language-r">    class = "btn action-button wunder_bar_button",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">432</td>
+                    <td class="num">93</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span(".", .noWS = "outside"),</pre>
+                      <pre class="language-r">    title = "View filter mapping",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">433</td>
+                    <td class="num">94</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            .noWS = c("outside")</pre>
+                      <pre class="language-r">    suppressMessages(icon("fas fa-camera"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' @rdname module_snapshot_manager</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">srv_snapshot_manager_panel &lt;- function(id, slices_global) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">87<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">87<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    logger::log_debug("srv_snapshot_manager_panel initializing")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">87<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    setBookmarkExclude(c("show_snapshot_manager"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">87<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    observeEvent(input$show_snapshot_manager, {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">438</td>
+                    <td class="num">104</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$span("No datasets are available in data.")</pre>
+                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager_panel@1 show_snapshot_manager button has been clicked.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">439</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">105</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      showModal(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">440</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">106</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        modalDialog(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">441</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">107</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          ui_snapshot_manager(session$ns("module")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">108</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          class = "snapshot_manager_modal",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">109</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          size = "m",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">110</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          footer = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">111</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          easyClose = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Smart `rbind`</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    })</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">87<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    srv_snapshot_manager("module", slices_global = slices_global)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Combine `data.frame` objects which have different columns</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... (`data.frame`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @rdname module_snapshot_manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">449</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.smart_rbind &lt;- function(...) {</pre>
+                      <pre class="language-r">ui_snapshot_manager &lt;- function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">121</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dots &lt;- list(...)</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">451</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">122</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(dots, "data.frame", .var.name = "...")</pre>
+                      <pre class="language-r">  tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">123</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Reduce(</pre>
+                      <pre class="language-r">    class = "manager_content",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">124</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = dots,</pre>
+                      <pre class="language-r">    tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">454</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">125</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(x, y) {</pre>
+                      <pre class="language-r">      class = "manager_table_row",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">455</td>
-                    <td class="coverage">72<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">126</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_columns &lt;- union(colnames(x), colnames(y))</pre>
+                      <pre class="language-r">      tags$span(tags$b("Snapshot manager")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">72<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">127</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x[setdiff(all_columns, colnames(x))] &lt;- NA</pre>
+                      <pre class="language-r">      actionLink(ns("snapshot_add"), label = NULL, icon = icon("fas fa-camera"), title = "add snapshot"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">457</td>
-                    <td class="coverage">72<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">128</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y[setdiff(all_columns, colnames(y))] &lt;- NA</pre>
+                      <pre class="language-r">      actionLink(ns("snapshot_load"), label = NULL, icon = icon("fas fa-upload"), title = "upload snapshot"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">458</td>
-                    <td class="coverage">72<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">129</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rbind(x, y)</pre>
+                      <pre class="language-r">      actionLink(ns("snapshot_reset"), label = NULL, icon = icon("fas fa-undo"), title = "reset initial state"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">459</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">130</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">461</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">132</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    uiOutput(ns("snapshot_list"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Pluralize a word depending on the size of the input</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`object`) to check length for plural.</pre>
+                      <pre class="language-r">#' @rdname module_snapshot_manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param singular (`character`) singular form of the word.</pre>
+                      <pre class="language-r">srv_snapshot_manager &lt;- function(id, slices_global) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">467</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plural (optional `character`) plural form of the word. If not given an "s"</pre>
+                      <pre class="language-r">  checkmate::assert_character(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is added to the singular form.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">469</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">87<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    logger::log_debug("srv_snapshot_manager initializing")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `character` that correctly represents the size of the `x` argument.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    # Set up bookmarking callbacks ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">pluralize &lt;- function(x, singular, plural = NULL) {</pre>
+                      <pre class="language-r">    # Register bookmark exclusions (all buttons and text fields).</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">473</td>
-                    <td class="coverage">70<em>x</em></td>
+                    <td class="num">145</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(singular)</pre>
+                      <pre class="language-r">    setBookmarkExclude(c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">474</td>
-                    <td class="coverage">70<em>x</em></td>
+                    <td class="num">146</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(plural, null.ok = TRUE)</pre>
+                      <pre class="language-r">      "snapshot_add", "snapshot_load", "snapshot_reset",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">475</td>
-                    <td class="coverage">70<em>x</em></td>
+                    <td class="num">147</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(x) == 1L) { # Zero length object should use plural form.</pre>
+                      <pre class="language-r">      "snapshot_name_accept", "snaphot_file_accept",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">476</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">148</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    singular</pre>
+                      <pre class="language-r">      "snapshot_name", "snapshot_file"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">478</td>
-                    <td class="coverage">28<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(plural)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">479</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("%ss", singular)</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    # Add snapshot history to bookmark.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">481</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">151</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plural</pre>
+                      <pre class="language-r">    session$onBookmark(function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">482</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">152</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager@onBookmark: storing snapshot and bookmark history")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">483</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">153</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      state$values$snapshot_history &lt;- snapshot_history() # isolate this?</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/modules.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setOldClass("teal_module")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setOldClass("teal_modules")</pre>
+                      <pre class="language-r">    ns &lt;- session$ns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create `teal_module` and `teal_modules` objects</pre>
+                      <pre class="language-r">    # Track global filter states ----</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    snapshot_history &lt;- reactiveVal({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">      # Restore directly from bookmarked state, if applicable.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      restoreValue(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a nested tab structure to embed modules in a `teal` application.</pre>
+                      <pre class="language-r">        ns("snapshot_history"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        list("Initial application state" = shiny::isolate(as.list(slices_global$all_slices(), recursive = TRUE)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `module()` creates an instance of a `teal_module` that can be placed in a `teal` application.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `modules()` shapes the structure of a the application by organizing `teal_module` within the navigation panel.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It wraps `teal_module` and `teal_modules` objects in a `teal_modules` object,</pre>
+                      <pre class="language-r">    # Snapshot current application state ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' which results in a nested structure corresponding to the nested tabs in the final application.</pre>
+                      <pre class="language-r">    # Name snaphsot.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    observeEvent(input$snapshot_add, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Note that for `modules()` `label` comes after `...`, so it must be passed as a named argument,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">170</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' otherwise it will be captured by `...`.</pre>
+                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot_add button clicked")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">171</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      showModal(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">172</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The labels `"global_filters"` and `"Report previewer"` are reserved</pre>
+                      <pre class="language-r">        modalDialog(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">173</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' because they are used by the `mapping` argument of [teal_slices()]</pre>
+                      <pre class="language-r">          textInput(ns("snapshot_name"), "Name the snapshot", width = "100%", placeholder = "Meaningful, unique name"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">174</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and the report previewer module [reporter_previewer_module()], respectively.</pre>
+                      <pre class="language-r">          footer = tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">175</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            actionButton(ns("snapshot_name_accept"), "Accept", icon = icon("far fa-thumbs-up")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">176</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Restricting datasets used by `teal_module`:</pre>
+                      <pre class="language-r">            modalButton(label = "Cancel", icon = icon("far fa-thumbs-down"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The `datanames` argument controls which datasets are used by the module’s server. These datasets,</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">178</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' passed via server's `data` argument, are the only ones shown in the module's tab.</pre>
+                      <pre class="language-r">          size = "s"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' When `datanames` is set to `"all"`, all datasets in the data object are treated as relevant.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' However, this may include unnecessary datasets, such as:</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' -	Proxy variables for column modifications</pre>
+                      <pre class="language-r">    # Store snaphsot.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' -	Temporary datasets used to create final versions</pre>
+                      <pre class="language-r">    observeEvent(input$snapshot_name_accept, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">184</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' -	Connection objects</pre>
+                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot_name_accept button clicked")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">185</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      snapshot_name &lt;- trimws(input$snapshot_name)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">186</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To exclude irrelevant datasets, use the [set_datanames()] function to change `datanames` from</pre>
+                      <pre class="language-r">      if (identical(snapshot_name, "")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">187</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `"all"` to specific names. Trying to modify non-`"all"` values with [set_datanames()] will result</pre>
+                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: snapshot name rejected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">188</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' in a warning. Datasets with names starting with . are ignored globally unless explicitly listed</pre>
+                      <pre class="language-r">        showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">189</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' in `datanames`.</pre>
+                      <pre class="language-r">          "Please name the snapshot.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">190</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          type = "message"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `datanames` with `transformators`</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">192</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' When transformators are specified, their `datanames` are added to the module’s `datanames`, which</pre>
+                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">193</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' changes the behavior as follows:</pre>
+                      <pre class="language-r">      } else if (is.element(make.names(snapshot_name), make.names(names(snapshot_history())))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">194</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - If `module(datanames)` is `NULL` and the `transformators` have defined `datanames`, the sidebar</pre>
+                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: snapshot name rejected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">195</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   will appear showing the `transformators`' datasets, instead of being hidden.</pre>
+                      <pre class="language-r">        showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">196</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - If `module(datanames)` is set to specific values and any `transformator` has `datanames = "all"`,</pre>
+                      <pre class="language-r">          "This name is in conflict with other snapshot names. Please choose a different one.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">197</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the module may receive extra datasets that could be unnecessary</pre>
+                      <pre class="language-r">          type = "message"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">199</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`character(1)`) Label shown in the navigation item for the module or module group.</pre>
+                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   For `modules()` defaults to `"root"`. See `Details`.</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">201</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param server (`function`) `shiny` module with following arguments:</pre>
+                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: snapshot name accepted, adding snapshot")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">202</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `id` - `teal` will set proper `shiny` namespace for this module (see [shiny::moduleServer()]).</pre>
+                      <pre class="language-r">        snapshot &lt;- as.list(slices_global$all_slices(), recursive = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">203</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `input`, `output`, `session` - (optional; not recommended) When provided, then [shiny::callModule()]</pre>
+                      <pre class="language-r">        snapshot_update &lt;- c(snapshot_history(), list(snapshot))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">204</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    will be used to call a module. From `shiny` 1.5.0, the recommended way is to use</pre>
+                      <pre class="language-r">        names(snapshot_update)[length(snapshot_update)] &lt;- snapshot_name</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">205</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    [shiny::moduleServer()] instead which doesn't require these arguments.</pre>
+                      <pre class="language-r">        snapshot_history(snapshot_update)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">206</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `data` (optional) When provided, the module will be called with `teal_data` object (i.e. a list of</pre>
+                      <pre class="language-r">        removeModal()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    reactive (filtered) data specified in the `filters` argument) as the value of this argument.</pre>
+                      <pre class="language-r">        # Reopen filter manager modal by clicking button in the main application.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">208</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `datasets` (optional) When provided, the module will be called with `FilteredData` object as the</pre>
+                      <pre class="language-r">        shinyjs::click(id = "teal-wunder_bar-show_snapshot_manager", asis = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    value of this argument. (See [`teal.slice::FilteredData`]).</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `reporter` (optional) When provided, the module will be called with `Reporter` object as the value</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    of this argument. (See [`teal.reporter::Reporter`]).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `filter_panel_api` (optional) When provided, the module will be called with `FilterPanelAPI` object</pre>
+                      <pre class="language-r">    # Upload a snapshot file ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    as the value of this argument. (See [`teal.slice::FilterPanelAPI`]).</pre>
+                      <pre class="language-r">    # Select file.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">214</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `...` (optional) When provided, `server_args` elements will be passed to the module named argument</pre>
+                      <pre class="language-r">    observeEvent(input$snapshot_load, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">215</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    or to the `...`.</pre>
+                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot_load button clicked")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">216</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ui (`function`) `shiny` UI module function with following arguments:</pre>
+                      <pre class="language-r">      showModal(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">217</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `id` - `teal` will set proper `shiny` namespace for this module.</pre>
+                      <pre class="language-r">        modalDialog(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">218</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `...` (optional) When provided, `ui_args` elements will be passed to the module named argument</pre>
+                      <pre class="language-r">          fileInput(ns("snapshot_file"), "Choose snapshot file", accept = ".json", width = "100%"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">219</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    or to the `...`.</pre>
+                      <pre class="language-r">          textInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">220</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filters (`character`) Deprecated. Use `datanames` instead.</pre>
+                      <pre class="language-r">            ns("snapshot_name"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">221</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) Names of the datasets relevant to the item.</pre>
+                      <pre class="language-r">            "Name the snapshot (optional)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">222</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' There are 2 reserved values that have specific behaviors:</pre>
+                      <pre class="language-r">            width = "100%",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">223</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - The keyword `"all"` includes all datasets available in the data passed to the teal application.</pre>
+                      <pre class="language-r">            placeholder = "Meaningful, unique name"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `NULL` hides the sidebar panel completely.</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">225</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - If `transformators` are specified, their `datanames` are automatically added to this `datanames`</pre>
+                      <pre class="language-r">          footer = tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">226</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   argument.</pre>
+                      <pre class="language-r">            actionButton(ns("snaphot_file_accept"), "Accept", icon = icon("far fa-thumbs-up")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">227</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param server_args (named `list`) with additional arguments passed on to the server function.</pre>
+                      <pre class="language-r">            modalButton(label = "Cancel", icon = icon("far fa-thumbs-down"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ui_args (named `list`) with additional arguments passed on to the UI function.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`teal_module` or `teal_modules`) Object to format/print.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param transformators (`list` of `teal_transform_module`) that will be applied to transformator module's data input.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Store new snapshot to list and restore filter states.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ...</pre>
+                      <pre class="language-r">    observeEvent(input$snaphot_file_accept, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">234</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - For `modules()`: (`teal_module` or `teal_modules`) Objects to wrap into a tab.</pre>
+                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot_file_accept button clicked")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">235</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - For `format()` and `print()`: Arguments passed to other methods.</pre>
+                      <pre class="language-r">      snapshot_name &lt;- trimws(input$snapshot_name)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">236</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (identical(snapshot_name, "")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">237</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: no snapshot name provided, naming after file")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">238</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `module()` returns an object of class `teal_module`.</pre>
+                      <pre class="language-r">        snapshot_name &lt;- tools::file_path_sans_ext(input$snapshot_file$name)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">240</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `modules()` returns a `teal_modules` object which contains following fields:</pre>
+                      <pre class="language-r">      if (is.element(make.names(snapshot_name), make.names(names(snapshot_history())))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">241</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `label`: taken from the `label` argument.</pre>
+                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: snapshot name rejected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">242</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `children`: a list containing objects passed in `...`. List elements are named after</pre>
+                      <pre class="language-r">        showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">243</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' their `label` attribute converted to a valid `shiny` id.</pre>
+                      <pre class="language-r">          "This name is in conflict with other snapshot names. Please choose a different one.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">244</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          type = "message"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name teal_modules</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">246</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases teal_module</pre>
+                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        # Restore snapshot and verify app compatibility.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">249</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">        logger::log_debug("srv_snapshot_manager: snapshot name accepted, loading snapshot")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">250</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        snapshot_state &lt;- try(slices_restore(input$snapshot_file$datapath))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">251</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' module_1 &lt;- module(</pre>
+                      <pre class="language-r">        if (!inherits(snapshot_state, "modules_teal_slices")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">252</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label = "a module",</pre>
+                      <pre class="language-r">          logger::log_debug("srv_snapshot_manager: snapshot file corrupt")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">253</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server = function(id, data) {</pre>
+                      <pre class="language-r">          showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">254</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     moduleServer(</pre>
+                      <pre class="language-r">            "File appears to be corrupt.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">255</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       id,</pre>
+                      <pre class="language-r">            type = "error"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       module = function(input, output, session) {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">257</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         output$data &lt;- renderDataTable(data()[["iris"]])</pre>
+                      <pre class="language-r">        } else if (!identical(attr(snapshot_state, "app_id"), attr(slices_global$all_slices(), "app_id"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">258</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       }</pre>
+                      <pre class="language-r">          logger::log_debug("srv_snapshot_manager: snapshot not compatible with app")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">259</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">          showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">260</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   },</pre>
+                      <pre class="language-r">            "This snapshot file is not compatible with the app and cannot be loaded.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">261</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui = function(id) {</pre>
+                      <pre class="language-r">            type = "warning"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tagList(dataTableOutput(ns("data")))</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   },</pre>
+                      <pre class="language-r">          # Add to snapshot history.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">265</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   datanames = "all"</pre>
+                      <pre class="language-r">          logger::log_debug("srv_snapshot_manager: snapshot loaded, adding to history")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">266</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">          snapshot &lt;- as.list(slices_global$all_slices(), recursive = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">267</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          snapshot_update &lt;- c(snapshot_history(), list(snapshot))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">268</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' module_2 &lt;- module(</pre>
+                      <pre class="language-r">          names(snapshot_update)[length(snapshot_update)] &lt;- snapshot_name</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">269</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label = "another module",</pre>
+                      <pre class="language-r">          snapshot_history(snapshot_update)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server = function(id) {</pre>
+                      <pre class="language-r">          ### Begin simplified restore procedure. ###</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">271</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     moduleServer(</pre>
+                      <pre class="language-r">          logger::log_debug("srv_snapshot_manager: restoring snapshot")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">272</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       id,</pre>
+                      <pre class="language-r">          slices_global$slices_set(snapshot_state)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">273</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       module = function(input, output, session) {</pre>
+                      <pre class="language-r">          removeModal()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         output$text &lt;- renderText("Another Module")</pre>
+                      <pre class="language-r">          ### End  simplified restore procedure. ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       }</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   },</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui = function(id) {</pre>
+                      <pre class="language-r">    # Apply newly added snapshot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tagList(textOutput(ns("text")))</pre>
+                      <pre class="language-r">    # Restore initial state ----</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">281</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   },</pre>
+                      <pre class="language-r">    observeEvent(input$snapshot_reset, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">282</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   datanames = NULL</pre>
+                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot_reset button clicked, restoring snapshot")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      s &lt;- "Initial application state"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ### Begin restore procedure. ###</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' modules &lt;- modules(</pre>
+                      <pre class="language-r">      snapshot &lt;- snapshot_history()[[s]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label = "modules",</pre>
+                      <pre class="language-r">      snapshot_state &lt;- as.teal_slices(snapshot)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules(</pre>
+                      <pre class="language-r">      slices_global$slices_set(snapshot_state)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label = "nested modules",</pre>
+                      <pre class="language-r">      removeModal()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module_1</pre>
+                      <pre class="language-r">      ### End restore procedure. ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   module_2</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    # Build snapshot table ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Create UI elements and server logic for the snapshot table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">    # Observers must be tracked to avoid duplication and excess reactivity.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
+                      <pre class="language-r">    # Remaining elements are tracked likewise for consistency and a slight speed margin.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules</pre>
+                      <pre class="language-r">    observers &lt;- reactiveValues()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    handlers &lt;- reactiveValues()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    divs &lt;- reactiveValues()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">    observeEvent(snapshot_history(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">      logger::log_debug("srv_snapshot_manager: snapshot history modified, updating snapshot list")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">      lapply(names(snapshot_history())[-1L], function(s) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">303</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        id_pickme &lt;- sprintf("pickme_%s", make.names(s))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">304</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        id_saveme &lt;- sprintf("saveme_%s", make.names(s))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">305</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">module &lt;- function(label = "module",</pre>
+                      <pre class="language-r">        id_rowme &lt;- sprintf("rowme_%s", make.names(s))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   server = function(id, data, ...) moduleServer(id, function(input, output, session) NULL),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   ui = function(id, ...) tags$p(paste0("This module has no UI (id: ", id, " )")),</pre>
+                      <pre class="language-r">        # Observer for restoring snapshot.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">308</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   filters,</pre>
+                      <pre class="language-r">        if (!is.element(id_pickme, names(observers))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">309</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   datanames = "all",</pre>
+                      <pre class="language-r">          observers[[id_pickme]] &lt;- observeEvent(input[[id_pickme]], {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   server_args = NULL,</pre>
+                      <pre class="language-r">            ### Begin restore procedure. ###</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">311</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   ui_args = NULL,</pre>
+                      <pre class="language-r">            snapshot &lt;- snapshot_history()[[s]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">312</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   transformators = list()) {</pre>
+                      <pre class="language-r">            snapshot_state &lt;- as.teal_slices(snapshot)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # argument checking (independent)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">314</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `label`</pre>
+                      <pre class="language-r">            slices_global$slices_set(snapshot_state)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">220<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">315</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">            removeModal()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">217<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">316</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (label == "global_filters") {</pre>
+                      <pre class="language-r">            ### End restore procedure. ###</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">317</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">318</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("module(label = \"%s\", ...\n  ", label),</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">319</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Label 'global_filters' is reserved in teal. Please change to something else.",</pre>
+                      <pre class="language-r">        # Create handler for downloading snapshot.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">320</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      call. = FALSE</pre>
+                      <pre class="language-r">        if (!is.element(id_saveme, names(handlers))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">321</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          output[[id_saveme]] &lt;- downloadHandler(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">322</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            filename = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">216<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">323</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (label == "Report previewer") {</pre>
+                      <pre class="language-r">              sprintf("teal_snapshot_%s_%s.json", s, Sys.Date())</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">324</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">171</td>
+                    <td class="num">325</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">            content = function(file) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">172</td>
+                    <td class="num">326</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("module(label = \"%s\", ...\n  ", label),</pre>
+                      <pre class="language-r">              snapshot &lt;- snapshot_history()[[s]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">173</td>
+                    <td class="num">327</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Label 'Report previewer' is reserved in teal. Please change to something else.",</pre>
+                      <pre class="language-r">              snapshot_state &lt;- as.teal_slices(snapshot)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">174</td>
+                    <td class="num">328</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      call. = FALSE</pre>
+                      <pre class="language-r">              slices_store(tss = snapshot_state, file = file)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">331</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          handlers[[id_saveme]] &lt;- id_saveme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## server</pre>
+                      <pre class="language-r">        # Create a row for the snapshot table.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">216<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">334</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(server)</pre>
+                      <pre class="language-r">        if (!is.element(id_rowme, names(divs))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">216<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">335</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  server_formals &lt;- names(formals(server))</pre>
+                      <pre class="language-r">          divs[[id_rowme]] &lt;- tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">216<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">336</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!(</pre>
+                      <pre class="language-r">            class = "manager_table_row",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">216<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">337</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "id" %in% server_formals ||</pre>
+                      <pre class="language-r">            tags$span(tags$h5(s)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">216<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">338</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all(c("input", "output", "session") %in% server_formals)</pre>
+                      <pre class="language-r">            actionLink(inputId = ns(id_pickme), label = icon("far fa-circle-check"), title = "select"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">339</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            downloadLink(outputId = ns(id_saveme), label = icon("far fa-save"), title = "save to file")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )) {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">341</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">342</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\nmodule() `server` argument requires a function with following arguments:",</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">343</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - id - `teal` will set proper `shiny` namespace for this module.",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">344</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - input, output, session (not recommended) - then `shiny::callModule` will be used to call a module.",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">345</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n\nFollowing arguments can be used optionaly:",</pre>
+                      <pre class="language-r">    # Create table to display list of snapshots and their actions.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">346</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `data` - module will receive list of reactive (filtered) data specified in the `filters` argument",</pre>
+                      <pre class="language-r">    output$snapshot_list &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">347</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `datasets` - module will receive `FilteredData`. See `help(teal.slice::FilteredData)`",</pre>
+                      <pre class="language-r">      rows &lt;- rev(reactiveValuesToList(divs))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">348</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `reporter` - module will receive `Reporter`. See `help(teal.reporter::Reporter)`",</pre>
+                      <pre class="language-r">      if (length(rows) == 0L) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">349</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `filter_panel_api` - module will receive `FilterPanelAPI`. (See [teal.slice::FilterPanelAPI]).",</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">350</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `...` server_args elements will be passed to the module named argument or to the `...`"</pre>
+                      <pre class="language-r">          class = "manager_placeholder",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          "Snapshots will appear here."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">214<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if ("datasets" %in% server_formals) {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">354</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">        rows</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">355</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("Called from module(label = \"%s\", ...)\n  ", label),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">356</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "`datasets` argument in the server is deprecated and will be removed in the next release. ",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">357</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please use `data` instead.",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">358</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      call. = FALSE</pre>
+                      <pre class="language-r">    snapshot_history</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_nested_tabs.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Calls all `modules`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## UI</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">214<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(ui)</pre>
+                      <pre class="language-r">#' On the UI side each `teal_modules` is translated to a `tabsetPanel` and each `teal_module` is a</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">214<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ui_formals &lt;- names(formals(ui))</pre>
+                      <pre class="language-r">#' `tabPanel`. Both, UI and server are called recursively so that each tab is a separate module and</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">214<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!"id" %in% ui_formals) {</pre>
+                      <pre class="language-r">#' reflect nested structure of `modules` argument.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\nmodule() `ui` argument requires a function with following arguments:",</pre>
+                      <pre class="language-r">#' @name module_teal_module</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - id - `teal` will set proper `shiny` namespace for this module.",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n\nFollowing arguments can be used optionally:",</pre>
+                      <pre class="language-r">#' @inheritParams module_teal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `...` ui_args elements will be passed to the module argument of the same name or to the `...`"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @param data (`reactive` returning `teal_data`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param slices_global (`reactiveVal` returning `modules_teal_slices`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">213<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(c("data", "datasets") %in% ui_formals)) {</pre>
+                      <pre class="language-r">#'   see [`module_filter_manager`]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("Called from module(label = \"%s\", ...)\n  ", label),</pre>
+                      <pre class="language-r">#' @param depth (`integer(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "UI with `data` or `datasets` argument is no longer accepted.\n  ",</pre>
+                      <pre class="language-r">#'  number which helps to determine depth of the modules nesting.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "If some UI inputs depend on data, please move the logic to your server instead.\n  ",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Possible solutions are renderUI() or updateXyzInput() functions."</pre>
+                      <pre class="language-r">#' @param datasets (`reactive` returning `FilteredData` or `NULL`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'  When `datasets` is passed from the parent module (`srv_teal`) then `dataset` is a singleton</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'  which implies in filter-panel to be "global". When `NULL` then filter-panel is "module-specific".</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `filters`</pre>
+                      <pre class="language-r">#' @param data_load_status (`reactive` returning `character`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">211<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!missing(filters)) {</pre>
+                      <pre class="language-r">#'  Determines action dependent on a data loading status:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">230</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames &lt;- filters</pre>
+                      <pre class="language-r">#'  - `"ok"` when `teal_data` is returned from the data loading.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">231</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    msg &lt;-</pre>
+                      <pre class="language-r">#'  - `"teal_data_module failed"` when [teal_data_module()] didn't return  `teal_data`. Disables tabs buttons.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">232</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "The `filters` argument is deprecated and will be removed in the next release. Please use `datanames` instead."</pre>
+                      <pre class="language-r">#'  - `"external failed"` when a `reactive` passed to `srv_teal(data)` didn't return `teal_data`. Hides the whole tab</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">233</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(msg)</pre>
+                      <pre class="language-r">#'    panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `datanames` (also including deprecated `filters`)</pre>
+                      <pre class="language-r">#' output of currently active module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # please note a race condition between datanames set when filters is not missing and data arg in server function</pre>
+                      <pre class="language-r">#' - `srv_teal_module.teal_module` returns `reactiveVal` containing output of the called module.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">211<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.element("data", server_formals) &amp;&amp; !is.null(datanames)) {</pre>
+                      <pre class="language-r">#' - `srv_teal_module.teal_modules` returns output of module selected by `input$active_tab`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    message(sprintf("module \"%s\" server function takes no data so \"datanames\" will be ignored", label))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames &lt;- NULL</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">211<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(datanames, min.len = 1, null.ok = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname module_teal_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `server_args`</pre>
+                      <pre class="language-r">ui_teal_module &lt;- function(id, modules, depth = 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">210<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">40</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(server_args, null.ok = TRUE, names = "named")</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module", "shiny.tag"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">208<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">41</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  srv_extra_args &lt;- setdiff(names(server_args), server_formals)</pre>
+                      <pre class="language-r">  checkmate::assert_count(depth)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">208<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">42</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(srv_extra_args) &gt; 0 &amp;&amp; !"..." %in% server_formals) {</pre>
+                      <pre class="language-r">  UseMethod("ui_teal_module", modules)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\nFollowing `server_args` elements have no equivalent in the formals of the server:\n",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste(paste(" -", srv_extra_args), collapse = "\n"),</pre>
+                      <pre class="language-r">#' @rdname module_teal_module</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n\nUpdate the server arguments by including above or add `...`"</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">ui_teal_module.default &lt;- function(id, modules, depth = 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">48</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  stop("Modules class not supported: ", paste(class(modules), collapse = " "))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `ui_args`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">207<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(ui_args, null.ok = TRUE, names = "named")</pre>
+                      <pre class="language-r">#' @rdname module_teal_module</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">205<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ui_extra_args &lt;- setdiff(names(ui_args), ui_formals)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">205<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(ui_extra_args) &gt; 0 &amp;&amp; !"..." %in% ui_formals) {</pre>
+                      <pre class="language-r">ui_teal_module.teal_modules &lt;- function(id, modules, depth = 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">54</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">55</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\nFollowing `ui_args` elements have no equivalent in the formals of UI:\n",</pre>
+                      <pre class="language-r">  tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">56</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste(paste(" -", ui_extra_args), collapse = "\n"),</pre>
+                      <pre class="language-r">    id = ns("wrapper"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">57</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n\nUpdate the UI arguments by including above or add `...`"</pre>
+                      <pre class="language-r">    do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">58</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      tabsetPanel,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">264</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">59</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # by giving an id, we can reactively respond to tab changes</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">266</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">61</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `transformators`</pre>
+                      <pre class="language-r">        list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">62</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(transformators, "teal_transform_module")) {</pre>
+                      <pre class="language-r">          id = ns("active_tab"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">63</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    transformators &lt;- list(transformators)</pre>
+                      <pre class="language-r">          type = if (modules$label == "root") "pills" else "tabs"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">65</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(transformators, types = "teal_transform_module")</pre>
+                      <pre class="language-r">        lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">66</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  transform_datanames &lt;- unlist(lapply(transformators, attr, "datanames"))</pre>
+                      <pre class="language-r">          names(modules$children),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">67</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  combined_datanames &lt;- if (identical(datanames, "all")) {</pre>
+                      <pre class="language-r">          function(module_id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">151<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">68</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "all"</pre>
+                      <pre class="language-r">            module_label &lt;- modules$children[[module_id]]$label</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">274</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">            if (is.null(module_label)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">70</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    union(datanames, transform_datanames)</pre>
+                      <pre class="language-r">              module_label &lt;- icon("fas fa-database")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">72</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            tabPanel(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">73</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">              title = module_label,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">74</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">              value = module_id, # when clicked this tab value changes input$&lt;tabset panel id&gt;</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">75</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = label,</pre>
+                      <pre class="language-r">              ui_teal_module(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">76</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      server = server,</pre>
+                      <pre class="language-r">                id = ns(module_id),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">77</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui = ui,</pre>
+                      <pre class="language-r">                modules = modules$children[[module_id]],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">78</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datanames = combined_datanames,</pre>
+                      <pre class="language-r">                depth = depth + 1L</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      server_args = server_args,</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_args = ui_args,</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      transformators = transformators</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">204<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "teal_module"</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">#' @rdname module_teal_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">ui_teal_module.teal_module &lt;- function(id, modules, depth = 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">91</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">modules &lt;- function(..., label = "root") {</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">144<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">92</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">  args &lt;- c(list(id = ns("module")), modules$ui_args)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">142<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  submodules &lt;- list(...)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">142<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">94</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(vapply(submodules, is.character, FUN.VALUE = logical(1)))) {</pre>
+                      <pre class="language-r">  ui_teal &lt;- tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">95</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">    shinyjs::hidden(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">96</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "The only character argument to modules() must be 'label' and it must be named, ",</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">97</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "change modules('lab', ...) to modules(label = 'lab', ...)"</pre>
+                      <pre class="language-r">        id = ns("transform_failure_info"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">302</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">98</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        class = "teal_validated",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">303</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">99</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">304</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">100</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          class = "teal-output-warning",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">140<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">101</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(submodules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))</pre>
+                      <pre class="language-r">          "One of transformators failed. Please check its inputs."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # name them so we can more easily access the children</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # beware however that the label of the submodules should not be changed as it must be kept synced</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">137<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels &lt;- vapply(submodules, function(submodule) submodule$label, character(1))</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">137<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">105</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(submodules) &lt;- get_unique_labels(labels)</pre>
+                      <pre class="language-r">    tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">137<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">106</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">      id = ns("teal_module_ui"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">137<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">107</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">137<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">108</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = label,</pre>
+                      <pre class="language-r">        class = "teal_validated",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">137<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">109</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      children = submodules</pre>
+                      <pre class="language-r">        ui_check_module_datanames(ns("validate_datanames"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">137<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">111</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "teal_modules"</pre>
+                      <pre class="language-r">      do.call(modules$ui, args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">319</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">115</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># printing methods ----</pre>
+                      <pre class="language-r">  div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">320</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">116</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">321</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">117</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">    class = "teal_module",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">322</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">118</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param is_last (`logical(1)`) Whether this is the last item in its parent's children list.</pre>
+                      <pre class="language-r">    uiOutput(ns("data_reactive"), inline = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">119</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Affects the tree branch character used (L- vs |-)</pre>
+                      <pre class="language-r">    tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">324</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">120</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param parent_prefix (`character(1)`) The prefix inherited from parent nodes,</pre>
+                      <pre class="language-r">      if (depth &gt;= 2L) tags$div(style = "mt-6"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">325</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">121</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   used to maintain the tree structure in nested levels</pre>
+                      <pre class="language-r">      if (!is.null(modules$datanames)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">326</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">122</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param is_root (`logical(1)`) Whether this is the root node of the tree. Only used in</pre>
+                      <pre class="language-r">        fluidRow(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">327</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">123</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   format.teal_modules(). Determines whether to show "TEAL ROOT" header</pre>
+                      <pre class="language-r">          column(width = 9, ui_teal, class = "teal_primary_col"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">124</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param what (`character`) Specifies which metadata to display.</pre>
+                      <pre class="language-r">          column(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">125</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Possible values: "datasets", "properties", "ui_args", "server_args", "transformators"</pre>
+                      <pre class="language-r">            width = 3,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">126</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            ui_data_summary(ns("data_summary")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">127</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            ui_filter_data(ns("filter_panel")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">128</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            ui_transform_teal_data(ns("data_transform"), transformators = modules$transformators, class = "well"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">129</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            class = "teal_secondary_col"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod &lt;- module(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label = "My Custom Module",</pre>
+                      <pre class="language-r">      } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">133</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ui_teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server = function(id, data, ...) {},</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui = function(id, ...) {},</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   datanames = c("ADSL", "ADTTE"),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   transformators = list(),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui_args = list(a = 1, b = "b"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server_args = list(x = 5, y = list(p = 1))</pre>
+                      <pre class="language-r">#' @rdname module_teal_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">srv_teal_module &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' cat(format(mod))</pre>
+                      <pre class="language-r">                            data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                            modules,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format.teal_module &lt;- function(x,</pre>
+                      <pre class="language-r">                            datasets = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               is_last = FALSE,</pre>
+                      <pre class="language-r">                            slices_global,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               parent_prefix = "",</pre>
+                      <pre class="language-r">                            reporter = teal.reporter::Reporter$new(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               what = c("datasets", "properties", "ui_args", "server_args", "transformators"),</pre>
+                      <pre class="language-r">                            data_load_status = reactive("ok"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               ...) {</pre>
+                      <pre class="language-r">                            is_active = reactive(TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">148</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  empty_text &lt;- ""</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">149</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  branch &lt;- if (is_last) "L-" else "|-"</pre>
+                      <pre class="language-r">  assert_reactive(data)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  current_prefix &lt;- paste0(parent_prefix, branch, " ")</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">151</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  content_prefix &lt;- paste0(parent_prefix, if (is_last) "   " else "|  ")</pre>
+                      <pre class="language-r">  assert_reactive(datasets, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">351</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_class(slices_global, ".slicesGlobal")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">153</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  format_list &lt;- function(lst, empty = empty_text, label_width = 0) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(lst) || length(lst) == 0) {</pre>
+                      <pre class="language-r">  assert_reactive(data_load_status)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      empty</pre>
+                      <pre class="language-r">  UseMethod("srv_teal_module", modules)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">356</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      colon_space &lt;- paste(rep(" ", label_width), collapse = "")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname module_teal_module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">358</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      first_item &lt;- sprintf("%s (%s)", names(lst)[1], cli::col_silver(class(lst[[1]])[1]))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">359</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rest_items &lt;- if (length(lst) &gt; 1) {</pre>
+                      <pre class="language-r">srv_teal_module.default &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">360</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">161</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste(</pre>
+                      <pre class="language-r">                                    data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">361</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          vapply(</pre>
+                      <pre class="language-r">                                    modules,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            names(lst)[-1],</pre>
+                      <pre class="language-r">                                    datasets = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">363</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(name) {</pre>
+                      <pre class="language-r">                                    slices_global,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">364</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              sprintf(</pre>
+                      <pre class="language-r">                                    reporter = teal.reporter::Reporter$new(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">365</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "%s%s (%s)",</pre>
+                      <pre class="language-r">                                    data_load_status = reactive("ok"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">366</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                paste0(content_prefix, "|  ", colon_space),</pre>
+                      <pre class="language-r">                                    is_active = reactive(TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">367</td>
+                    <td class="num">168</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                name,</pre>
+                      <pre class="language-r">  stop("Modules class not supported: ", paste(class(modules), collapse = " "))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">368</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                cli::col_silver(class(lst[[name]])[1])</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">#' @rdname module_teal_module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">371</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            character(1)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">srv_teal_module.teal_modules &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">373</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          collapse = "\n"</pre>
+                      <pre class="language-r">                                         data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                                         modules,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                                         datasets = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">376</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(lst) &gt; 1) paste0(first_item, "\n", rest_items) else first_item</pre>
+                      <pre class="language-r">                                         slices_global,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                                         reporter = teal.reporter::Reporter$new(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                         data_load_status = reactive("ok"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                         is_active = reactive(TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bookmarkable &lt;- isTRUE(attr(x, "teal_bookmarkable"))</pre>
+                      <pre class="language-r">  moduleServer(id = id, module = function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  reportable &lt;- "reporter" %in% names(formals(x$server))</pre>
+                      <pre class="language-r">    logger::log_debug("srv_teal_module.teal_modules initializing the module { deparse1(modules$label) }.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  transformators &lt;- if (length(x$transformators) &gt; 0) {</pre>
+                      <pre class="language-r">    observeEvent(data_load_status(), {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">384</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(sapply(x$transformators, function(t) attr(t, "label")), collapse = ", ")</pre>
+                      <pre class="language-r">      tabs_selector &lt;- sprintf("#%s li a", session$ns("active_tab"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">385</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      if (identical(data_load_status(), "ok")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    empty_text</pre>
+                      <pre class="language-r">        logger::log_debug("srv_teal_module@1 enabling modules tabs.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">387</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        shinyjs::show("wrapper")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">388</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        shinyjs::enable(selector = tabs_selector)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  output &lt;- pasten(current_prefix, cli::bg_white(cli::col_black(x$label)))</pre>
+                      <pre class="language-r">      } else if (identical(data_load_status(), "teal_data_module failed")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">390</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        logger::log_debug("srv_teal_module@1 disabling modules tabs.")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("datasets" %in% what) {</pre>
+                      <pre class="language-r">        shinyjs::disable(selector = tabs_selector)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">193</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output &lt;- paste0(</pre>
+                      <pre class="language-r">      } else if (identical(data_load_status(), "external failed")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">194</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output,</pre>
+                      <pre class="language-r">        logger::log_debug("srv_teal_module@1 hiding modules tabs.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">195</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      content_prefix, "|- ", cli::col_yellow("Datasets         : "), paste(x$datanames, collapse = ", "), "\n"</pre>
+                      <pre class="language-r">        shinyjs::hide("wrapper")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("properties" %in% what) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output &lt;- paste0(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      output,</pre>
+                      <pre class="language-r">    modules_output &lt;- sapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      content_prefix, "|- ", cli::col_blue("Properties:"), "\n",</pre>
+                      <pre class="language-r">      names(modules$children),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      content_prefix, "|  |- ", cli::col_cyan("Bookmarkable  : "), bookmarkable, "\n",</pre>
+                      <pre class="language-r">      function(module_id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">402</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      content_prefix, "|  L- ", cli::col_cyan("Reportable    : "), reportable, "\n"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">403</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">404</td>
-                    <td class="coverage"></td>
+                    <td class="num">202</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        srv_teal_module(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">405</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("ui_args" %in% what) {</pre>
+                      <pre class="language-r">          id = module_id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">406</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_args_formatted &lt;- format_list(x$ui_args, label_width = 19)</pre>
+                      <pre class="language-r">          data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">407</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output &lt;- paste0(</pre>
+                      <pre class="language-r">          modules = modules$children[[module_id]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">408</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output,</pre>
+                      <pre class="language-r">          datasets = datasets,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      content_prefix, "|- ", cli::col_green("UI Arguments     : "), ui_args_formatted, "\n"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">410</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">411</td>
-                    <td class="coverage"></td>
+                    <td class="num">207</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          slices_global = slices_global,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">412</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("server_args" %in% what) {</pre>
+                      <pre class="language-r">          reporter = reporter,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">209</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args_formatted &lt;- format_list(x$server_args, label_width = 19)</pre>
+                      <pre class="language-r">          is_active = reactive(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">414</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output &lt;- paste0(</pre>
+                      <pre class="language-r">            is_active() &amp;&amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">415</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output,</pre>
+                      <pre class="language-r">              input$active_tab == module_id &amp;&amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">212</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      content_prefix, "|- ", cli::col_green("Server Arguments : "), server_args_formatted, "\n"</pre>
+                      <pre class="language-r">              identical(data_load_status(), "ok")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">419</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if ("transformators" %in% what) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">420</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    output &lt;- paste0(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output,</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      content_prefix, "L- ", cli::col_magenta("Transformators   : "), transformators, "\n"</pre>
+                      <pre class="language-r">      simplify = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">425</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">426</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  output</pre>
+                      <pre class="language-r">    modules_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @rdname module_teal_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' custom_module &lt;- function(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label = "label", ui_args = NULL, server_args = NULL,</pre>
+                      <pre class="language-r">srv_teal_module.teal_module &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     datanames = "all", transformators = list(), bk = FALSE) {</pre>
+                      <pre class="language-r">                                        data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ans &lt;- module(</pre>
+                      <pre class="language-r">                                        modules,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label,</pre>
+                      <pre class="language-r">                                        datasets = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     server = function(id, data, ...) {},</pre>
+                      <pre class="language-r">                                        slices_global,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ui = function(id, ...) {</pre>
+                      <pre class="language-r">                                        reporter = teal.reporter::Reporter$new(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     },</pre>
+                      <pre class="language-r">                                        data_load_status = reactive("ok"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     datanames = datanames,</pre>
+                      <pre class="language-r">                                        is_active = reactive(TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">440</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     transformators = transformators,</pre>
+                      <pre class="language-r">  logger::log_debug("srv_teal_module.teal_module initializing the module: { deparse1(modules$label) }.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">441</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ui_args = ui_args,</pre>
+                      <pre class="language-r">  moduleServer(id = id, module = function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">442</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     server_args = server_args</pre>
+                      <pre class="language-r">    module_out &lt;- reactiveVal()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">444</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   attr(ans, "teal_bookmarkable") &lt;- bk</pre>
+                      <pre class="language-r">    active_datanames &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">445</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ans</pre>
+                      <pre class="language-r">      .resolve_module_datanames(data = data(), modules = modules)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">447</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (is.null(datasets)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">448</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dummy_transformator &lt;- teal_transform_module(</pre>
+                      <pre class="language-r">      datasets &lt;- eventReactive(data(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">449</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label = "Dummy Transform",</pre>
+                      <pre class="language-r">        req(inherits(data(), "teal_data"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">450</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui = function(id) div("(does nothing)"),</pre>
+                      <pre class="language-r">        logger::log_debug("srv_teal_module@1 initializing module-specific FilteredData")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">451</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server = function(id, data) {</pre>
+                      <pre class="language-r">        teal_data_to_filtered_data(data(), datanames = active_datanames())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">452</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     moduleServer(id, function(input, output, session) data)</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # manage module filters on the module level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' plot_transformator &lt;- teal_transform_module(</pre>
+                      <pre class="language-r">    # important:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label = "Plot Settings",</pre>
+                      <pre class="language-r">    #   filter_manager_module_srv needs to be called before filter_panel_srv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui = function(id) div("(does nothing)"),</pre>
+                      <pre class="language-r">    #   Because available_teal_slices is used in FilteredData$srv_available_slices (via srv_filter_panel)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server = function(id, data) {</pre>
+                      <pre class="language-r">    #   and if it is not set, then it won't be available in the srv_filter_panel</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">460</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     moduleServer(id, function(input, output, session) data)</pre>
+                      <pre class="language-r">    srv_module_filter_manager(modules$label, module_fd = datasets, slices_global = slices_global)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">462</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    call_once_when(is_active(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">463</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      filtered_teal_data &lt;- srv_filter_data(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">464</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' complete_modules &lt;- modules(</pre>
+                      <pre class="language-r">        "filter_panel",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">465</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   custom_module(</pre>
+                      <pre class="language-r">        datasets = datasets,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">466</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label = "Data Overview",</pre>
+                      <pre class="language-r">        active_datanames = active_datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">467</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     datanames = c("ADSL", "ADAE", "ADVS"),</pre>
+                      <pre class="language-r">        data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">468</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ui_args = list(</pre>
+                      <pre class="language-r">        is_active = is_active</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       view_type = "table",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">470</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       page_size = 10,</pre>
+                      <pre class="language-r">      is_transform_failed &lt;- reactiveValues()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">471</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       filters = c("ARM", "SEX", "RACE")</pre>
+                      <pre class="language-r">      transformed_teal_data &lt;- srv_transform_teal_data(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">472</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">        "data_transform",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">473</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     server_args = list(</pre>
+                      <pre class="language-r">        data = filtered_teal_data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">474</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">267</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       cache = TRUE,</pre>
+                      <pre class="language-r">        transformators = modules$transformators,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">475</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       debounce = 1000</pre>
+                      <pre class="language-r">        modules = modules,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">476</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">        is_transform_failed = is_transform_failed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     transformators = list(dummy_transformator),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">478</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     bk = TRUE</pre>
+                      <pre class="language-r">      any_transform_failed &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">479</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">        any(unlist(reactiveValuesToList(is_transform_failed)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules(</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label = "Nested 1",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">482</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     custom_module(</pre>
+                      <pre class="language-r">      observeEvent(any_transform_failed(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">483</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Interactive Plots",</pre>
+                      <pre class="language-r">        if (isTRUE(any_transform_failed())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">484</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       datanames = c("ADSL", "ADVS"),</pre>
+                      <pre class="language-r">          shinyjs::hide("teal_module_ui")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">485</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ui_args = list(</pre>
+                      <pre class="language-r">          shinyjs::show("transform_failure_info")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         plot_type = c("scatter", "box", "line"),</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">487</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">280</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         height = 600,</pre>
+                      <pre class="language-r">          shinyjs::show("teal_module_ui")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">488</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">281</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         width = 800,</pre>
+                      <pre class="language-r">          shinyjs::hide("transform_failure_info")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         color_scheme = "viridis"</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       server_args = list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">492</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         render_type = "svg",</pre>
+                      <pre class="language-r">      module_teal_data &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">493</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         cache_plots = TRUE</pre>
+                      <pre class="language-r">        req(inherits(transformed_teal_data(), "teal_data"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">494</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">        all_teal_data &lt;- transformed_teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">495</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       transformators = list(dummy_transformator, plot_transformator),</pre>
+                      <pre class="language-r">        module_datanames &lt;- .resolve_module_datanames(data = all_teal_data, modules = modules)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">496</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       bk = TRUE</pre>
+                      <pre class="language-r">        all_teal_data[c(module_datanames, ".raw_data")]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">497</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">498</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     modules(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">499</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">292</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "Nested 2",</pre>
+                      <pre class="language-r">      srv_check_module_datanames(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">500</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">293</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       custom_module(</pre>
+                      <pre class="language-r">        "validate_datanames",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">501</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         label = "Summary Statistics",</pre>
+                      <pre class="language-r">        data = module_teal_data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">502</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">295</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         datanames = "ADSL",</pre>
+                      <pre class="language-r">        modules = modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">503</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ui_args = list(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           stats = c("mean", "median", "sd", "range"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">505</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           grouping = c("ARM", "SEX")</pre>
+                      <pre class="language-r">      summary_table &lt;- srv_data_summary("data_summary", module_teal_data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">      # Call modules.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">508</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       modules(</pre>
+                      <pre class="language-r">      if (!inherits(modules, "teal_module_previewer")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">509</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         label = "Labeled nested modules",</pre>
+                      <pre class="language-r">        obs_module &lt;- call_once_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">510</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">303</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         custom_module(</pre>
+                      <pre class="language-r">          !is.null(module_teal_data()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">511</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">304</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           label = "Subgroup Analysis",</pre>
+                      <pre class="language-r">          ignoreNULL = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">512</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           datanames = c("ADSL", "ADAE"),</pre>
+                      <pre class="language-r">          handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">513</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">306</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           ui_args = list(</pre>
+                      <pre class="language-r">            module_out(.call_teal_module(modules, datasets, module_teal_data, reporter))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             subgroups = c("AGE", "SEX", "RACE"),</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">515</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             analysis_type = "stratified"</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">516</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           ),</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">517</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           bk = TRUE</pre>
+                      <pre class="language-r">        # Report previewer must be initiated on app start for report cards to be included in bookmarks.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">518</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">        # When previewer is delayed, cards are bookmarked only if previewer has been initiated (visited).</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">519</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">312</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">        module_out(.call_teal_module(modules, datasets, module_teal_data, reporter))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">520</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       modules(custom_module(label = "Subgroup Analysis in non-labled modules"))</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">521</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">522</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">112<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    module_out</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">523</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   custom_module("Non-nested module")</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">524</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">525</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">526</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' cat(format(complete_modules))</pre>
+                      <pre class="language-r"># This function calls a module server function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' cat(format(complete_modules, what = c("ui_args", "server_args", "transformators")))</pre>
+                      <pre class="language-r">.call_teal_module &lt;- function(modules, datasets, data, reporter) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">322</td>
+                    <td class="coverage">80<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_reactive(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">528</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format.teal_modules &lt;- function(x, is_root = TRUE, is_last = FALSE, parent_prefix = "", ...) {</pre>
+                      <pre class="language-r">  # collect arguments to run teal_module</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">530</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">325</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is_root) {</pre>
+                      <pre class="language-r">  args &lt;- c(list(id = "module"), modules$server_args)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">531</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">326</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    header &lt;- pasten(cli::style_bold("TEAL ROOT"))</pre>
+                      <pre class="language-r">  if (is_arg_used(modules$server, "reporter")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">532</td>
+                    <td class="num">327</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    new_parent_prefix &lt;- "  " #' Initial indent for root level</pre>
+                      <pre class="language-r">    args &lt;- c(args, list(reporter = reporter))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">533</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">534</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(x$label)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">535</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      branch &lt;- if (is_last) "L-" else "|-"</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">536</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      header &lt;- pasten(parent_prefix, branch, " ", cli::style_bold(x$label))</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">537</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      new_parent_prefix &lt;- paste0(parent_prefix, if (is_last) "   " else "|  ")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">538</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">539</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">330</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      header &lt;- ""</pre>
+                      <pre class="language-r">  if (is_arg_used(modules$server, "datasets")) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">540</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">331</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      new_parent_prefix &lt;- parent_prefix</pre>
+                      <pre class="language-r">    args &lt;- c(args, datasets = datasets())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">541</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">332</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    warning("datasets argument is not reactive and therefore it won't be updated when data is refreshed.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">544</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">335</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(x$children) &gt; 0) {</pre>
+                      <pre class="language-r">  if (is_arg_used(modules$server, "data")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">545</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">336</td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children_output &lt;- character(0)</pre>
+                      <pre class="language-r">    args &lt;- c(args, data = list(data))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">546</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">337</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_children &lt;- length(x$children)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">548</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">339</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (i in seq_along(x$children)) {</pre>
+                      <pre class="language-r">  if (is_arg_used(modules$server, "filter_panel_api")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">549</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">340</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      child &lt;- x$children[[i]]</pre>
+                      <pre class="language-r">    args &lt;- c(args, filter_panel_api = teal.slice::FilterPanelAPI$new(datasets()))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">550</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">341</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_last_child &lt;- (i == n_children)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">551</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">552</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (inherits(child, "teal_modules")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">553</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        children_output &lt;- c(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">554</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          children_output,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">555</td>
-                    <td class="coverage">!</td>
+                    <td class="num">343</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          format(child,</pre>
+                      <pre class="language-r">  if (is_arg_used(modules$server, "id")) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">556</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            is_root = FALSE,</pre>
+                      <pre class="language-r">    do.call(modules$server, args)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">557</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">345</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            is_last = is_last_child,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">558</td>
+                    <td class="num">346</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            parent_prefix = new_parent_prefix,</pre>
+                      <pre class="language-r">    do.call(callModule, c(args, list(module = modules$server)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ...</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">561</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">562</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">.resolve_module_datanames &lt;- function(data, modules) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">563</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">351</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        children_output &lt;- c(</pre>
+                      <pre class="language-r">  stopifnot("data must be teal_data object." = inherits(data, "teal_data"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">564</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">352</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          children_output,</pre>
+                      <pre class="language-r">  if (is.null(modules$datanames) || identical(modules$datanames, "all")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">565</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">353</td>
+                    <td class="coverage">145<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          format(child,</pre>
+                      <pre class="language-r">    names(data)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">566</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">354</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            is_last = is_last_child,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">567</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">355</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            parent_prefix = new_parent_prefix,</pre>
+                      <pre class="language-r">    intersect(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">568</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ...</pre>
+                      <pre class="language-r">      names(data), # Keep topological order from teal.data::names()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">569</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">357</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      .include_parent_datanames(modules$datanames, teal.data::join_keys(data))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">570</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">571</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">572</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">573</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">574</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">362</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(header, paste(children_output, collapse = ""))</pre>
+                      <pre class="language-r">#' Calls expression when condition is met</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">576</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">364</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    header</pre>
+                      <pre class="language-r">#' Function postpones `handlerExpr` to the moment when `eventExpr` (condition) returns `TRUE`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">577</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' otherwise nothing happens.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">578</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param eventExpr A (quoted or unquoted) logical expression that represents the event;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">579</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' this can be a simple reactive value like input$click, a call to a reactive expression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">580</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">#' like dataset(), or even a complex expression inside curly braces.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">581</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param ... additional arguments passed to `observeEvent` with the exception of `eventExpr` that is not allowed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">582</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">print.teal_module &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">#' @inheritParams shiny::observeEvent</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">583</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">371</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cat(format(x, ...))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">584</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">372</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(x)</pre>
+                      <pre class="language-r">#' @return An observer.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">585</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">586</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">587</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">call_once_when &lt;- function(eventExpr, # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">588</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                           handlerExpr, # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">589</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">print.teal_modules &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">                           event.env = parent.frame(), # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">590</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">378</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cat(format(x, ...))</pre>
+                      <pre class="language-r">                           handler.env = parent.frame(), # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">591</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">379</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(x)</pre>
+                      <pre class="language-r">                           ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">592</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">380</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  event_quo &lt;- rlang::new_quosure(substitute(eventExpr), env = event.env)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">198<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  handler_quo &lt;- rlang::new_quosure(substitute(handlerExpr), env = handler.env)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">593</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">594</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_module` or `teal_modules`)</pre>
+                      <pre class="language-r">  # When `condExpr` is TRUE, then `handlerExpr` is evaluated once.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">595</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">384</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">  activator &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">596</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    if (isTRUE(rlang::eval_tidy(event_quo))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">597</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">386</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # change the module's datanames</pre>
+                      <pre class="language-r">      TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">598</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set_datanames(module(datanames = "all"), "a")</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">600</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # change modules' datanames</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">601</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">390</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set_datanames(</pre>
+                      <pre class="language-r">  observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">602</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">391</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules(</pre>
+                      <pre class="language-r">    eventExpr = activator(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">603</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">392</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module(datanames = "all"),</pre>
+                      <pre class="language-r">    once = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">604</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">393</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module(datanames = "a")</pre>
+                      <pre class="language-r">    handlerExpr = rlang::eval_tidy(handler_quo),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">605</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">    ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">606</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "b"</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">607</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_data_summary.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">608</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Data summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">609</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">set_datanames &lt;- function(modules, datanames) {</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">610</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
+                      <pre class="language-r">#' Module and its utils to display the number of rows and subjects in the filtered and unfiltered data.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">611</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">612</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules$children &lt;- lapply(modules$children, set_datanames, datanames)</pre>
+                      <pre class="language-r">#' @details Handling different data classes:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">613</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' `get_filter_overview()` is a pseudo S3 method which has variants for:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">614</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (identical(modules$datanames, "all")) {</pre>
+                      <pre class="language-r">#' - `array` (`data.frame`, `DataFrame`, `array`, `Matrix` and `SummarizedExperiment`): Method variant</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">615</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      modules$datanames &lt;- datanames</pre>
+                      <pre class="language-r">#' can be applied to any two-dimensional objects on which [ncol()] can be used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' - `MultiAssayExperiment`: for which summary contains counts for `colData` and all `experiments`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">617</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      warning(</pre>
+                      <pre class="language-r">#' - For other data types module displays data name with warning icon and no more details.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">618</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Not possible to modify datanames of the module ", modules$label,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">619</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ". set_datanames() can only change datanames if it was set to \"all\".",</pre>
+                      <pre class="language-r">#' Module includes also "Show/Hide unsupported" button to toggle rows of the summary table</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">620</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        call. = FALSE</pre>
+                      <pre class="language-r">#' containing datasets where number of observations are not calculated.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">621</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">622</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">623</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param teal_data (`reactive` returning `teal_data`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">624</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  modules</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">625</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @name module_data_summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">626</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname module_data_summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">627</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># utilities ----</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">628</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">## subset or modify modules ----</pre>
+                      <pre class="language-r">#' @return `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">629</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">630</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Append a `teal_module` to `children` of a `teal_modules` object</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">631</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @rdname module_data_summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">632</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
+                      <pre class="language-r">ui_data_summary &lt;- function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">633</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">26</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param module (`teal_module`) object to be appended onto the children of `modules`</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">634</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">27</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `teal_modules` object with `module` appended.</pre>
+                      <pre class="language-r">  content_id &lt;- ns("filters_overview_contents")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">635</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">28</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">append_module &lt;- function(modules, module) {</pre>
+                      <pre class="language-r">  tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">636</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">29</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
+                      <pre class="language-r">    id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">637</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">30</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(module, "teal_module")</pre>
+                      <pre class="language-r">    class = "well",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">638</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">31</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  modules$children &lt;- c(modules$children, list(module))</pre>
+                      <pre class="language-r">    tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">639</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">32</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels &lt;- vapply(modules$children, function(submodule) submodule$label, character(1))</pre>
+                      <pre class="language-r">      class = "row",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">640</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">33</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(modules$children) &lt;- get_unique_labels(labels)</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">641</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">34</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  modules</pre>
+                      <pre class="language-r">        class = "col-sm-9",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">642</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">35</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        tags$label("Active Filter Summary", class = "text-primary mb-4")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">643</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">644</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">37</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Extract/Remove module(s) of specific class</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">645</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">38</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        class = "col-sm-3",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">646</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">39</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Given a `teal_module` or a `teal_modules`, return the elements of the structure according to `class`.</pre>
+                      <pre class="language-r">        tags$i(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">647</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">40</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          class = "remove pull-right fa fa-angle-down",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">648</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">41</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
+                      <pre class="language-r">          style = "cursor: pointer;",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">649</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">42</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param class The class name of `teal_module` to be extracted or dropped.</pre>
+                      <pre class="language-r">          title = "fold/expand data summary panel",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">650</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">43</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          onclick = sprintf("togglePanelItems(this, '%s', 'fa-angle-right', 'fa-angle-down');", content_id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">651</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">652</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - For `extract_module`, a `teal_module` of class `class` or `teal_modules` containing modules of class `class`.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">653</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - For `drop_module`, the opposite, which is all `teal_modules` of  class other than `class`.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">654</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_management</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">655</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">47</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">extract_module &lt;- function(modules, class) {</pre>
+                      <pre class="language-r">    tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">656</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">48</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, class)) {</pre>
+                      <pre class="language-r">      id = content_id,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">657</td>
+                    <td class="num">49</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">658</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">50</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
+                      <pre class="language-r">        class = "teal_active_summary_filter_panel",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">659</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">51</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">        tableOutput(ns("table"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">660</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">661</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Filter(function(x) length(x) &gt; 0L, lapply(modules$children, extract_module, class))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">662</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">663</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">664</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">665</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @rdname module_data_summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">666</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `teal_modules`</pre>
+                      <pre class="language-r">srv_data_summary &lt;- function(id, data) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">667</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_management</pre>
+                      <pre class="language-r">  assert_reactive(data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">668</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">drop_module &lt;- function(modules, class) {</pre>
+                      <pre class="language-r">  moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">669</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, class)) {</pre>
+                      <pre class="language-r">    id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">670</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">    function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">671</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
+                      <pre class="language-r">      logger::log_debug("srv_data_summary initializing")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">672</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">673</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">      summary_table &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">674</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(</pre>
+                      <pre class="language-r">        req(inherits(data(), "teal_data"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">675</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "modules",</pre>
+                      <pre class="language-r">        if (!length(data())) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">676</td>
+                    <td class="num">68</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c(Filter(function(x) length(x) &gt; 0L, lapply(modules$children, drop_module, class)), label = modules$label)</pre>
+                      <pre class="language-r">          return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">677</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">678</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        get_filter_overview_wrapper(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">679</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">680</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">681</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">## read modules ----</pre>
+                      <pre class="language-r">      output$table &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">682</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        summary_table_out &lt;- try(summary_table(), silent = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">683</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Does the object make use of the `arg`</pre>
+                      <pre class="language-r">        if (inherits(summary_table_out, "try-error")) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">684</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          # Ignore silent shiny error</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">685</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_module` or `teal_modules`) object</pre>
+                      <pre class="language-r">          if (!inherits(attr(summary_table_out, "condition"), "shiny.silent.error")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">686</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">78</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param arg (`character(1)`) names of the arguments to be checked against formals of `teal` modules.</pre>
+                      <pre class="language-r">            stop("Error occurred during data processing. See details in the main panel.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">687</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `logical` whether the object makes use of `arg`.</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">688</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname is_arg_used</pre>
+                      <pre class="language-r">        } else if (is.null(summary_table_out)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">689</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          "no datasets to show"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">690</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">is_arg_used &lt;- function(modules, arg) {</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">691</td>
-                    <td class="coverage">519<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(arg)</pre>
+                      <pre class="language-r">          is_unsupported &lt;- apply(summary_table(), 1, function(x) all(is.na(x[-1])))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">692</td>
-                    <td class="coverage">516<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">          summary_table_out[is.na(summary_table_out)] &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">693</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    any(unlist(lapply(modules$children, is_arg_used, arg)))</pre>
+                      <pre class="language-r">          body_html &lt;- apply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">694</td>
-                    <td class="coverage">496<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
+                      <pre class="language-r">            summary_table_out,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">695</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_arg_used(modules$server, arg) || is_arg_used(modules$ui, arg)</pre>
+                      <pre class="language-r">            1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">696</td>
-                    <td class="coverage">464<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (is.function(modules)) {</pre>
+                      <pre class="language-r">            function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">697</td>
-                    <td class="coverage">462<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    isTRUE(arg %in% names(formals(modules)))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">698</td>
-                    <td class="coverage"></td>
+                    <td class="num">89</td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">              is_supported &lt;- !all(x[-1] == "")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">699</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    stop("is_arg_used function not implemented for this object")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">700</td>
-                    <td class="coverage"></td>
+                    <td class="num">90</td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">              if (is_supported) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">701</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">153<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                tags$tr(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">702</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">153<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">703</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">153<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    tags$td(x[1]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">704</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">153<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get module depth</pre>
+                      <pre class="language-r">                    lapply(x[-1], tags$td)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">705</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">706</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Depth starts at 0, so a single `teal.module` has depth 0.</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">707</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Nesting it increases overall depth by 1.</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">708</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">709</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams init</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">710</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param depth optional integer determining current depth level</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">711</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          header_labels &lt;- tools::toTitleCase(names(summary_table_out))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">712</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Depth level for given module.</pre>
+                      <pre class="language-r">          header_labels[header_labels == "Dataname"] &lt;- "Data Name"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">713</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          header_html &lt;- tags$tr(tagList(lapply(header_labels, tags$td)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">714</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">modules_depth &lt;- function(modules, depth = 0L) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">715</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_module", "teal_modules"))</pre>
+                      <pre class="language-r">          table_html &lt;- tags$table(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">716</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_int(depth, lower = 0)</pre>
+                      <pre class="language-r">            class = "table custom-table",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">717</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">            tags$thead(header_html),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">718</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    max(vapply(modules$children, modules_depth, integer(1), depth = depth + 1L))</pre>
+                      <pre class="language-r">            tags$tbody(body_html)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">719</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">720</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    depth</pre>
+                      <pre class="language-r">          div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">721</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            table_html,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">722</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            if (any(is_unsupported)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">723</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              p(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">724</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Retrieve labels from `teal_modules`</pre>
+                      <pre class="language-r">                class = c("pull-right", "float-right", "text-secondary"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">725</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                style = "font-size: 0.8em;",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">726</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
+                      <pre class="language-r">                sprintf("And %s more unfilterable object(s)", sum(is_unsupported)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">727</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` containing the labels of the modules. If the modules are nested,</pre>
+                      <pre class="language-r">                icon(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">728</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the function returns a nested `list` of labels.</pre>
+                      <pre class="language-r">                  name = "far fa-circle-question",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">729</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                  title = paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">730</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">module_labels &lt;- function(modules) {</pre>
+                      <pre class="language-r">                    sep = "",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">731</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">                    collapse = "\n",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">732</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(modules$children, module_labels)</pre>
+                      <pre class="language-r">                    shQuote(summary_table()[is_unsupported, "dataname"]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">733</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">                    " (",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">734</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules$label</pre>
+                      <pre class="language-r">                    vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">735</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                      summary_table()[is_unsupported, "dataname"],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">736</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                      function(x) class(data()[[x]])[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">737</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                      character(1L)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">738</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Retrieve `teal_bookmarkable` attribute from `teal_modules`</pre>
+                      <pre class="language-r">                    ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">739</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    ")"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">740</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules` or `teal_module`) object</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">741</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return named list of the same structure as `modules` with `TRUE` or `FALSE` values indicating</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">742</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' whether the module is bookmarkable.</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">743</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">744</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">modules_bookmarkable &lt;- function(modules) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">745</td>
-                    <td class="coverage">199<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">746</td>
-                    <td class="coverage">199<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">747</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    setNames(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">748</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      lapply(modules$children, modules_bookmarkable),</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">749</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vapply(modules$children, `[[`, "label", FUN.VALUE = character(1))</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">750</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">751</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">752</td>
-                    <td class="coverage">112<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    attr(modules, "teal_bookmarkable", exact = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">753</td>
-                    <td class="coverage"></td>
+                    <td class="num">138</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">754</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_data_summary.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Data summary</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Module and its utils to display the number of rows and subjects in the filtered and unfiltered data.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @rdname module_data_summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details Handling different data classes:</pre>
+                      <pre class="language-r">get_filter_overview_wrapper &lt;- function(teal_data) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `get_filter_overview()` is a pseudo S3 method which has variants for:</pre>
+                      <pre class="language-r">  # Sort datanames in topological order</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `array` (`data.frame`, `DataFrame`, `array`, `Matrix` and `SummarizedExperiment`): Method variant</pre>
+                      <pre class="language-r">  datanames &lt;- names(teal_data())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' can be applied to any two-dimensional objects on which [ncol()] can be used.</pre>
+                      <pre class="language-r">  joinkeys &lt;- teal.data::join_keys(teal_data())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `MultiAssayExperiment`: for which summary contains counts for `colData` and all `experiments`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - For other data types module displays data name with warning icon and no more details.</pre>
+                      <pre class="language-r">  current_data_objs &lt;- sapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Module includes also "Show/Hide unsupported" button to toggle rows of the summary table</pre>
+                      <pre class="language-r">    function(name) teal_data()[[name]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' containing datasets where number of observations are not calculated.</pre>
+                      <pre class="language-r">    simplify = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">  initial_data_objs &lt;- teal_data()[[".raw_data"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param teal_data (`reactive` returning `teal_data`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  out &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_data_summary</pre>
+                      <pre class="language-r">    datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_data_summary</pre>
+                      <pre class="language-r">    function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">157<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      parent &lt;- teal.data::parent(joinkeys, dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">157<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `NULL`.</pre>
+                      <pre class="language-r">      subject_keys &lt;- if (length(parent) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">        names(joinkeys[dataname, parent])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">149<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_data_summary</pre>
+                      <pre class="language-r">        joinkeys[dataname, dataname]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_data_summary &lt;- function(id) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">26</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">157<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">      get_filter_overview(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">27</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">157<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  content_id &lt;- ns("filters_overview_contents")</pre>
+                      <pre class="language-r">        current_data = current_data_objs[[dataname]],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">28</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">157<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$div(</pre>
+                      <pre class="language-r">        initial_data = initial_data_objs[[dataname]],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">29</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">157<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = id,</pre>
+                      <pre class="language-r">        dataname = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">30</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">157<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "well",</pre>
+                      <pre class="language-r">        subject_keys = subject_keys</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">31</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">32</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">171</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "row",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">33</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">34</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "col-sm-9",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">35</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$label("Active Filter Summary", class = "text-primary mb-4")</pre>
+                      <pre class="language-r">  do.call(.smart_rbind, out)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">37</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">38</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "col-sm-3",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">39</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">178</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$i(</pre>
+                      <pre class="language-r">#' @rdname module_data_summary</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">40</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "remove pull-right fa fa-angle-down",</pre>
+                      <pre class="language-r">#' @param current_data (`object`) current object (after filtering and transforming).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">41</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          style = "cursor: pointer;",</pre>
+                      <pre class="language-r">#' @param initial_data (`object`) initial object.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">42</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "fold/expand data summary panel",</pre>
+                      <pre class="language-r">#' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">43</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          onclick = sprintf("togglePanelItems(this, '%s', 'fa-angle-right', 'fa-angle-down');", content_id)</pre>
+                      <pre class="language-r">#' @param subject_keys (`character`) names of the columns which determine a single unique subjects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">get_filter_overview &lt;- function(current_data, initial_data, dataname, subject_keys) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  if (inherits(current_data, c("data.frame", "DataFrame", "array", "Matrix", "SummarizedExperiment"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">    get_filter_overview_array(current_data, initial_data, dataname, subject_keys)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">47</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(</pre>
+                      <pre class="language-r">  } else if (inherits(current_data, "MultiAssayExperiment")) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">48</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = content_id,</pre>
+                      <pre class="language-r">    get_filter_overview_MultiAssayExperiment(current_data, initial_data, dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">49</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">50</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "teal_active_summary_filter_panel",</pre>
+                      <pre class="language-r">    data.frame(dataname = dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">51</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tableOutput(ns("table"))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @rdname module_data_summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">get_filter_overview_array &lt;- function(current_data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                      initial_data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_data_summary</pre>
+                      <pre class="language-r">                                      dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_data_summary &lt;- function(id, data) {</pre>
+                      <pre class="language-r">                                      subject_keys) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_reactive(data)</pre>
+                      <pre class="language-r">  if (length(subject_keys) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">138<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(</pre>
+                      <pre class="language-r">    data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">138<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = id,</pre>
+                      <pre class="language-r">      dataname = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">138<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(input, output, session) {</pre>
+                      <pre class="language-r">      obs = if (!is.null(initial_data)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">127<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("srv_data_summary initializing")</pre>
+                      <pre class="language-r">        sprintf("%s/%s", nrow(current_data), nrow(initial_data))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">86<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      summary_table &lt;- reactive({</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">94<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req(inherits(data(), "teal_data"))</pre>
+                      <pre class="language-r">        nrow(current_data)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!length(data())) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">68</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          return(NULL)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        get_filter_overview_wrapper(data)</pre>
+                      <pre class="language-r">    data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">      dataname = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      obs = if (!is.null(initial_data)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output$table &lt;- renderUI({</pre>
+                      <pre class="language-r">        sprintf("%s/%s", nrow(current_data), nrow(initial_data))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">94<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        summary_table_out &lt;- try(summary_table(), silent = TRUE)</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">94<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (inherits(summary_table_out, "try-error")) {</pre>
+                      <pre class="language-r">        nrow(current_data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Ignore silent shiny error</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!inherits(attr(summary_table_out, "condition"), "shiny.silent.error")) {</pre>
+                      <pre class="language-r">      subjects = if (!is.null(initial_data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">78</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            stop("Error occurred during data processing. See details in the main panel.")</pre>
+                      <pre class="language-r">        sprintf("%s/%s", nrow(unique(current_data[subject_keys])), nrow(unique(initial_data[subject_keys])))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (is.null(summary_table_out)) {</pre>
+                      <pre class="language-r">        nrow(unique(current_data[subject_keys]))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">219</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "no datasets to show"</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_unsupported &lt;- apply(summary_table(), 1, function(x) all(is.na(x[-1])))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          summary_table_out[is.na(summary_table_out)] &lt;- ""</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          body_html &lt;- apply(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">224</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            summary_table_out,</pre>
+                      <pre class="language-r">#' @rdname module_data_summary</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            1,</pre>
+                      <pre class="language-r">get_filter_overview_MultiAssayExperiment &lt;- function(current_data, # nolint: object_length, object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(x) {</pre>
+                      <pre class="language-r">                                                     initial_data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">162<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">227</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              is_supported &lt;- !all(x[-1] == "")</pre>
+                      <pre class="language-r">                                                     dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">162<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (is_supported) {</pre>
+                      <pre class="language-r">  experiment_names &lt;- names(current_data)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">153<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tags$tr(</pre>
+                      <pre class="language-r">  mae_info &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">153<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  tagList(</pre>
+                      <pre class="language-r">    dataname = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">153<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    tags$td(x[1]),</pre>
+                      <pre class="language-r">    subjects = if (!is.null(initial_data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">153<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">232</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    lapply(x[-1], tags$td)</pre>
+                      <pre class="language-r">      sprintf("%s/%s", nrow(current_data@colData), nrow(initial_data@colData))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">      nrow(current_data@colData)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  experiment_obs_info &lt;- do.call("rbind", lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">239</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          header_labels &lt;- tools::toTitleCase(names(summary_table_out))</pre>
+                      <pre class="language-r">    experiment_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">240</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          header_labels[header_labels == "Dataname"] &lt;- "Data Name"</pre>
+                      <pre class="language-r">    function(experiment_name) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">241</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          header_html &lt;- tags$tr(tagList(lapply(header_labels, tags$td)))</pre>
+                      <pre class="language-r">      transform(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        get_filter_overview(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">243</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          table_html &lt;- tags$table(</pre>
+                      <pre class="language-r">          current_data[[experiment_name]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">244</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "table custom-table",</pre>
+                      <pre class="language-r">          initial_data[[experiment_name]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">245</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$thead(header_html),</pre>
+                      <pre class="language-r">          dataname = experiment_name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">246</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$tbody(body_html)</pre>
+                      <pre class="language-r">          subject_keys = join_keys() # empty join keys</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">248</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          div(</pre>
+                      <pre class="language-r">        dataname = paste0(" - ", experiment_name)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">249</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            table_html,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">250</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (any(is_unsupported)) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              p(</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">252</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                class = c("pull-right", "float-right", "text-secondary"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">253</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                style = "font-size: 0.8em;",</pre>
+                      <pre class="language-r">  get_experiment_keys &lt;- function(mae, experiment) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">254</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                sprintf("And %s more unfilterable object(s)", sum(is_unsupported)),</pre>
+                      <pre class="language-r">    sample_subset &lt;- mae@sampleMap[mae@sampleMap$colname %in% colnames(experiment), ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">255</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                icon(</pre>
+                      <pre class="language-r">    length(unique(sample_subset$primary))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">256</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  name = "far fa-circle-question",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  title = paste(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">258</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    sep = "",</pre>
+                      <pre class="language-r">  experiment_subjects_info &lt;- do.call("rbind", lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    collapse = "\n",</pre>
+                      <pre class="language-r">    experiment_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                    shQuote(summary_table()[is_unsupported, "dataname"]),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                    <td class="num">260</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    " (",</pre>
+                      <pre class="language-r">    function(experiment_name) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">261</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    vapply(</pre>
+                      <pre class="language-r">      data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">262</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      summary_table()[is_unsupported, "dataname"],</pre>
+                      <pre class="language-r">        subjects = if (!is.null(initial_data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">263</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      function(x) class(data()[[x]])[1],</pre>
+                      <pre class="language-r">          sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">264</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      character(1L)</pre>
+                      <pre class="language-r">            "%s/%s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">265</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    ),</pre>
+                      <pre class="language-r">            get_experiment_keys(current_data, current_data[[experiment_name]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">266</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    ")"</pre>
+                      <pre class="language-r">            get_experiment_keys(current_data, initial_data[[experiment_name]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">          get_experiment_keys(current_data, current_data[[experiment_name]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">275</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      NULL</pre>
+                      <pre class="language-r">  experiment_info &lt;- cbind(experiment_obs_info, experiment_subjects_info)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  .smart_rbind(mae_info, experiment_info)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_teal_lockfile.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' Generate lockfile for application's environment reproducibility</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_data_summary</pre>
+                      <pre class="language-r">#' @param lockfile_path (`character`) path to the lockfile.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_filter_overview_wrapper &lt;- function(teal_data) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Sort datanames in topological order</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  datanames &lt;- names(teal_data())</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  joinkeys &lt;- teal.data::join_keys(teal_data())</pre>
+                      <pre class="language-r">#' @section Different ways of creating lockfile:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  current_data_objs &lt;- sapply(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    datanames,</pre>
+                      <pre class="language-r">#' `teal` leverages [renv::snapshot()], which offers multiple methods for lockfile creation.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(name) teal_data()[[name]],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    simplify = FALSE</pre>
+                      <pre class="language-r">#' - **Working directory lockfile**: `teal`, by default, will create an `implicit` type lockfile that uses</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' `renv::dependencies()` to detect all R packages in the current project's working directory.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  initial_data_objs &lt;- teal_data()[[".raw_data"]]</pre>
+                      <pre class="language-r">#' - **`DESCRIPTION`-based lockfile**: To generate a lockfile based on a `DESCRIPTION` file in your working</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' directory, set `renv::settings$snapshot.type("explicit")`. The naming convention for `type` follows</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- lapply(</pre>
+                      <pre class="language-r">#' `renv::snapshot()`. For the `"explicit"` type, refer to `renv::settings$package.dependency.fields()` for the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames,</pre>
+                      <pre class="language-r">#' `DESCRIPTION` fields included in the lockfile.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(dataname) {</pre>
+                      <pre class="language-r">#' - **Custom files-based lockfile**: To specify custom files as the basis for the lockfile, set</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">157<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parent &lt;- teal.data::parent(joinkeys, dataname)</pre>
+                      <pre class="language-r">#' `renv::settings$snapshot.type("custom")` and configure the `renv.snapshot.filter` option.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">157<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      subject_keys &lt;- if (length(parent) &gt; 0) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        names(joinkeys[dataname, parent])</pre>
+                      <pre class="language-r">#' @section lockfile usage:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' After creating the lockfile, you can restore the application's environment using `renv::restore()`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">149<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        joinkeys[dataname, dataname]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @seealso [renv::snapshot()], [renv::restore()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">157<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      get_filter_overview(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">157<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        current_data = current_data_objs[[dataname]],</pre>
+                      <pre class="language-r">#' @return `NULL`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">157<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        initial_data = initial_data_objs[[dataname]],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">157<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataname = dataname,</pre>
+                      <pre class="language-r">#' @name module_teal_lockfile</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">157<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        subject_keys = subject_keys</pre>
+                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(.smart_rbind, out)</pre>
+                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">ui_teal_lockfile &lt;- function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">32</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">33</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  shiny::tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">34</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_data_summary</pre>
+                      <pre class="language-r">    tags$span("", id = ns("lockFileStatus")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">35</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    shinyjs::disabled(downloadLink(ns("lockFileLink"), "Download lockfile"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param current_data (`object`) current object (after filtering and transforming).</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param initial_data (`object`) initial object.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataname (`character(1)`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param subject_keys (`character`) names of the columns which determine a single unique subjects</pre>
+                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_filter_overview &lt;- function(current_data, initial_data, dataname, subject_keys) {</pre>
+                      <pre class="language-r">srv_teal_lockfile &lt;- function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">162<em>x</em></td>
+                    <td class="num">41</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(current_data, c("data.frame", "DataFrame", "array", "Matrix", "SummarizedExperiment"))) {</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="num">42</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_overview_array(current_data, initial_data, dataname, subject_keys)</pre>
+                      <pre class="language-r">    logger::log_debug("Initialize srv_teal_lockfile.")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">43</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(current_data, "MultiAssayExperiment")) {</pre>
+                      <pre class="language-r">    enable_lockfile_download &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">44</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_overview_MultiAssayExperiment(current_data, initial_data, dataname)</pre>
+                      <pre class="language-r">      shinyjs::html("lockFileStatus", "Application lockfile ready.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">45</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      shinyjs::hide("lockFileStatus", anim = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">46</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data.frame(dataname = dataname)</pre>
+                      <pre class="language-r">      shinyjs::enable("lockFileLink")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">47</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      output$lockFileLink &lt;- shiny::downloadHandler(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">48</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        filename = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">49</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          "renv.lock"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_data_summary</pre>
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">51</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_filter_overview_array &lt;- function(current_data,</pre>
+                      <pre class="language-r">        content = function(file) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">52</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      initial_data,</pre>
+                      <pre class="language-r">          file.copy(lockfile_path, file)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">53</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      dataname,</pre>
+                      <pre class="language-r">          file</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      subject_keys) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">152<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (length(subject_keys) == 0) {</pre>
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">138<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">55</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data.frame(</pre>
+                      <pre class="language-r">        contentType = "application/json"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">138<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname = dataname,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">138<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      obs = if (!is.null(initial_data)) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">127<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("%s/%s", nrow(current_data), nrow(initial_data))</pre>
+                      <pre class="language-r">    disable_lockfile_download &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">59</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      warning("Lockfile creation failed.", call. = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">60</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nrow(current_data)</pre>
+                      <pre class="language-r">      shinyjs::html("lockFileStatus", "Lockfile creation failed.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">61</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      shinyjs::hide("lockFileLink")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data.frame(</pre>
+                      <pre class="language-r">    shiny::onStop(function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname = dataname,</pre>
+                      <pre class="language-r">      if (file.exists(lockfile_path) &amp;&amp; !shiny::isRunning()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      obs = if (!is.null(initial_data)) {</pre>
+                      <pre class="language-r">        logger::log_debug("Removing lockfile after shutting down the app")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("%s/%s", nrow(current_data), nrow(initial_data))</pre>
+                      <pre class="language-r">        file.remove(lockfile_path)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nrow(current_data)</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">71</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      subjects = if (!is.null(initial_data)) {</pre>
+                      <pre class="language-r">    lockfile_path &lt;- "teal_app.lock"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("%s/%s", nrow(unique(current_data[subject_keys])), nrow(unique(initial_data[subject_keys])))</pre>
+                      <pre class="language-r">    mode &lt;- getOption("teal.lockfile.mode", default = "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nrow(unique(current_data[subject_keys]))</pre>
+                      <pre class="language-r">    if (!(mode %in% c("auto", "enabled", "disabled"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">75</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      stop("'teal.lockfile.mode' option can only be one of \"auto\", \"disabled\" or \"disabled\". ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    if (mode == "disabled") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">223</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      logger::log_debug("'teal.lockfile.mode' option is set to 'disabled'. Hiding lockfile download button.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">224</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_data_summary</pre>
+                      <pre class="language-r">      shinyjs::hide("lockFileLink")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">225</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_filter_overview_MultiAssayExperiment &lt;- function(current_data, # nolint: object_length, object_name.</pre>
+                      <pre class="language-r">      return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                     initial_data,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                     dataname) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  experiment_names &lt;- names(current_data)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  mae_info &lt;- data.frame(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dataname = dataname,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    subjects = if (!is.null(initial_data)) {</pre>
+                      <pre class="language-r">    if (file.exists(lockfile_path)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">232</td>
+                    <td class="num">85</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("%s/%s", nrow(current_data@colData), nrow(initial_data@colData))</pre>
+                      <pre class="language-r">      logger::log_debug("Lockfile has already been created for this app - skipping automatic creation.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">86</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">      enable_lockfile_download()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nrow(current_data@colData)</pre>
+                      <pre class="language-r">      return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  experiment_obs_info &lt;- do.call("rbind", lapply(</pre>
+                      <pre class="language-r">    if (mode == "auto" &amp;&amp; .is_disabled_lockfile_scenario()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">91</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    experiment_names,</pre>
+                      <pre class="language-r">      logger::log_debug(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">92</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(experiment_name) {</pre>
+                      <pre class="language-r">        "Automatic lockfile creation disabled. Execution scenario satisfies teal:::.is_disabled_lockfile_scenario()."</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      transform(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        get_filter_overview(</pre>
+                      <pre class="language-r">      shinyjs::hide("lockFileLink")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          current_data[[experiment_name]],</pre>
+                      <pre class="language-r">      return(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          initial_data[[experiment_name]],</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataname = experiment_name,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          subject_keys = join_keys() # empty join keys</pre>
+                      <pre class="language-r">    if (!.is_lockfile_deps_installed()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">99</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">      warning("Automatic lockfile creation disabled. `mirai` and `renv` packages must be installed.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">100</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataname = paste0(" - ", experiment_name)</pre>
+                      <pre class="language-r">      shinyjs::hide("lockFileLink")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">101</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  get_experiment_keys &lt;- function(mae, experiment) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    sample_subset &lt;- mae@sampleMap[mae@sampleMap$colname %in% colnames(experiment), ]</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    length(unique(sample_subset$primary))</pre>
+                      <pre class="language-r">    # - Will be run only if the lockfile doesn't exist (see the if-s above)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    # - We render to the tempfile because the process might last after session is closed and we don't</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #   want to make a "teal_app.renv" then. This is why we copy only during active session.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
+                    <td class="num">107</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  experiment_subjects_info &lt;- do.call("rbind", lapply(</pre>
+                      <pre class="language-r">    process &lt;- .teal_lockfile_process_invoke(lockfile_path)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
+                    <td class="num">108</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    experiment_names,</pre>
+                      <pre class="language-r">    observeEvent(process$status(), {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">109</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(experiment_name) {</pre>
+                      <pre class="language-r">      if (process$status() %in% c("initial", "running")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">110</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data.frame(</pre>
+                      <pre class="language-r">        shinyjs::html("lockFileStatus", "Creating lockfile...")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">111</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        subjects = if (!is.null(initial_data)) {</pre>
+                      <pre class="language-r">      } else if (process$status() == "success") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">263</td>
+                    <td class="num">112</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf(</pre>
+                      <pre class="language-r">        result &lt;- process$result()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">264</td>
+                    <td class="num">113</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "%s/%s",</pre>
+                      <pre class="language-r">        if (any(grepl("Lockfile written to", result$out))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">265</td>
+                    <td class="num">114</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            get_experiment_keys(current_data, current_data[[experiment_name]]),</pre>
+                      <pre class="language-r">          logger::log_debug("Lockfile containing { length(result$res$Packages) } packages created.")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">266</td>
+                    <td class="num">115</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            get_experiment_keys(current_data, initial_data[[experiment_name]])</pre>
+                      <pre class="language-r">          if (any(grepl("(WARNING|ERROR):", result$out))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">267</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">116</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">            warning("Lockfile created with warning(s) or error(s):", call. = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">268</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">117</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">            for (i in result$out) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">118</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          get_experiment_keys(current_data, current_data[[experiment_name]])</pre>
+                      <pre class="language-r">              warning(i, call. = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">272</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">121</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">          enable_lockfile_download()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">        } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">123</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          disable_lockfile_download()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">125</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  experiment_info &lt;- cbind(experiment_obs_info, experiment_subjects_info)</pre>
+                      <pre class="language-r">      } else if (process$status() == "error") {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">126</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .smart_rbind(mae_info, experiment_info)</pre>
+                      <pre class="language-r">        disable_lockfile_download()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_teal_lockfile.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generate lockfile for application's environment reproducibility</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lockfile_path (`character`) path to the lockfile.</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Different ways of creating lockfile:</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal` leverages [renv::snapshot()], which offers multiple methods for lockfile creation.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">utils::globalVariables(c("opts", "sysenv", "libpaths", "wd", "lockfilepath", "run")) # needed for mirai call</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - **Working directory lockfile**: `teal`, by default, will create an `implicit` type lockfile that uses</pre>
+                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `renv::dependencies()` to detect all R packages in the current project's working directory.</pre>
+                      <pre class="language-r">.teal_lockfile_process_invoke &lt;- function(lockfile_path) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - **`DESCRIPTION`-based lockfile**: To generate a lockfile based on a `DESCRIPTION` file in your working</pre>
+                      <pre class="language-r">  mirai_obj &lt;- NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' directory, set `renv::settings$snapshot.type("explicit")`. The naming convention for `type` follows</pre>
+                      <pre class="language-r">  process &lt;- shiny::ExtendedTask$new(function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `renv::snapshot()`. For the `"explicit"` type, refer to `renv::settings$package.dependency.fields()` for the</pre>
+                      <pre class="language-r">    m &lt;- mirai::mirai(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `DESCRIPTION` fields included in the lockfile.</pre>
+                      <pre class="language-r">      {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - **Custom files-based lockfile**: To specify custom files as the basis for the lockfile, set</pre>
+                      <pre class="language-r">        options(opts)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `renv::settings$snapshot.type("custom")` and configure the `renv.snapshot.filter` option.</pre>
+                      <pre class="language-r">        do.call(Sys.setenv, sysenv)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        .libPaths(libpaths)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section lockfile usage:</pre>
+                      <pre class="language-r">        setwd(wd)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' After creating the lockfile, you can restore the application's environment using `renv::restore()`.</pre>
+                      <pre class="language-r">        run(lockfile_path = lockfile_path)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [renv::snapshot()], [renv::restore()].</pre>
+                      <pre class="language-r">      run = .renv_snapshot,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      lockfile_path = lockfile_path,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `NULL`</pre>
+                      <pre class="language-r">      opts = options(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      libpaths = .libPaths(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_teal_lockfile</pre>
+                      <pre class="language-r">      sysenv = as.list(Sys.getenv()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      wd = getwd()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    mirai_obj &lt;&lt;- m</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    m</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_teal_lockfile &lt;- function(id) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">32</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">  shiny::onStop(function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">33</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::tagList(</pre>
+                      <pre class="language-r">    if (mirai::unresolved(mirai_obj)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">34</td>
+                    <td class="num">160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$span("", id = ns("lockFileStatus")),</pre>
+                      <pre class="language-r">      logger::log_debug("Terminating a running lockfile process...")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">35</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyjs::disabled(downloadLink(ns("lockFileLink"), "Download lockfile"))</pre>
+                      <pre class="language-r">      mirai::stop_mirai(mirai_obj) # this doesn't stop running - renv will be created even if session is closed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  suppressWarnings({ # 'package:stats' may not be available when loading</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    process$invoke()</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_teal_lockfile &lt;- function(id) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">  logger::log_debug("Lockfile creation started based on { getwd() }.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_debug("Initialize srv_teal_lockfile.")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    enable_lockfile_download &lt;- function() {</pre>
+                      <pre class="language-r">  process</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">44</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::html("lockFileStatus", "Application lockfile ready.")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">45</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::hide("lockFileStatus", anim = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">46</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::enable("lockFileLink")</pre>
+                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">47</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">175</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output$lockFileLink &lt;- shiny::downloadHandler(</pre>
+                      <pre class="language-r">.renv_snapshot &lt;- function(lockfile_path) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">48</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        filename = function() {</pre>
+                      <pre class="language-r">  out &lt;- utils::capture.output(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">49</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "renv.lock"</pre>
+                      <pre class="language-r">    res &lt;- renv::snapshot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r">      lockfile = lockfile_path,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">51</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        content = function(file) {</pre>
+                      <pre class="language-r">      prompt = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">52</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          file.copy(lockfile_path, file)</pre>
+                      <pre class="language-r">      force = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">53</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          file</pre>
+                      <pre class="language-r">      type = renv::settings$snapshot.type() # see the section "Different ways of creating lockfile" above here</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">55</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        contentType = "application/json"</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    disable_lockfile_download &lt;- function() {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">59</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      warning("Lockfile creation failed.", call. = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">60</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::html("lockFileStatus", "Lockfile creation failed.")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">61</td>
-                    <td class="coverage">!</td>
+                    <td class="num">185</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::hide("lockFileLink")</pre>
+                      <pre class="language-r">  list(out = out, res = res)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shiny::onStop(function() {</pre>
+                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (file.exists(lockfile_path) &amp;&amp; !shiny::isRunning()) {</pre>
+                      <pre class="language-r">.is_lockfile_deps_installed &lt;- function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
+                    <td class="num">190</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("Removing lockfile after shutting down the app")</pre>
+                      <pre class="language-r">  requireNamespace("mirai", quietly = TRUE) &amp;&amp; requireNamespace("renv", quietly = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        file.remove(lockfile_path)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">.is_disabled_lockfile_scenario &lt;- function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lockfile_path &lt;- "teal_app.lock"</pre>
+                      <pre class="language-r">  identical(Sys.getenv("CALLR_IS_RUNNING"), "true") || # inside callr process</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mode &lt;- getOption("teal.lockfile.mode", default = "")</pre>
+                      <pre class="language-r">    identical(Sys.getenv("TESTTHAT"), "true") || # inside devtools::test</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">86<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    !identical(Sys.getenv("QUARTO_PROJECT_ROOT"), "") || # inside Quarto process</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    (</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!(mode %in% c("auto", "enabled", "disabled"))) {</pre>
+                      <pre class="language-r">      ("CheckExEnv" %in% search()) || any(c("_R_CHECK_TIMINGS_", "_R_CHECK_LICENSE_") %in% names(Sys.getenv()))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">75</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("'teal.lockfile.mode' option can only be one of \"auto\", \"disabled\" or \"disabled\". ")</pre>
+                      <pre class="language-r">    ) # inside R CMD CHECK</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/validate_inputs.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Send input validation messages to output</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (mode == "disabled") {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("'teal.lockfile.mode' option is set to 'disabled'. Hiding lockfile download button.")</pre>
+                      <pre class="language-r">#' Captures messages from `InputValidator` objects and collates them</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::hide("lockFileLink")</pre>
+                      <pre class="language-r">#' into one message passed to `validate`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(NULL)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' `shiny::validate` is used to withhold rendering of an output element until</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' certain conditions are met and to print a validation message in place</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (file.exists(lockfile_path)) {</pre>
+                      <pre class="language-r">#' of the output element.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">85</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("Lockfile has already been created for this app - skipping automatic creation.")</pre>
+                      <pre class="language-r">#' `shinyvalidate::InputValidator` allows to validate input elements</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">86</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      enable_lockfile_download()</pre>
+                      <pre class="language-r">#' and to display specific messages in their respective input widgets.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">87</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(NULL)</pre>
+                      <pre class="language-r">#' `validate_inputs` provides a hybrid solution.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' Given an `InputValidator` object, messages corresponding to inputs that fail validation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' are extracted and placed in one validation message that is passed to a `validate`/`need` call.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (mode == "auto" &amp;&amp; .is_disabled_lockfile_scenario()) {</pre>
+                      <pre class="language-r">#' This way the input `validator` messages are repeated in the output.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Automatic lockfile creation disabled. Execution scenario satisfies teal:::.is_disabled_lockfile_scenario()."</pre>
+                      <pre class="language-r">#' The `...` argument accepts any number of `InputValidator` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' or a nested list of such objects.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::hide("lockFileLink")</pre>
+                      <pre class="language-r">#' If `validators` are passed directly, all their messages are printed together</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(NULL)</pre>
+                      <pre class="language-r">#' under one (optional) header message specified by `header`. If a list is passed,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' messages are grouped by `validator`. The list's names are used as headers</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' for their respective message groups.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!.is_lockfile_deps_installed()) {</pre>
+                      <pre class="language-r">#' If neither of the nested list elements is named, a header message is taken from `header`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">99</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      warning("Automatic lockfile creation disabled. `mirai` and `renv` packages must be installed.")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">100</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::hide("lockFileLink")</pre>
+                      <pre class="language-r">#' @param ... either any number of `InputValidator` objects</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">101</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(NULL)</pre>
+                      <pre class="language-r">#'            or an optionally named, possibly nested `list` of `InputValidator`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'            objects, see `Details`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param header (`character(1)`) generic validation message; set to NULL to omit</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # - Will be run only if the lockfile doesn't exist (see the if-s above)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # - We render to the tempfile because the process might last after session is closed and we don't</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   want to make a "teal_app.renv" then. This is why we copy only during active session.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    process &lt;- .teal_lockfile_process_invoke(lockfile_path)</pre>
+                      <pre class="language-r">#' Returns NULL if the final validation call passes and a `shiny.silent.error` if it fails.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(process$status(), {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">109</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (process$status() %in% c("initial", "running")) {</pre>
+                      <pre class="language-r">#' @seealso [`shinyvalidate::InputValidator`], [`shiny::validate`]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">110</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::html("lockFileStatus", "Creating lockfile...")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">111</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (process$status() == "success") {</pre>
+                      <pre class="language-r">#' @examplesIf require("shinyvalidate")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">112</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        result &lt;- process$result()</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">113</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (any(grepl("Lockfile written to", result$out))) {</pre>
+                      <pre class="language-r">#' library(shinyvalidate)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">114</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_debug("Lockfile containing { length(result$res$Packages) } packages created.")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">115</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (any(grepl("(WARNING|ERROR):", result$out))) {</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">116</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            warning("Lockfile created with warning(s) or error(s):", call. = FALSE)</pre>
+                      <pre class="language-r">#'   selectInput("method", "validation method", c("sequential", "combined", "grouped")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">117</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            for (i in result$out) {</pre>
+                      <pre class="language-r">#'   sidebarLayout(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">118</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              warning(i, call. = FALSE)</pre>
+                      <pre class="language-r">#'     sidebarPanel(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">#'       selectInput("letter", "select a letter:", c(letters[1:3], LETTERS[4:6])),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#'       selectInput("number", "select a number:", 1:6),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">121</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          enable_lockfile_download()</pre>
+                      <pre class="language-r">#'       tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#'       selectInput("color", "select a color:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">123</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          disable_lockfile_download()</pre>
+                      <pre class="language-r">#'         c("black", "indianred2", "springgreen2", "cornflowerblue"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'         multiple = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">125</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (process$status() == "error") {</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">126</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        disable_lockfile_download()</pre>
+                      <pre class="language-r">#'       sliderInput("size", "select point size:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'         min = 0.1, max = 4, value = 0.25</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">#'     mainPanel(plotOutput("plot"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">utils::globalVariables(c("opts", "sysenv", "libpaths", "wd", "lockfilepath", "run")) # needed for mirai call</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
+                      <pre class="language-r">#'   # set up input validation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.teal_lockfile_process_invoke &lt;- function(lockfile_path) {</pre>
+                      <pre class="language-r">#'   iv &lt;- InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mirai_obj &lt;- NULL</pre>
+                      <pre class="language-r">#'   iv$add_rule("letter", sv_in_set(LETTERS, "choose a capital letter"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  process &lt;- shiny::ExtendedTask$new(function() {</pre>
+                      <pre class="language-r">#'   iv$add_rule("number", function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    m &lt;- mirai::mirai(</pre>
+                      <pre class="language-r">#'     if (as.integer(x) %% 2L == 1L) "choose an even number"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      {</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        options(opts)</pre>
+                      <pre class="language-r">#'   iv$enable()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        do.call(Sys.setenv, sysenv)</pre>
+                      <pre class="language-r">#'   # more input validation</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .libPaths(libpaths)</pre>
+                      <pre class="language-r">#'   iv_par &lt;- InputValidator$new()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        setwd(wd)</pre>
+                      <pre class="language-r">#'   iv_par$add_rule("color", sv_required(message = "choose a color"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        run(lockfile_path = lockfile_path)</pre>
+                      <pre class="language-r">#'   iv_par$add_rule("color", function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">#'     if (length(x) &gt; 1L) "choose only one color"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      run = .renv_snapshot,</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lockfile_path = lockfile_path,</pre>
+                      <pre class="language-r">#'   iv_par$add_rule(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      opts = options(),</pre>
+                      <pre class="language-r">#'     "size",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      libpaths = .libPaths(),</pre>
+                      <pre class="language-r">#'     sv_between(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sysenv = as.list(Sys.getenv()),</pre>
+                      <pre class="language-r">#'       left = 0.5, right = 3,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      wd = getwd()</pre>
+                      <pre class="language-r">#'       message_fmt = "choose a value between {left} and {right}"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mirai_obj &lt;&lt;- m</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    m</pre>
+                      <pre class="language-r">#'   iv_par$enable()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::onStop(function() {</pre>
+                      <pre class="language-r">#'     # validate output</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (mirai::unresolved(mirai_obj)) {</pre>
+                      <pre class="language-r">#'     switch(input[["method"]],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">160</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("Terminating a running lockfile process...")</pre>
+                      <pre class="language-r">#'       "sequential" = {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">161</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mirai::stop_mirai(mirai_obj) # this doesn't stop running - renv will be created even if session is closed</pre>
+                      <pre class="language-r">#'         validate_inputs(iv)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'         validate_inputs(iv_par, header = "Set proper graphical parameters")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'       },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       "combined" = validate_inputs(iv, iv_par),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  suppressWarnings({ # 'package:stats' may not be available when loading</pre>
+                      <pre class="language-r">#'       "grouped" = validate_inputs(list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    process$invoke()</pre>
+                      <pre class="language-r">#'         "Some inputs require attention" = iv,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'         "Set proper graphical parameters" = iv_par</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_debug("Lockfile creation started based on { getwd() }.")</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  process</pre>
+                      <pre class="language-r">#'     plot(faithful$eruptions ~ faithful$waiting,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       las = 1, pch = 16,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       col = input[["color"]], cex = input[["size"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.renv_snapshot &lt;- function(lockfile_path) {</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- utils::capture.output(</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- renv::snapshot(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lockfile = lockfile_path,</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      prompt = FALSE,</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      force = TRUE,</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      type = renv::settings$snapshot.type() # see the section "Different ways of creating lockfile" above here</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">validate_inputs &lt;- function(..., header = "Some inputs require attention") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(out = out, res = res)</pre>
+                      <pre class="language-r">  dots &lt;- list(...)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is_validators(dots)) stop("validate_inputs accepts validators or a list thereof")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  messages &lt;- extract_validator(dots, header)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  failings &lt;- if (!any_names(dots)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">29<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    add_header(messages, header)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    unlist(messages)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.is_lockfile_deps_installed &lt;- function() {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  requireNamespace("mirai", quietly = TRUE) &amp;&amp; requireNamespace("renv", quietly = TRUE)</pre>
+                      <pre class="language-r">  shiny::validate(shiny::need(is.null(failings), failings))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_lockfile</pre>
+                      <pre class="language-r">### internal functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.is_disabled_lockfile_scenario &lt;- function() {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  identical(Sys.getenv("CALLR_IS_RUNNING"), "true") || # inside callr process</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    identical(Sys.getenv("TESTTHAT"), "true") || # inside devtools::test</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    !identical(Sys.getenv("QUARTO_PROJECT_ROOT"), "") || # inside Quarto process</pre>
+                      <pre class="language-r"># recursive object type test</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (</pre>
+                      <pre class="language-r"># returns logical of length 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ("CheckExEnv" %in% search()) || any(c("_R_CHECK_TIMINGS_", "_R_CHECK_LICENSE_") %in% names(Sys.getenv()))</pre>
+                      <pre class="language-r">is_validators &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">118<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) # inside R CMD CHECK</pre>
+                      <pre class="language-r">  all(if (is.list(x)) unlist(lapply(x, is_validators)) else inherits(x, "InputValidator"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_init_data.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Data Module for teal</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module manages the `data` argument for `srv_teal`. The `teal` framework uses [teal.data::teal_data()],</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' which can be provided in various ways:</pre>
+                      <pre class="language-r"># test if an InputValidator object is enabled</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 1. Directly as a [teal.data::teal_data()] object. This will automatically convert it into a `reactive` `teal_data`.</pre>
+                      <pre class="language-r"># returns logical of length 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 2. As a `reactive` object that returns a [teal.data::teal_data()] object.</pre>
+                      <pre class="language-r"># official method requested at https://github.com/rstudio/shinyvalidate/issues/64</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">validator_enabled &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">  x$.__enclos_env__$private$enabled</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Reactive `teal_data`:</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The data in the application can be reactively updated, prompting [srv_teal()] to rebuild the</pre>
+                      <pre class="language-r">#' Recursively extract messages from validator list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' content accordingly. There are two methods for creating interactive `teal_data`:</pre>
+                      <pre class="language-r">#' @return A character vector or a list of character vectors, possibly nested and named.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 1. Using a `reactive` object provided from outside the `teal` application. In this scenario,</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' reactivity is controlled by an external module, and `srv_teal` responds to changes.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 2. Using [teal_data_module()], which is embedded within the `teal` application, allowing data to</pre>
+                      <pre class="language-r">extract_validator &lt;- function(iv, header) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' be resubmitted by the user as needed.</pre>
+                      <pre class="language-r">  if (inherits(iv, "InputValidator")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    add_header(gather_messages(iv), header)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Since the server of [teal_data_module()] must return a `reactive` `teal_data` object, both</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' methods (1 and 2) produce the same reactive behavior within a `teal` application. The distinction</pre>
+                      <pre class="language-r">    if (is.null(names(iv))) names(iv) &lt;- rep("", length(iv))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lies in data control: the first method involves external control, while the second method</pre>
+                      <pre class="language-r">    mapply(extract_validator, iv = iv, header = names(iv), SIMPLIFY = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' involves control from a custom module within the app.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For more details, see [`module_teal_data`].</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Collate failing messages from validator.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams init</pre>
+                      <pre class="language-r">#' @return `list`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data`, `teal_data_module`, or `reactive` returning `teal_data`)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The data which application will depend on.</pre>
+                      <pre class="language-r">gather_messages &lt;- function(iv) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (validator_enabled(iv)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `reactive` object that returns:</pre>
+                      <pre class="language-r">    status &lt;- iv$validate()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Output of the `data`. If `data` fails then returned error is handled (after [tryCatch()]) so that</pre>
+                      <pre class="language-r">    failing_inputs &lt;- Filter(Negate(is.null), status)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rest of the application can respond to this respectively.</pre>
+                      <pre class="language-r">    unique(lapply(failing_inputs, function(x) x[["message"]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_init_data</pre>
+                      <pre class="language-r">    warning("Validator is disabled and will be omitted.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_init_data</pre>
+                      <pre class="language-r">    list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_init_data</pre>
+                      <pre class="language-r">#' Add optional header to failing messages</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_init_data &lt;- function(id) {</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- shiny::NS(id)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">171</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::div(</pre>
+                      <pre class="language-r">add_header &lt;- function(messages, header = "") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">172</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = ns("content"),</pre>
+                      <pre class="language-r">  ans &lt;- unlist(messages)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    style = "display: inline-block; width: 100%;",</pre>
+                      <pre class="language-r">  if (length(ans) != 0L &amp;&amp; isTRUE(nchar(header) &gt; 0L)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    uiOutput(ns("data"))</pre>
+                      <pre class="language-r">    ans &lt;- c(paste0(header, "\n"), ans, "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">78<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ans</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_init_data</pre>
+                      <pre class="language-r">#' Recursively check if the object contains a named list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_init_data &lt;- function(id, data) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module", "reactive"))</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">any_names &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">  any(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_debug("srv_data initializing.")</pre>
+                      <pre class="language-r">    if (is.list(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">185</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_out &lt;- if (inherits(data, "teal_data_module")) {</pre>
+                      <pre class="language-r">      if (!is.null(names(x)) &amp;&amp; any(names(x) != "")) TRUE else unlist(lapply(x, any_names))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      output$data &lt;- renderUI(data$ui(id = session$ns("teal_data_module")))</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data$server("teal_data_module")</pre>
+                      <pre class="language-r">      FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (inherits(data, "teal_data")) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      reactiveVal(data)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (test_reactive(data)) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">30<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_teal_data.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data</pre>
+                      <pre class="language-r">#' Execute and validate `teal_data_module`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' This is a low level module to handle `teal_data_module` execution and validation.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_handled &lt;- reactive({</pre>
+                      <pre class="language-r">#' [teal_transform_module()] inherits from [teal_data_module()] so it is handled by this module too.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">80<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tryCatch(data_out(), error = function(e) e)</pre>
+                      <pre class="language-r">#' [srv_teal()] accepts various `data` objects and eventually they are all transformed to `reactive`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' [teal.data::teal_data()] which is a standard data class in whole `teal` framework.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # We want to exclude teal_data_module elements from bookmarking as they might have some secrets</pre>
+                      <pre class="language-r">#' @section data validation:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(data_handled(), {</pre>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">80<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (inherits(data_handled(), "teal_data")) {</pre>
+                      <pre class="language-r">#' Executed [teal_data_module()] is validated and output is validated for consistency.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        app_session &lt;- .subset2(shiny::getDefaultReactiveDomain(), "parent")</pre>
+                      <pre class="language-r">#' Output `data` is invalid if:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        setBookmarkExclude(</pre>
+                      <pre class="language-r">#' 1. [teal_data_module()] is invalid if server doesn't return `reactive`. **Immediately crashes an app!**</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          session$ns(</pre>
+                      <pre class="language-r">#' 2. `reactive` throws a `shiny.error` - happens when module creating [teal.data::teal_data()] fails.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            grep(</pre>
+                      <pre class="language-r">#' 3. `reactive` returns `qenv.error` - happens when [teal.data::teal_data()] evaluates a failing code.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              pattern = "teal_data_module-",</pre>
+                      <pre class="language-r">#' 4. `reactive` object doesn't return [teal.data::teal_data()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              x = names(reactiveValuesToList(input)),</pre>
+                      <pre class="language-r">#' 5. [teal.data::teal_data()] object lacks any `datanames` specified in the `modules` argument.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              value = TRUE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#' `teal` (observers in `srv_teal`) always waits to render an app until `reactive` `teal_data` is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">#' returned. If error 2-4 occurs, relevant error message is displayed to the app user. Once the issue is</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          session = app_session</pre>
+                      <pre class="language-r">#' resolved, the app will continue to run. `teal` guarantees that errors in data don't crash the app</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' (except error 1).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' @param id (`character(1)`) Module id</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param data (`reactive teal_data`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_handled</pre>
+                      <pre class="language-r">#' @param data_module (`teal_data_module`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules` or `teal_module`) For `datanames` validation purpose</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param validate_shiny_silent_error (`logical`) If `TRUE`, then `shiny.silent.error` is validated and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param is_transform_failed (`reactiveValues`) contains `logical` flags named after each transformator.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Adds signature protection to the `datanames` in the data</pre>
+                      <pre class="language-r">#' Help to determine if any previous transformator failed, so that following transformators can be disabled</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data`)</pre>
+                      <pre class="language-r">#' and display a generic failure message.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `teal_data` with additional code that has signature of the `datanames`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @return `reactive` `teal_data`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.add_signature_to_data &lt;- function(data) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  hashes &lt;- .get_hashes_code(data)</pre>
+                      <pre class="language-r">#' @rdname module_teal_data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tdata &lt;- do.call(</pre>
+                      <pre class="language-r">#' @name module_teal_data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.data::teal_data,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(code = trimws(c(teal.code::get_code(data), hashes), which = "right")),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(join_keys = teal.data::join_keys(data)),</pre>
+                      <pre class="language-r">#' @rdname module_teal_data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sapply(</pre>
+                      <pre class="language-r">#' @aliases ui_teal_data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        names(data),</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.code::get_var,</pre>
+                      <pre class="language-r">#' `ui_teal_data_module` was renamed from `ui_teal_data`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        object = data,</pre>
+                      <pre class="language-r">ui_teal_data_module &lt;- function(id, data_module = function(id) NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">44</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        simplify = FALSE</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">45</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  checkmate::assert_function(data_module, args = "id")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">46</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">48</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  shiny::tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">49</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tdata@verified &lt;- data@verified</pre>
+                      <pre class="language-r">    tags$div(id = ns("wrapper"), data_module(id = ns("data"))),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">50</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tdata</pre>
+                      <pre class="language-r">    ui_validate_reactive_teal_data(ns("validate"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get code that tests the integrity of the reproducible data</pre>
+                      <pre class="language-r">#' @rdname module_teal_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @aliases srv_teal_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data`) object holding the data</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) names of `datasets`</pre>
+                      <pre class="language-r">#' `srv_teal_data_module` was renamed from `srv_teal_data`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">srv_teal_data_module &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A character vector with the code lines.</pre>
+                      <pre class="language-r">                                 data_module = function(id) NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                                 modules = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 validate_shiny_silent_error = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.get_hashes_code &lt;- function(data, datanames = names(data)) {</pre>
+                      <pre class="language-r">                                 is_transform_failed = reactiveValues()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">63</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vapply(</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">64</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames,</pre>
+                      <pre class="language-r">  checkmate::assert_function(data_module, args = "id")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">65</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(dataname, datasets) {</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"), null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">133<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">66</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x &lt;- data[[dataname]]</pre>
+                      <pre class="language-r">  checkmate::assert_class(is_transform_failed, "reactivevalues")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">133<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">68</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      code &lt;- if (is.function(x) &amp;&amp; !is.primitive(x)) {</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x &lt;- deparse1(x)</pre>
+                      <pre class="language-r">    logger::log_debug("srv_teal_data_module initializing.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">70</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        bquote(rlang::hash(deparse1(.(as.name(dataname)))))</pre>
+                      <pre class="language-r">    is_transform_failed[[id]] &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    module_out &lt;- data_module(id = "data")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">127<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">72</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        bquote(rlang::hash(.(as.name(dataname))))</pre>
+                      <pre class="language-r">    try_module_out &lt;- reactive(tryCatch(module_out(), error = function(e) e))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">73</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    observeEvent(try_module_out(), {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">133<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">74</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf(</pre>
+                      <pre class="language-r">      if (!inherits(try_module_out(), "teal_data")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">133<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">75</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "stopifnot(%s == %s) # @linksto %s",</pre>
+                      <pre class="language-r">        is_transform_failed[[id]] &lt;- TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">133<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        deparse1(code),</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">133<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">77</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        deparse1(rlang::hash(x)),</pre>
+                      <pre class="language-r">        is_transform_failed[[id]] &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">133<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataname</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">81</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    character(1L),</pre>
+                      <pre class="language-r">    is_previous_failed &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">82</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USE.NAMES = TRUE</pre>
+                      <pre class="language-r">      idx_this &lt;- which(names(is_transform_failed) == id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">83</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      is_transform_failed_list &lt;- reactiveValuesToList(is_transform_failed)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">84</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      idx_failures &lt;- which(unlist(is_transform_failed_list))</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_filter_manager.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">85</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Manage multiple `FilteredData` objects</pre>
+                      <pre class="language-r">      any(idx_failures &lt; idx_this)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">88</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Oversee filter states across the entire application.</pre>
+                      <pre class="language-r">    observeEvent(is_previous_failed(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">89</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (is_previous_failed()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">90</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Slices global:</pre>
+                      <pre class="language-r">        shinyjs::disable("wrapper")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The key role in maintaining the module-specific filter states is played by the `.slicesGlobal`</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">92</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' object. It is a reference class that holds the following fields:</pre>
+                      <pre class="language-r">        shinyjs::enable("wrapper")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `all_slices` (`reactiveVal`) - reactive value containing all filters registered in an app.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `module_slices_api` (`reactiveValues`) - reactive field containing references to each modules'</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `FilteredData` object methods. At this moment it is used only in `srv_filter_manager` to display</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">96</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the filter states in a table combining informations from `all_slices` and from</pre>
+                      <pre class="language-r">    srv_validate_reactive_teal_data(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">97</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `FilteredData$get_available_teal_slices()`.</pre>
+                      <pre class="language-r">      "validate",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">98</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      data = try_module_out,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">99</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' During a session only new filters are added to `all_slices` unless [`module_snapshot_manager`] is</pre>
+                      <pre class="language-r">      modules = modules,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">100</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' used to restore previous state. Filters from `all_slices` can be activated or deactivated in a</pre>
+                      <pre class="language-r">      validate_shiny_silent_error = validate_shiny_silent_error,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">101</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' module which is linked (both ways) by `attr(, "mapping")` so that:</pre>
+                      <pre class="language-r">      hide_validation_error = is_previous_failed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - If module's filter is added or removed in its `FilteredData` object, this information is passed</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to `SlicesGlobal` which updates `attr(, "mapping")` accordingly.</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - When mapping changes in a `SlicesGlobal`, filters are set or removed from module's</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `FilteredData`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @rdname module_teal_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Filter manager:</pre>
+                      <pre class="language-r">ui_validate_reactive_teal_data &lt;- function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">108</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Filter-manager is split into two parts:</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">109</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 1. `ui/srv_filter_manager_panel` - Called once for the whole app. This module observes changes in</pre>
+                      <pre class="language-r">  tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">110</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the filters in `slices_global` and displays them in a table utilizing information from `mapping`:</pre>
+                      <pre class="language-r">    div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">111</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - (`TRUE`) - filter is active in the module</pre>
+                      <pre class="language-r">      id = ns("validate_messages"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">112</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - (`FALSE`) - filter is inactive in the module</pre>
+                      <pre class="language-r">      class = "teal_validated",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">113</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - (`NA`) - filter is not available in the module</pre>
+                      <pre class="language-r">      ui_validate_error(ns("silent_error")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">114</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 2. `ui/srv_module_filter_manager` - Called once for each `teal_module`. Handling filter states</pre>
+                      <pre class="language-r">      ui_check_class_teal_data(ns("class_teal_data")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">115</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for of single module and keeping module `FilteredData` consistent with `slices_global`, so that</pre>
+                      <pre class="language-r">      ui_check_module_datanames(ns("shiny_warnings"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' local filters are always reflected in the `slices_global` and its mapping and vice versa.</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">117</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">118</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      class = "teal_validated",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">119</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character(1)`)</pre>
+                      <pre class="language-r">      uiOutput(ns("previous_failed"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `shiny` module instance id.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param slices_global (`reactiveVal`)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  containing `teal_slices`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @rdname module_teal_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param module_fd (`FilteredData`)</pre>
+                      <pre class="language-r">srv_validate_reactive_teal_data &lt;- function(id, # nolint: object_length</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Object containing the data to be filtered in a single `teal` module.</pre>
+                      <pre class="language-r">                                            data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                            modules = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">                                            validate_shiny_silent_error = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Module returns a `slices_global` (`reactiveVal`) containing a `teal_slices` object with mapping.</pre>
+                      <pre class="language-r">                                            hide_validation_error = reactive(FALSE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">130</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">131</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @encoding UTF-8</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"), null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">132</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_flag(validate_shiny_silent_error)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_filter_manager</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">134</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_manager</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # there is an empty reactive cycle on `init` and `data` has `shiny.silent.error` class</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">136</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    srv_validate_error("silent_error", data, validate_shiny_silent_error)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">137</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    srv_check_class_teal_data("class_teal_data", data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">138</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_manager</pre>
+                      <pre class="language-r">    srv_check_module_datanames("shiny_warnings", data, modules)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">139</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_filter_manager_panel &lt;- function(id) {</pre>
+                      <pre class="language-r">    output$previous_failed &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">56</td>
+                    <td class="num">140</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">      if (hide_validation_error()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">57</td>
+                    <td class="num">141</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$button(</pre>
+                      <pre class="language-r">        shinyjs::hide("validate_messages")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">58</td>
+                    <td class="num">142</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = ns("show_filter_manager"),</pre>
+                      <pre class="language-r">        tags$div("One of previous transformators failed. Please check its inputs.", class = "teal-output-warning")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">59</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "btn action-button wunder_bar_button",</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">60</td>
+                    <td class="num">144</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title = "View filter mapping",</pre>
+                      <pre class="language-r">        shinyjs::show("validate_messages")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">61</td>
+                    <td class="num">145</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    suppressMessages(icon("fas fa-grip"))</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="missed">
+                    <td class="num">149</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .trigger_on_success(data)</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_manager</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_filter_manager_panel &lt;- function(id, slices_global) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(slices_global, ".slicesGlobal")</pre>
+                      <pre class="language-r">ui_validate_error &lt;- function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">116<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">156</td>
+                    <td class="coverage">116<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    setBookmarkExclude(c("show_filter_manager"))</pre>
+                      <pre class="language-r">  uiOutput(ns("message"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$show_filter_manager, {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">73</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("srv_filter_manager_panel@1 show_filter_manager button has been clicked.")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">74</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      showModal(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">75</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modalDialog(</pre>
+                      <pre class="language-r">srv_validate_error &lt;- function(id, data, validate_shiny_silent_error) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">76</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ui_filter_manager(session$ns("filter_manager")),</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">77</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "filter_manager_modal",</pre>
+                      <pre class="language-r">  checkmate::assert_flag(validate_shiny_silent_error)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">78</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size = "l",</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">79</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          footer = NULL,</pre>
+                      <pre class="language-r">    output$message &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">80</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          easyClose = TRUE</pre>
+                      <pre class="language-r">      is_shiny_silent_error &lt;- inherits(data(), "shiny.silent.error") &amp;&amp; identical(data()$message, "")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      if (inherits(data(), "qenv.error")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        validate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">          need(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_filter_manager("filter_manager", slices_global = slices_global)</pre>
+                      <pre class="language-r">            FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">            paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_manager</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">ui_filter_manager &lt;- function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">90</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">91</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  actionButton(ns("filter_manager"), NULL, icon = icon("fas fa-filter"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">92</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$div(</pre>
+                      <pre class="language-r">              "Error when executing the `data` module:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "filter_manager_content",</pre>
+                      <pre class="language-r">              cli::ansi_strip(paste(data()$message, collapse = "\n")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">94</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tableOutput(ns("slices_table"))</pre>
+                      <pre class="language-r">              "\nCheck your inputs or contact app developer if error persists.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              collapse = "\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_manager</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">110<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_filter_manager &lt;- function(id, slices_global) {</pre>
+                      <pre class="language-r">      } else if (inherits(data(), "error")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">        if (is_shiny_silent_error &amp;&amp; !validate_shiny_silent_error) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">180</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(slices_global, ".slicesGlobal")</pre>
+                      <pre class="language-r">          return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">        validate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_debug("filter_manager_srv initializing.")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                    <td class="num">183</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Bookmark slices global with mapping.</pre>
+                      <pre class="language-r">          need(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    session$onBookmark(function(state) {</pre>
+                      <pre class="language-r">            FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("filter_manager_srv@onBookmark: storing filter state")</pre>
+                      <pre class="language-r">            sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">109</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      state$values$filter_state_on_bookmark &lt;- as.list(</pre>
+                      <pre class="language-r">              "Shiny error when executing the `data` module.\n%s\n%s",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">110</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        slices_global$all_slices(),</pre>
+                      <pre class="language-r">              data()$message,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">111</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        recursive = TRUE</pre>
+                      <pre class="language-r">              "Check your inputs or contact app developer if error persists."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    bookmarked_slices &lt;- restoreValue(session$ns("filter_state_on_bookmark"), NULL)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(bookmarked_slices)) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">117</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("filter_manager_srv: restoring filter state from bookmark.")</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">118</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_global$slices_set(bookmarked_slices)</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    mapping_table &lt;- reactive({</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # We want this to be reactive on slices_global$all_slices() only as get_available_teal_slices()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      #   is dependent on slices_global$all_slices().</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">96<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      module_labels &lt;- setdiff(</pre>
+                      <pre class="language-r">ui_check_class_teal_data &lt;- function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">96<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">116<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        names(attr(slices_global$all_slices(), "mapping")),</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">96<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">116<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Report previewer"</pre>
+                      <pre class="language-r">  uiOutput(ns("message"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">96<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">96<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mm &lt;- as.data.frame(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">96<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sapply(</pre>
+                      <pre class="language-r">srv_check_class_teal_data &lt;- function(id, data) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">96<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            module_labels,</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">96<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            simplify = FALSE,</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">96<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(module_label) {</pre>
+                      <pre class="language-r">    output$message &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">109<em>x</em></td>
+                    <td class="num">209</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              available_slices &lt;- slices_global$module_slices_api[[module_label]]$get_available_teal_slices()</pre>
+                      <pre class="language-r">      validate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">101<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              global_ids &lt;- sapply(slices_global$all_slices(), `[[`, "id", simplify = FALSE)</pre>
+                      <pre class="language-r">        need(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">101<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              module_ids &lt;- sapply(slices_global$slices_get(module_label), `[[`, "id", simplify = FALSE)</pre>
+                      <pre class="language-r">          inherits(data(), c("teal_data", "error")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">101<em>x</em></td>
+                    <td class="num">212</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              allowed_ids &lt;- vapply(available_slices, `[[`, character(1L), "id")</pre>
+                      <pre class="language-r">          "Did not receive `teal_data` object. Cannot proceed further."</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              active_ids &lt;- global_ids %in% module_ids</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              setNames(nm = global_ids, ifelse(global_ids %in% allowed_ids, active_ids, NA))</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">96<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          check.names = FALSE</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">219</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        colnames(mm)[colnames(mm) == "global_filters"] &lt;- "Global filters"</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">ui_check_module_datanames &lt;- function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">116<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mm</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">116<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">  uiOutput(NS(id, "message"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$slices_table &lt;- renderTable(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = {</pre>
+                      <pre class="language-r">srv_check_module_datanames &lt;- function(id, data, modules) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">96<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">193<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("filter_manager_srv@1 rendering slices_table.")</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">96<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        mm &lt;- mapping_table()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                    <td class="num">228</td>
+                    <td class="coverage">193<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">193<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Display logical values as UTF characters.</pre>
+                      <pre class="language-r">    output$message &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">196<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mm[] &lt;- lapply(mm, ifelse, yes = intToUtf8(9989), no = intToUtf8(10060))</pre>
+                      <pre class="language-r">      if (inherits(data(), "teal_data")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mm[] &lt;- lapply(mm, function(x) ifelse(is.na(x), intToUtf8(128306), x))</pre>
+                      <pre class="language-r">        is_modules_ok &lt;- check_modules_datanames_html(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          modules = modules, datanames = names(data())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Display placeholder if no filters defined.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        if (nrow(mm) == 0L) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          mm &lt;- data.frame(`Filter manager` = "No filters specified.", check.names = FALSE)</pre>
+                      <pre class="language-r">        if (!isTRUE(is_modules_ok)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rownames(mm) &lt;- ""</pre>
+                      <pre class="language-r">          tags$div(is_modules_ok, class = "teal-output-warning")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">237</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mm</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rownames = TRUE</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    mapping_table # for testing purpose</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">.trigger_on_success &lt;- function(data) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  out &lt;- reactiveVal(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  observeEvent(data(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_manager</pre>
+                      <pre class="language-r">    if (inherits(data(), "teal_data")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">97<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_module_filter_manager &lt;- function(id, module_fd, slices_global) {</pre>
+                      <pre class="language-r">      if (!identical(data(), out())) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">247</td>
+                    <td class="coverage">97<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">        out(data())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">248</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_reactive(module_fd)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">249</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(slices_global, ".slicesGlobal")</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">252</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_debug("srv_module_filter_manager initializing for module: { id }.")</pre>
+                      <pre class="language-r">  out</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Track filter global and local states.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">112<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/TealAppDriver.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_global_module &lt;- reactive({</pre>
+                      <pre class="language-r"># FilteredData ------</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">201<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_global$slices_get(module_label = id)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' Drive a `teal` application</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_module &lt;- reactive(req(module_fd())$get_filter_state())</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Extension of the `shinytest2::AppDriver` class with methods for</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_fd_previous &lt;- reactiveVal(NULL)</pre>
+                      <pre class="language-r">#' driving a teal application for performing interactions for `shinytest2` tests.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Set (reactively) available filters for the module.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    obs1 &lt;- observeEvent(module_fd(), priority = 1, {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("srv_module_filter_manager@1 setting initial slices for module: { id }.")</pre>
+                      <pre class="language-r">TealAppDriver &lt;- R6::R6Class( # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Filters relevant for the module in module-specific app.</pre>
+                      <pre class="language-r">  "TealAppDriver",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices &lt;- slices_global_module()</pre>
+                      <pre class="language-r">  inherit = {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    lapply(c("testthat", "shinytest2", "rvest"), function(.x, use_testthat) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Clean up previous filter states and refresh cache of previous module_fd with current</pre>
+                      <pre class="language-r">      if (!requireNamespace(.x, quietly = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(module_fd_previous())) module_fd_previous()$finalize()</pre>
+                      <pre class="language-r">        if (use_testthat) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      module_fd_previous(module_fd())</pre>
+                      <pre class="language-r">          testthat::skip(sprintf("%s is not installed", .x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Setting filter states from slices_global:</pre>
+                      <pre class="language-r">          stop("Please install '", .x, "' package to use this class.", call. = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # 1. when app initializes slices_global set to initial filters (specified by app developer)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # 2. when data reinitializes slices_global reflects latest filter states</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }, use_testthat = requireNamespace("testthat", quietly = TRUE) &amp;&amp; testthat::is_testing())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      module_fd()$set_filter_state(slices)</pre>
+                      <pre class="language-r">    shinytest2::AppDriver</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # irrelevant filters are discarded in FilteredData$set_available_teal_slices</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # it means we don't need to subset slices_global$all_slices() from filters refering to irrelevant datasets</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      module_fd()$set_available_teal_slices(slices_global$all_slices)</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Initialize a `TealAppDriver` object for testing a `teal` application.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # this needed in filter_manager_srv</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_global$module_slices_api_set(</pre>
+                      <pre class="language-r">    #' @param data,modules,filter,title,header,footer,landing_popup arguments passed to `init`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id,</pre>
+                      <pre class="language-r">    #' @param timeout (`numeric`) Default number of milliseconds for any timeout or</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(</pre>
+                      <pre class="language-r">    #' timeout_ parameter in the `TealAppDriver` class.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          get_available_teal_slices = module_fd()$get_available_teal_slices(),</pre>
+                      <pre class="language-r">    #' Defaults to 20s.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          set_filter_state = module_fd()$set_filter_state, # for testing purpose</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          get_filter_state = module_fd()$get_filter_state # for testing purpose</pre>
+                      <pre class="language-r">    #' See [`shinytest2::AppDriver`] `new` method for more details on how to change it</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #' via options or environment variables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    #' @param load_timeout (`numeric`) How long to wait for the app to load, in ms.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    #' This includes the time to start R. Defaults to 100s.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Update global state and mapping matrix when module filters change.</pre>
+                      <pre class="language-r">    #' See [`shinytest2::AppDriver`] `new` method for more details on how to change it</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    obs2 &lt;- observeEvent(slices_module(), priority = 0, {</pre>
+                      <pre class="language-r">    #' via options or environment variables</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      this_slices &lt;- slices_module()</pre>
+                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$new`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_global$slices_append(this_slices) # append new slices to the all_slices list</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mapping_elem &lt;- setNames(nm = id, list(vapply(this_slices, `[[`, character(1L), "id")))</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_global$slices_active(mapping_elem)</pre>
+                      <pre class="language-r">    #' @return  Object of class `TealAppDriver`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    initialize = function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                          modules,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    obs3 &lt;- observeEvent(slices_global_module(), {</pre>
+                      <pre class="language-r">                          filter = teal_slices(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">135<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      global_vs_module &lt;- setdiff_teal_slices(slices_global_module(), slices_module())</pre>
+                      <pre class="language-r">                          title = build_app_title(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">135<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      module_vs_global &lt;- setdiff_teal_slices(slices_module(), slices_global_module())</pre>
+                      <pre class="language-r">                          header = tags$p(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">126<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(global_vs_module) || length(module_vs_global)) {</pre>
+                      <pre class="language-r">                          footer = tags$p(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Comment: (Nota Bene) Normally new filters for a module are added through module-filter-panel, and slices</pre>
+                      <pre class="language-r">                          landing_popup = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # global are updated automatically so slices_module -&gt; slices_global_module are equal.</pre>
+                      <pre class="language-r">                          timeout = rlang::missing_arg(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # this if is valid only when a change is made on the global level so the change needs to be propagated down</pre>
+                      <pre class="language-r">                          load_timeout = rlang::missing_arg(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # to the module (for example through snapshot manager). If it happens both slices are different</pre>
+                      <pre class="language-r">                          ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">55</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_module_filter_manager@3 (N.B.) global state has changed for a module:{ id }.")</pre>
+                      <pre class="language-r">      private$data &lt;- data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">56</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_fd()$clear_filter_states()</pre>
+                      <pre class="language-r">      private$modules &lt;- modules</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">57</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_fd()$set_filter_state(slices_global_module())</pre>
+                      <pre class="language-r">      private$filter &lt;- filter</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">58</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">59</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">        data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">60</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        modules = modules,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">61</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_module # returned for testing purpose</pre>
+                      <pre class="language-r">        filter = filter,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">62</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">        title = title,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">63</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        header = header,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">64</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        footer = footer,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">246</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">65</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom shiny reactiveVal reactiveValues</pre>
+                      <pre class="language-r">        landing_popup = landing_popup,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">methods::setOldClass("reactiveVal")</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">methods::setOldClass("reactivevalues")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # Default timeout is hardcoded to 4s in shinytest2:::resolve_timeout</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom methods new</pre>
+                      <pre class="language-r">      # It must be set as parameter to the AppDriver</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">251</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">70</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_manager</pre>
+                      <pre class="language-r">      suppressWarnings(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.slicesGlobal &lt;- methods::setRefClass(".slicesGlobal", # nolint: object_name.</pre>
+                      <pre class="language-r">        super$initialize(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">72</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  fields = list(</pre>
+                      <pre class="language-r">          app_dir = shinyApp(app$ui, app$server),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">254</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">73</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_slices = "reactiveVal",</pre>
+                      <pre class="language-r">          name = "teal",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">74</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_slices_api = "reactivevalues"</pre>
+                      <pre class="language-r">          variant = shinytest2::platform_variant(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">75</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">          timeout = rlang::maybe_missing(timeout, 20 * 1000),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">76</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          load_timeout = rlang::maybe_missing(load_timeout, 100 * 1000),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  methods = list(</pre>
+                      <pre class="language-r">          ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(slices = teal_slices(), module_labels) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::isolate({</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_class(slices, "teal_slices")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # needed on init to not mix "global_filters" with module-specific-slots</pre>
+                      <pre class="language-r">      # Check for minimum version of Chrome that supports the tests</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (isTRUE(attr(slices, "module_specific"))) {</pre>
+                      <pre class="language-r">      #  - Element.checkVisibility was added on 105</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">83</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          old_mapping &lt;- attr(slices, "mapping")</pre>
+                      <pre class="language-r">      chrome_version &lt;- numeric_version(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">84</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          new_mapping &lt;- sapply(module_labels, simplify = FALSE, function(module_label) {</pre>
+                      <pre class="language-r">        gsub(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">85</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            unique(unlist(old_mapping[c(module_label, "global_filters")]))</pre>
+                      <pre class="language-r">          "[[:alnum:]_]+/", # Prefix that ends with forward slash</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">          "",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          attr(slices, "mapping") &lt;- new_mapping</pre>
+                      <pre class="language-r">          self$get_chromote_session()$Browser$getVersion()$product</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        .self$all_slices &lt;&lt;- shiny::reactiveVal(slices)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        .self$module_slices_api &lt;&lt;- shiny::reactiveValues()</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">89</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .self$slices_append(slices)</pre>
+                      <pre class="language-r">        strict = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .self$slices_active(attr(slices, "mapping"))</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        invisible(.self)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">274</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">92</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">      required_version &lt;- "121"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">276</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">94</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_module_specific = function() {</pre>
+                      <pre class="language-r">      testthat::skip_if(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">296<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">95</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isTRUE(attr(.self$all_slices(), "module_specific"))</pre>
+                      <pre class="language-r">        is.na(chrome_version),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">278</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">96</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        "Problem getting Chrome version, please contact the developers."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_slices_api_set = function(module_label, functions_list) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">98</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::isolate({</pre>
+                      <pre class="language-r">      testthat::skip_if(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">99</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!.self$is_module_specific()) {</pre>
+                      <pre class="language-r">        chrome_version &lt; required_version,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">100</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          module_label &lt;- "global_filters"</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">101</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">          "Chrome version '%s' is not supported, please upgrade to '%s' or higher",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">102</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!identical(.self$module_slices_api[[module_label]], functions_list)) {</pre>
+                      <pre class="language-r">          chrome_version,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">103</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .self$module_slices_api[[module_label]] &lt;- functions_list</pre>
+                      <pre class="language-r">          required_version</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">93<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        invisible(.self)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      # end od check</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_deactivate_all = function(module_label) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">291</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      shiny::isolate({</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">292</td>
+                    <td class="num">108</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        new_slices &lt;- .self$all_slices()</pre>
+                      <pre class="language-r">      private$set_active_ns()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">109</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        old_mapping &lt;- attr(new_slices, "mapping")</pre>
+                      <pre class="language-r">      self$wait_for_idle()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">295</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        new_mapping &lt;- if (.self$is_module_specific()) {</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">296</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          new_module_mapping &lt;- setNames(nm = module_label, list(character(0)))</pre>
+                      <pre class="language-r">    #' Append parent [`shinytest2::AppDriver`] `click` method with a call to `waif_for_idle()` method.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">297</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          modifyList(old_mapping, new_module_mapping)</pre>
+                      <pre class="language-r">    #' @param ... arguments passed to parent [`shinytest2::AppDriver`] `click()` method.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">298</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (missing(module_label)) {</pre>
+                      <pre class="language-r">    click = function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">299</td>
+                    <td class="num">115</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          lapply(</pre>
+                      <pre class="language-r">      super$click(...)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">300</td>
+                    <td class="num">116</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            attr(.self$all_slices(), "mapping"),</pre>
+                      <pre class="language-r">      private$wait_for_page_stability()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">301</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(x) character(0)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    #' Check if the app has shiny errors. This checks for global shiny errors.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">304</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          old_mapping[[module_label]] &lt;- character(0)</pre>
+                      <pre class="language-r">    #' Note that any shiny errors dependent on shiny server render will only be captured after the teal module tab</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">305</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          old_mapping</pre>
+                      <pre class="language-r">    #' is visited because shiny will not trigger server computations when the tab is invisible.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    #' So, navigate to the module tab you want to test before calling this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Although, this catches errors hidden in the other module tabs if they are already rendered.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">308</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!identical(new_mapping, old_mapping)) {</pre>
+                      <pre class="language-r">    expect_no_shiny_error = function() {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">309</td>
+                    <td class="num">125</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_debug(".slicesGlobal@slices_deactivate_all: deactivating all slices.")</pre>
+                      <pre class="language-r">      testthat::expect_null(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">310</td>
+                    <td class="num">126</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          attr(new_slices, "mapping") &lt;- new_mapping</pre>
+                      <pre class="language-r">        self$get_html(".shiny-output-error:not(.shiny-output-error-validation)"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">311</td>
+                    <td class="num">127</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .self$all_slices(new_slices)</pre>
+                      <pre class="language-r">        info = "Shiny error is observed"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">313</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        invisible(.self)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #' Check if the app has no validation errors. This checks for global shiny validation errors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_active = function(mapping_elem) {</pre>
+                      <pre class="language-r">    expect_no_validation_error = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">203<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">133</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::isolate({</pre>
+                      <pre class="language-r">      testthat::expect_null(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">203<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">134</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (.self$is_module_specific()) {</pre>
+                      <pre class="language-r">        self$get_html(".shiny-output-error-validation"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">135</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          new_mapping &lt;- modifyList(attr(.self$all_slices(), "mapping"), mapping_elem)</pre>
+                      <pre class="language-r">        info = "No validation error is observed"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          new_mapping &lt;- setNames(nm = "global_filters", list(unique(unlist(mapping_elem))))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Check if the app has validation errors. This checks for global shiny validation errors.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">203<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!identical(new_mapping, attr(.self$all_slices(), "mapping"))) {</pre>
+                      <pre class="language-r">    expect_validation_error = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">146<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">141</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          mapping_modules &lt;- toString(names(new_mapping))</pre>
+                      <pre class="language-r">      testthat::expect_false(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">146<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">142</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_debug(".slicesGlobal@slices_active: changing mapping for module(s): { mapping_modules }.")</pre>
+                      <pre class="language-r">        is.null(self$get_html(".shiny-output-error-validation")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">146<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">143</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          new_slices &lt;- .self$all_slices()</pre>
+                      <pre class="language-r">        info = "Validation error is not observed"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">146<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          attr(new_slices, "mapping") &lt;- new_mapping</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">146<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .self$all_slices(new_slices)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">203<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        invisible(.self)</pre>
+                      <pre class="language-r">    #' Set the input in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #' @param input_id (character) The shiny input id with it's complete name space.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # - only new filters are appended to the $all_slices</pre>
+                      <pre class="language-r">    #' @param value The value to set the input to.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # - mapping is not updated here</pre>
+                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$set_inputs`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_append = function(slices, activate = FALSE) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">203<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::isolate({</pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">203<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.teal_slices(slices)) {</pre>
+                      <pre class="language-r">    set_input = function(input_id, value, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">340</td>
+                    <td class="num">155</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slices &lt;- as.teal_slices(slices)</pre>
+                      <pre class="language-r">      do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">341</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">156</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        self$set_inputs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">342</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">157</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        c(setNames(list(value), input_id), list(...))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # to make sure that we don't unnecessary trigger $all_slices &lt;reactiveVal&gt;</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">203<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">159</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        new_slices &lt;- setdiff_teal_slices(slices, .self$all_slices())</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">203<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        old_mapping &lt;- attr(.self$all_slices(), "mapping")</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">203<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">161</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(new_slices)) {</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          new_ids &lt;- vapply(new_slices, `[[`, character(1L), "id")</pre>
+                      <pre class="language-r">    #' Navigate the teal tabs in the `teal` app.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_debug(".slicesGlobal@slices_append: appending new slice(s): { new_ids }.")</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slices_ids &lt;- vapply(.self$all_slices(), `[[`, character(1L), "id")</pre>
+                      <pre class="language-r">    #' @param tabs (character) Labels of tabs to navigate to. The order of the tabs is important,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          lapply(new_slices, function(slice) {</pre>
+                      <pre class="language-r">    #' and it should start with the most parent level tab.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # In case the new state has the same id as an existing one, add a suffix</pre>
+                      <pre class="language-r">    #' Note: In case the teal tab group has duplicate names, the first tab will be selected,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (slice$id %in% slices_ids) {</pre>
+                      <pre class="language-r">    #' If you wish to select the second tab with the same name, use the suffix "_1".</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              slice$id &lt;- utils::tail(make.unique(c(slices_ids, slice$id), sep = "_"), 1)</pre>
+                      <pre class="language-r">    #' If you wish to select the third tab with the same name, use the suffix "_2" and so on.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    navigate_teal_tab = function(tabs) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">172</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          new_slices_all &lt;- c(.self$all_slices(), new_slices)</pre>
+                      <pre class="language-r">      checkmate::check_character(tabs, min.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">173</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          attr(new_slices_all, "mapping") &lt;- old_mapping</pre>
+                      <pre class="language-r">      for (tab in tabs) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">174</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .self$all_slices(new_slices_all)</pre>
+                      <pre class="language-r">        self$set_input(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">360</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">175</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">          "teal-teal_modules-active_tab",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">361</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">176</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          get_unique_labels(tab),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">203<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">177</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        invisible(.self)</pre>
+                      <pre class="language-r">          wait_ = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">365</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">180</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_get = function(module_label) {</pre>
+                      <pre class="language-r">      self$wait_for_idle()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">302<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">181</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (missing(module_label)) {</pre>
+                      <pre class="language-r">      private$set_active_ns()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">367</td>
+                    <td class="num">182</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .self$all_slices()</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">302<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        module_ids &lt;- unlist(attr(.self$all_slices(), "mapping")[c(module_label, "global_filters")])</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">370</td>
-                    <td class="coverage">302<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        Filter(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">371</td>
-                    <td class="coverage">302<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          function(slice) slice$id %in% module_ids,</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">302<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .self$all_slices()</pre>
+                      <pre class="language-r">    #' Get the active shiny name space for different components of the teal app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    #' @return (`list`) The list of active shiny name space of the teal components.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    active_ns = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">376</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">189</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_set = function(slices) {</pre>
+                      <pre class="language-r">      if (identical(private$ns$module, character(0))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">190</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::isolate({</pre>
+                      <pre class="language-r">        private$set_active_ns()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.teal_slices(slices)) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">379</td>
+                    <td class="num">192</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slices &lt;- as.teal_slices(slices)</pre>
+                      <pre class="language-r">      private$ns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .self$all_slices(slices)</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        invisible(.self)</pre>
+                      <pre class="language-r">    #' Get the active shiny name space for interacting with the module content.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show = function() {</pre>
+                      <pre class="language-r">    active_module_ns = function() {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">386</td>
+                    <td class="num">199</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::isolate(print(.self$all_slices()))</pre>
+                      <pre class="language-r">      if (identical(private$ns$module, character(0))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">387</td>
+                    <td class="num">200</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(.self)</pre>
+                      <pre class="language-r">        private$set_active_ns()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">389</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">202</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      private$ns$module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/dummy_functions.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' An example `teal` module</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' Get the active shiny name space bound with a custom `element` name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param element `character(1)` custom element name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module creates an object called `object` that can be modified with decorators.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The `object` is determined by what's selected in `Choose a dataset` input in UI.</pre>
+                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component bound with the input `element`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The object can be anything that can be handled by `renderPrint()`.</pre>
+                      <pre class="language-r">    active_module_element = function(element) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">211</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' See the `vignette("decorate-modules-output", package = "teal")` or [`teal_transform_module`]</pre>
+                      <pre class="language-r">      checkmate::assert_string(element)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">212</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to read more about decorators.</pre>
+                      <pre class="language-r">      sprintf("#%s-%s", self$active_module_ns(), element)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal_modules</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param decorators `r lifecycle::badge("experimental")` (`list` of `teal_transform_module` or `NULL`) optional,</pre>
+                      <pre class="language-r">    #' Get the text of the active shiny name space bound with a custom `element` name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if not `NULL`, decorator for tables or plots included in the module.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param element `character(1)` the text of the custom element name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `teal` module which can be included in the `modules` argument to [init()].</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    #' @return (`string`) The text of the active shiny name space of the component bound with the input `element`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">    active_module_element_text = function(element) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">221</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(IRIS = iris, MTCARS = mtcars),</pre>
+                      <pre class="language-r">      checkmate::assert_string(element)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">222</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = example_module()</pre>
+                      <pre class="language-r">      self$get_text(self$active_module_element(element))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">    #' Get the active shiny name space for interacting with the filter panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">example_module &lt;- function(label = "example teal module",</pre>
+                      <pre class="language-r">    active_filters_ns = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">229</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           datanames = "all",</pre>
+                      <pre class="language-r">      if (identical(private$ns$filter_panel, character(0))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">230</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           transformators = list(),</pre>
+                      <pre class="language-r">        private$set_active_ns()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           decorators = NULL) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">43<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">232</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(decorators, "teal_transform_module", null.ok = TRUE)</pre>
+                      <pre class="language-r">      private$ns$filter_panel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">43<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ans &lt;- module(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">43<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    label,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">43<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    server = function(id, data, decorators) {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">234</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(isolate(data()), "teal_data")</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">235</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">    #' Get the active shiny name space for interacting with the data-summary panel.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">236</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        datanames_rv &lt;- reactive(names(req(data())))</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">237</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        observeEvent(datanames_rv(), {</pre>
+                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the data-summary component.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">238</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected &lt;- input$dataname</pre>
+                      <pre class="language-r">    active_data_summary_ns = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (identical(selected, "")) {</pre>
+                      <pre class="language-r">      if (identical(private$ns$data_summary, character(0))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">41</td>
+                    <td class="num">240</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected &lt;- restoreInput(session$ns("dataname"), NULL)</pre>
+                      <pre class="language-r">        private$set_active_ns()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">241</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else if (isFALSE(selected %in% datanames_rv())) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">43</td>
+                    <td class="num">242</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected &lt;- datanames_rv()[1]</pre>
+                      <pre class="language-r">      private$ns$data_summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          updateSelectInput(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">244</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            session = session,</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">245</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = "dataname",</pre>
+                      <pre class="language-r">    #' Get the active shiny name space bound with a custom `element` name.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices = datanames_rv(),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">247</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = selected</pre>
+                      <pre class="language-r">    #' @param element `character(1)` custom element name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component bound with the input `element`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    active_data_summary_element = function(element) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">251</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        table_data &lt;- reactive({</pre>
+                      <pre class="language-r">      checkmate::assert_string(element)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">252</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          req(input$dataname)</pre>
+                      <pre class="language-r">      sprintf("#%s-%s", self$active_data_summary_ns(), element)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">253</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          within(data(),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            {</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">255</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              object &lt;- dataname</pre>
+                      <pre class="language-r">    #' Get the input from the module in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">    #' This function will only access inputs from the name space of the current active teal module.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dataname = as.name(input$dataname)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    #' @param input_id (character) The shiny input id to get the value from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @return The value of the shiny input.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        table_data_decorated_no_print &lt;- srv_transform_teal_data(</pre>
+                      <pre class="language-r">    get_active_module_input = function(input_id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">262</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "decorate",</pre>
+                      <pre class="language-r">      checkmate::check_string(input_id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">263</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data = table_data,</pre>
+                      <pre class="language-r">      self$get_value(input = sprintf("%s-%s", self$active_module_ns(), input_id))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          transformators = decorators</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">266</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        table_data_decorated &lt;- reactive(within(req(table_data_decorated_no_print()), expr = object))</pre>
+                      <pre class="language-r">    #' Get the output from the module in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' This function will only access outputs from the name space of the current active teal module.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">268</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        output$text &lt;- renderPrint({</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          req(table_data()) # Ensure original errors from module are displayed</pre>
+                      <pre class="language-r">    #' @param output_id (character) The shiny output id to get the value from.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">270</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          table_data_decorated()[["object"]]</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">    #' @return The value of the shiny output.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    get_active_module_output = function(output_id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">273</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">      checkmate::check_string(output_id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">274</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = "rcode",</pre>
+                      <pre class="language-r">      self$get_value(output = sprintf("%s-%s", self$active_module_ns(), output_id))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          verbatim_content = reactive(teal.code::get_code(req(table_data_decorated()))),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">276</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Example Code"</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #' Get the output from the module's `teal.widgets::table_with_settings` or `DT::DTOutput` in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' This function will only access outputs from the name space of the current active teal module.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        table_data_decorated</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    #' @param table_id (`character(1)`) The id of the table in the active teal module's name space.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #' @param which (integer) If there is more than one table, which should be extracted.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = function(id, decorators) {</pre>
+                      <pre class="language-r">    #' By default it will look for  a table that is built using `teal.widgets::table_with_settings`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">85</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">283</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">86</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">    #' @return The data.frame with table contents.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">87</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">285</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        output = verbatimTextOutput(ns("text")),</pre>
+                      <pre class="language-r">    get_active_module_table_output = function(table_id, which = 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">88</td>
+                    <td class="num">286</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        encoding = tags$div(</pre>
+                      <pre class="language-r">      checkmate::check_number(which, lower = 1)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">89</td>
+                    <td class="num">287</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selectInput(ns("dataname"), "Choose a dataset", choices = NULL),</pre>
+                      <pre class="language-r">      checkmate::check_string(table_id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">90</td>
+                    <td class="num">288</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ui_transform_teal_data(ns("decorate"), transformators = decorators),</pre>
+                      <pre class="language-r">      table &lt;- rvest::html_table(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">91</td>
+                    <td class="num">289</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
+                      <pre class="language-r">        self$get_html_rvest(self$active_module_element(table_id)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">290</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        fill = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">43<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ui_args = list(decorators = decorators),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">43<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    server_args = list(decorators = decorators),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">292</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = datanames,</pre>
+                      <pre class="language-r">      if (length(table) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">293</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    transformators = transformators</pre>
+                      <pre class="language-r">        data.frame()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">43<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  attr(ans, "teal_bookmarkable") &lt;- TRUE</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">295</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans</pre>
+                      <pre class="language-r">        table[[which]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/teal_data_module-eval_code.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setOldClass("teal_data_module")</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Evaluate code on `teal_data_module`</pre>
+                      <pre class="language-r">    #' Get the output from the module's `teal.widgets::plot_with_settings` in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' This function will only access plots from the name space of the current active teal module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `eval_code` evaluates given code in the environment of the `teal_data` object created by the `teal_data_module`.</pre>
+                      <pre class="language-r">    #' @param plot_id (`character(1)`) The id of the plot in the active teal module's name space.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The code is added to the `@code` slot of the `teal_data`.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @return The `src` attribute as `character(1)` vector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param object (`teal_data_module`)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal.code::eval_code</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    get_active_module_plot_output = function(plot_id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">306</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">      checkmate::check_string(plot_id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">307</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `eval_code` returns a `teal_data_module` object with a delayed evaluation of `code` when the module is run.</pre>
+                      <pre class="language-r">      self$get_attr(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">308</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        self$active_module_element(sprintf("%s-plot_main &gt; img", plot_id)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">309</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        "src"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' eval_code(tdm, "dataset1 &lt;- subset(dataset1, Species == 'virginica')")</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @include teal_data_module.R</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name eval_code</pre>
+                      <pre class="language-r">    #' Set the input in the module in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_data_module</pre>
+                      <pre class="language-r">    #' This function will only set inputs in the name space of the current active teal module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases eval_code,teal_data_module,character-method</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases eval_code,teal_data_module,language-method</pre>
+                      <pre class="language-r">    #' @param input_id (character) The shiny input id to get the value from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases eval_code,teal_data_module,expression-method</pre>
+                      <pre class="language-r">    #' @param value The value to set the input to.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$set_inputs`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom methods setMethod</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importMethodsFrom teal.code eval_code</pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    set_active_module_input = function(input_id, value, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">322</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "character"), function(object, code) {</pre>
+                      <pre class="language-r">      checkmate::check_string(input_id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">323</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal_data_module(</pre>
+                      <pre class="language-r">      checkmate::check_string(value)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">324</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = function(id) {</pre>
+                      <pre class="language-r">      self$set_input(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">325</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">        sprintf("%s-%s", self$active_module_ns(), input_id),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">326</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      object$ui(ns("mutate_inner"))</pre>
+                      <pre class="language-r">        value,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        ...</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">328</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = function(id) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">329</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">      dots &lt;- rlang::list2(...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">330</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data &lt;- object$server("mutate_inner")</pre>
+                      <pre class="language-r">      if (!isFALSE(dots[["wait"]])) self$wait_for_idle() # Default behavior is to wait</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">331</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        td &lt;- eventReactive(data(),</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">333</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (inherits(data(), c("teal_data", "qenv.error"))) {</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">334</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              eval_code(data(), code)</pre>
+                      <pre class="language-r">    #' Get the active datasets that can be accessed via the filter panel of the current active teal module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">    get_active_filter_vars = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">336</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data()</pre>
+                      <pre class="language-r">      displayed_datasets_index &lt;- self$is_visible(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">337</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">        sprintf("#%s-filters-filter_active_vars_contents &gt; span", self$active_filters_ns())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          ignoreNULL = FALSE</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">340</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        td</pre>
+                      <pre class="language-r">      available_datasets &lt;- self$get_text(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">341</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">342</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">          "#%s-filters-filter_active_vars_contents .filter_panel_dataname",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">343</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          self$active_filters_ns()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">})</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "language"), function(object, code) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">347</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  eval_code(object, code = paste(lang2calls(code), collapse = "\n"))</pre>
+                      <pre class="language-r">      available_datasets[displayed_datasets_index]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">})</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "expression"), function(object, code) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  eval_code(object, code = paste(lang2calls(code), collapse = "\n"))</pre>
+                      <pre class="language-r">    #' Get the active data summary table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">})</pre>
+                      <pre class="language-r">    #' @return `data.frame`</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/teal_slices.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Filter settings for `teal` applications</pre>
+                      <pre class="language-r">    get_active_data_summary_table = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">353</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      summary_table &lt;- rvest::html_table(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">354</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Specify initial filter states and filtering settings for a `teal` app.</pre>
+                      <pre class="language-r">        self$get_html_rvest(self$active_data_summary_element("table")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">355</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        fill = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">356</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Produces a `teal_slices` object.</pre>
+                      <pre class="language-r">      )[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The `teal_slice` components will specify filter states that will be active when the app starts.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">358</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Attributes (created with the named arguments) will configure the way the app applies filters.</pre>
+                      <pre class="language-r">      col_names &lt;- unlist(summary_table[1, ], use.names = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">359</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' See argument descriptions for details.</pre>
+                      <pre class="language-r">      summary_table &lt;- summary_table[-1, ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">360</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      colnames(summary_table) &lt;- col_names</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">361</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal.slice::teal_slices</pre>
+                      <pre class="language-r">      if (nrow(summary_table) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">362</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        summary_table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param module_specific (`logical(1)`) optional,</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">364</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `FALSE` (default) when one filter panel applied to all modules.</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  All filters will be shared by all modules.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `TRUE` when filter panel module-specific.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Modules can have different set of filters specified - see `mapping` argument.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mapping `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">    #' Test if `DOM` elements are visible on the page with a JavaScript call.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' _This is a new feature. Do kindly share your opinions on</pre>
+                      <pre class="language-r">    #' @param selector (`character(1)`) `CSS` selector to check visibility.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [`teal`'s GitHub repository](https://github.com/insightsengineering/teal/)._</pre>
+                      <pre class="language-r">    #' A `CSS` id will return only one element if the UI is well formed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param content_visibility_auto,opacity_property,visibility_property (`logical(1)`) See more information</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  (named `list`) specifies which filters will be active in which modules on app start.</pre>
+                      <pre class="language-r">    #' on &lt;https://developer.mozilla.org/en-US/docs/Web/API/Element/checkVisibility&gt;.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Elements should contain character vector of `teal_slice` `id`s (see [`teal.slice::teal_slice`]).</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Names of the list should correspond to `teal_module` `label` set in [module()] function.</pre>
+                      <pre class="language-r">    #' @return Logical vector with all occurrences of the selector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `id`s listed under `"global_filters` will be active in all modules.</pre>
+                      <pre class="language-r">    is_visible = function(selector,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - If missing, all filters will be applied to all modules.</pre>
+                      <pre class="language-r">                          content_visibility_auto = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - If empty list, all filters will be available to all modules but will start inactive.</pre>
+                      <pre class="language-r">                          opacity_property = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - If `module_specific` is `FALSE`, only `global_filters` will be active on start.</pre>
+                      <pre class="language-r">                          visibility_property = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">379</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param app_id (`character(1)`)</pre>
+                      <pre class="language-r">      checkmate::assert_string(selector)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">380</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  For internal use only, do not set manually.</pre>
+                      <pre class="language-r">      checkmate::assert_flag(content_visibility_auto)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">381</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Added by `init` so that a `teal_slices` can be matched to the app in which it was used.</pre>
+                      <pre class="language-r">      checkmate::assert_flag(opacity_property)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">382</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Used for verifying snapshots uploaded from file. See `snapshot`.</pre>
+                      <pre class="language-r">      checkmate::assert_flag(visibility_property)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">384</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`list`) of lists to convert to `teal_slices`</pre>
+                      <pre class="language-r">      private$wait_for_page_stability()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">385</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">386</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">      testthat::skip_if_not(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">387</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A `teal_slices` object.</pre>
+                      <pre class="language-r">        self$get_js("typeof Element.prototype.checkVisibility === 'function'"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">388</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        "Element.prototype.checkVisibility is not supported in the current browser."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [`teal.slice::teal_slices`], [`teal.slice::teal_slice`], [slices_store()]</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">391</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      unlist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">392</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter &lt;- teal_slices(</pre>
+                      <pre class="language-r">        self$get_js(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">393</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Species", id = "species"),</pre>
+                      <pre class="language-r">          sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">394</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Sepal.Length", id = "sepal_length"),</pre>
+                      <pre class="language-r">            "Array.from(document.querySelectorAll('%s')).map(el =&gt; el.checkVisibility({%s, %s, %s}))",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">395</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">            selector,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "iris", id = "long_petals", title = "Long petals", expr = "Petal.Length &gt; 5"</pre>
+                      <pre class="language-r">            # Extra parameters</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">397</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">            sprintf("contentVisibilityAuto: %s", tolower(content_visibility_auto)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">398</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "mtcars", varname = "mpg", id = "mtcars_mpg"),</pre>
+                      <pre class="language-r">            sprintf("opacityProperty: %s", tolower(opacity_property)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">399</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mapping = list(</pre>
+                      <pre class="language-r">            sprintf("visibilityProperty: %s", tolower(visibility_property))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module1 = c("species", "sepal_length"),</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">401</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module2 = c("mtcars_mpg"),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     global_filters = "long_petals"</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' Get the active filter variables from a dataset in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(iris = iris, mtcars = mtcars),</pre>
+                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to get the filter variables from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = list(</pre>
+                      <pre class="language-r">    #' If `NULL`, the filter variables for all the datasets will be returned in a list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module("module1"),</pre>
+                      <pre class="language-r">    get_active_data_filters = function(dataset_name = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">410</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module("module2")</pre>
+                      <pre class="language-r">      checkmate::check_string(dataset_name, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">411</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">      datasets &lt;- self$get_active_filter_vars()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">412</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter = filter</pre>
+                      <pre class="language-r">      checkmate::assert_subset(dataset_name, datasets)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">413</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      active_filters &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">414</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        datasets,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">415</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">        function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">416</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">          var_names &lt;- gsub(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">417</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">            pattern = "\\s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">418</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            replacement = "",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">419</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">            self$get_text(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">420</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">teal_slices &lt;- function(...,</pre>
+                      <pre class="language-r">              sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">421</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        exclude_varnames = NULL,</pre>
+                      <pre class="language-r">                "#%s-filters-%s .filter-card-varname",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">422</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        include_varnames = NULL,</pre>
+                      <pre class="language-r">                self$active_filters_ns(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">423</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        count_type = NULL,</pre>
+                      <pre class="language-r">                x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        allow_add = TRUE,</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        module_specific = FALSE,</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        mapping,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">427</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        app_id = NULL) {</pre>
+                      <pre class="language-r">          structure(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">170<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">428</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::isolate({</pre>
+                      <pre class="language-r">            lapply(var_names, private$get_active_filter_selection, dataset_name = x),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">170<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">429</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_flag(allow_add)</pre>
+                      <pre class="language-r">            names = var_names</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">170<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">430</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_flag(module_specific)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">431</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!missing(mapping)) checkmate::assert_list(mapping, types = c("character", "NULL"), names = "named")</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">432</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_string(app_id, null.ok = TRUE)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">433</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      names(active_filters) &lt;- datasets</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">434</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices &lt;- list(...)</pre>
+                      <pre class="language-r">      if (is.null(dataset_name)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">435</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_slice_id &lt;- vapply(slices, `[[`, character(1L), "id")</pre>
+                      <pre class="language-r">        return(active_filters)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">436</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">437</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (missing(mapping)) {</pre>
+                      <pre class="language-r">      active_filters[[dataset_name]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">117<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">438</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mapping &lt;- if (length(all_slice_id)) {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">439</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(global_filters = all_slice_id)</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    #' Add a new variable from the dataset to be filtered.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">91<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">441</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list()</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to add the filter variable to.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    #' @param var_name (character) The name of the variable to add to the filter panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$set_inputs`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">445</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!module_specific) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">148<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">446</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mapping[setdiff(names(mapping), "global_filters")] &lt;- NULL</pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    add_filter_var = function(dataset_name, var_name, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">448</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">449</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    failed_slice_id &lt;- setdiff(unlist(mapping), all_slice_id)</pre>
+                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">450</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(failed_slice_id)) {</pre>
+                      <pre class="language-r">      private$set_active_ns()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">451</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(sprintf(</pre>
+                      <pre class="language-r">      self$click(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">452</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Filters in mapping don't match any available filter.\n %s not in %s",</pre>
+                      <pre class="language-r">        selector = sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">453</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        toString(failed_slice_id),</pre>
+                      <pre class="language-r">          "#%s-filters-%s-add_filter_icon",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">454</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        toString(all_slice_id)</pre>
+                      <pre class="language-r">          private$ns$filter_panel,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">455</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">          dataset_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">458</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tss &lt;- teal.slice::teal_slices(</pre>
+                      <pre class="language-r">      self$set_input(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">459</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ...,</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">460</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      exclude_varnames = exclude_varnames,</pre>
+                      <pre class="language-r">          "%s-filters-%s-%s-filter-var_to_add",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">461</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      include_varnames = include_varnames,</pre>
+                      <pre class="language-r">          private$ns$filter_panel,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">462</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      count_type = count_type,</pre>
+                      <pre class="language-r">          dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">463</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      allow_add = allow_add</pre>
+                      <pre class="language-r">          dataset_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">465</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(tss, "mapping") &lt;- mapping</pre>
+                      <pre class="language-r">        var_name,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(tss, "module_specific") &lt;- module_specific</pre>
+                      <pre class="language-r">        ...</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">467</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(tss, "app_id") &lt;- app_id</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">468</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class(tss) &lt;- c("modules_teal_slices", class(tss))</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">469</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tss</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #' Remove an active filter variable of a dataset from the active filter variables panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to remove the filter variable from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slices</pre>
+                      <pre class="language-r">    #' If `NULL`, all the filter variables will be removed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">475</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    #' @param var_name (character) The name of the variable to remove from the filter panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">476</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #' If `NULL`, all the filter variables of the dataset will be removed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">477</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">478</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">as.teal_slices &lt;- function(x) { # nolint: object_name.</pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">479</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x)</pre>
+                      <pre class="language-r">    remove_filter_var = function(dataset_name = NULL, var_name = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">480</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(x, checkmate::assert_list, names = "named", .var.name = "list element")</pre>
+                      <pre class="language-r">      checkmate::check_string(dataset_name, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">481</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      checkmate::check_string(var_name, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">482</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attrs &lt;- attributes(unclass(x))</pre>
+                      <pre class="language-r">      if (is.null(dataset_name)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">483</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans &lt;- lapply(x, function(x) if (is.teal_slice(x)) x else as.teal_slice(x))</pre>
+                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">484</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(teal_slices, c(ans, attrs))</pre>
+                      <pre class="language-r">          "#%s-active-remove_all_filters",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">485</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          self$active_filters_ns()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">486</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">487</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      } else if (is.null(var_name)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">488</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slices</pre>
+                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">489</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">          "#%s-active-%s-remove_filters",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">490</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          self$active_filters_ns(),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">491</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          dataset_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">492</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">493</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">c.teal_slices &lt;- function(...) {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">494</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- list(...)</pre>
+                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">495</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(all(vapply(x, is.teal_slices, logical(1L))), .var.name = "all arguments are teal_slices")</pre>
+                      <pre class="language-r">          "#%s-active-%s-filter-%s_%s-remove",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">496</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          self$active_filters_ns(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">497</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_attributes &lt;- lapply(x, attributes)</pre>
+                      <pre class="language-r">          dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">498</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_attributes &lt;- coalesce_r(all_attributes)</pre>
+                      <pre class="language-r">          dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">499</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_attributes &lt;- all_attributes[names(all_attributes) != "class"]</pre>
+                      <pre class="language-r">          var_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">500</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">501</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">502</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_slices,</pre>
+                      <pre class="language-r">      self$click(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">503</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">        selector = remove_selector</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">504</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unique(unlist(x, recursive = FALSE)),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">505</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_attributes</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">507</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #' Set the active filter values for a variable of a dataset in the active filter variable panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">509</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to set the filter value for.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Deep copy `teal_slices`</pre>
+                      <pre class="language-r">    #' @param var_name (character) The name of the variable to set the filter value for.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">512</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param input The value to set the filter to.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' it's important to create a new copy of `teal_slices` when</pre>
+                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$set_inputs`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">514</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' starting a new `shiny` session. Otherwise, object will be shared</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' by multiple users as it is created in global environment before</pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">516</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `shiny` session starts.</pre>
+                      <pre class="language-r">    set_active_filter_selection = function(dataset_name,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">517</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filter (`teal_slices`)</pre>
+                      <pre class="language-r">                                           var_name,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">518</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `teal_slices`</pre>
+                      <pre class="language-r">                                           input,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">519</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                                           ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">520</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">deep_copy_filter &lt;- function(filter) {</pre>
+                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">521</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
+                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">522</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::isolate({</pre>
+                      <pre class="language-r">      checkmate::check_string(input)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">523</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter_copy &lt;- lapply(filter, function(slice) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">524</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.slice::as.teal_slice(as.list(slice))</pre>
+                      <pre class="language-r">      input_id_prefix &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">525</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">        "%s-filters-%s-filter-%s_%s-inputs",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">526</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attributes(filter_copy) &lt;- attributes(filter)</pre>
+                      <pre class="language-r">        self$active_filters_ns(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">527</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter_copy</pre>
+                      <pre class="language-r">        dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">528</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">        dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">529</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        var_name</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_teal_data.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">530</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Execute and validate `teal_data_module`</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">531</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">532</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is a low level module to handle `teal_data_module` execution and validation.</pre>
+                      <pre class="language-r">      # Find the type of filter (based on filter panel)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">533</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [teal_transform_module()] inherits from [teal_data_module()] so it is handled by this module too.</pre>
+                      <pre class="language-r">      supported_suffix &lt;- c("selection", "selection_manual")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">534</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [srv_teal()] accepts various `data` objects and eventually they are all transformed to `reactive`</pre>
+                      <pre class="language-r">      slices_suffix &lt;- supported_suffix[</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">535</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [teal.data::teal_data()] which is a standard data class in whole `teal` framework.</pre>
+                      <pre class="language-r">        match(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">536</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">537</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section data validation:</pre>
+                      <pre class="language-r">          vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">538</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            supported_suffix,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">539</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Executed [teal_data_module()] is validated and output is validated for consistency.</pre>
+                      <pre class="language-r">            function(suffix) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">540</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Output `data` is invalid if:</pre>
+                      <pre class="language-r">              !is.null(self$get_html(sprintf("#%s-%s", input_id_prefix, suffix)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">541</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 1. [teal_data_module()] is invalid if server doesn't return `reactive`. **Immediately crashes an app!**</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">542</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 2. `reactive` throws a `shiny.error` - happens when module creating [teal.data::teal_data()] fails.</pre>
+                      <pre class="language-r">            logical(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">543</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 3. `reactive` returns `qenv.error` - happens when [teal.data::teal_data()] evaluates a failing code.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">544</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 4. `reactive` object doesn't return [teal.data::teal_data()].</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">545</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 5. [teal.data::teal_data()] object lacks any `datanames` specified in the `modules` argument.</pre>
+                      <pre class="language-r">      ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">546</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">547</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal` (observers in `srv_teal`) always waits to render an app until `reactive` `teal_data` is</pre>
+                      <pre class="language-r">      # Generate correct namespace</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">548</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' returned. If error 2-4 occurs, relevant error message is displayed to the app user. Once the issue is</pre>
+                      <pre class="language-r">      slices_input_id &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">549</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' resolved, the app will continue to run. `teal` guarantees that errors in data don't crash the app</pre>
+                      <pre class="language-r">        "%s-filters-%s-filter-%s_%s-inputs-%s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">550</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (except error 1).</pre>
+                      <pre class="language-r">        self$active_filters_ns(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">551</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">552</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character(1)`) Module id</pre>
+                      <pre class="language-r">        dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">553</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`reactive teal_data`)</pre>
+                      <pre class="language-r">        var_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">554</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data_module (`teal_data_module`)</pre>
+                      <pre class="language-r">        slices_suffix</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">555</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules` or `teal_module`) For `datanames` validation purpose</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">556</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param validate_shiny_silent_error (`logical`) If `TRUE`, then `shiny.silent.error` is validated and</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">557</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param is_transform_failed (`reactiveValues`) contains `logical` flags named after each transformator.</pre>
+                      <pre class="language-r">      if (identical(slices_suffix, "selection_manual")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">558</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Help to determine if any previous transformator failed, so that following transformators can be disabled</pre>
+                      <pre class="language-r">        checkmate::assert_numeric(input, len = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">559</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and display a generic failure message.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">560</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        dots &lt;- rlang::list2(...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">561</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `reactive` `teal_data`</pre>
+                      <pre class="language-r">        checkmate::assert_choice(dots$priority_, formals(self$set_inputs)[["priority_"]], null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">562</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        checkmate::assert_flag(dots$wait_, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">563</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_data</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">564</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_teal_data</pre>
+                      <pre class="language-r">        self$run_js(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">565</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">566</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">            "Shiny.setInputValue('%s:sw.numericRange', [%f, %f], {priority: '%s'})",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">567</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            slices_input_id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">568</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_data</pre>
+                      <pre class="language-r">            input[[1]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">569</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases ui_teal_data</pre>
+                      <pre class="language-r">            input[[2]],</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">570</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            priority_ = ifelse(is.null(dots$priority_), "input", dots$priority_)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">571</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">572</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `ui_teal_data_module` was renamed from `ui_teal_data`.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">573</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_teal_data_module &lt;- function(id, data_module = function(id) NULL) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">44</td>
+                    <td class="num">574</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">        if (isTRUE(dots$wait_) || is.null(dots$wait_)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">45</td>
+                    <td class="num">575</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(data_module, args = "id")</pre>
+                      <pre class="language-r">          self$wait_for_idle(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">46</td>
+                    <td class="num">576</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">            timeout = if (is.null(dots$timeout_)) rlang::missing_arg() else dots$timeout_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">578</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">48</td>
+                    <td class="num">579</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::tagList(</pre>
+                      <pre class="language-r">      } else if (identical(slices_suffix, "selection")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">49</td>
+                    <td class="num">580</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(id = ns("wrapper"), data_module(id = ns("data"))),</pre>
+                      <pre class="language-r">        self$set_input(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">50</td>
+                    <td class="num">581</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_validate_reactive_teal_data(ns("validate"))</pre>
+                      <pre class="language-r">          slices_input_id,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">582</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          input,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">583</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">584</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">585</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">586</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        stop("Filter selection set not supported for this slice.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">587</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_data</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">588</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases srv_teal_data</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">589</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">590</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">591</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `srv_teal_data_module` was renamed from `srv_teal_data`.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">592</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_teal_data_module &lt;- function(id,</pre>
+                      <pre class="language-r">    #' Extract `html` attribute (found by a `selector`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">593</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 data_module = function(id) NULL,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">594</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 modules = NULL,</pre>
+                      <pre class="language-r">    #' @param selector (`character(1)`) specifying the selector to be used to get the content of a specific node.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">595</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 validate_shiny_silent_error = TRUE,</pre>
+                      <pre class="language-r">    #' @param attribute (`character(1)`) name of an attribute to retrieve from a node specified by `selector`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">596</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 is_transform_failed = reactiveValues()) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">63</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">597</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">    #' @return The `character` vector.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">598</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    get_attr = function(selector, attribute) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">64</td>
+                    <td class="num">599</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(data_module, args = "id")</pre>
+                      <pre class="language-r">      rvest::html_attr(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">65</td>
+                    <td class="num">600</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"), null.ok = TRUE)</pre>
+                      <pre class="language-r">        rvest::html_nodes(self$get_html_rvest("html"), selector),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">66</td>
+                    <td class="num">601</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(is_transform_failed, "reactivevalues")</pre>
+                      <pre class="language-r">        attribute</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">602</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">68</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">69</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">603</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_debug("srv_teal_data_module initializing.")</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">70</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">604</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_transform_failed[[id]] &lt;- FALSE</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">605</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_out &lt;- data_module(id = "data")</pre>
+                      <pre class="language-r">    #' Wrapper around `get_html` that passes the output directly to `rvest::read_html`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">72</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">606</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    try_module_out &lt;- reactive(tryCatch(module_out(), error = function(e) e))</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">73</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">607</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(try_module_out(), {</pre>
+                      <pre class="language-r">    #' @param selector `(character(1))` passed to `get_html`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">74</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">608</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!inherits(try_module_out(), "teal_data")) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">75</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">609</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_transform_failed[[id]] &lt;- TRUE</pre>
+                      <pre class="language-r">    #' @return An XML document.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">610</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    get_html_rvest = function(selector) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">77</td>
+                    <td class="num">611</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_transform_failed[[id]] &lt;- FALSE</pre>
+                      <pre class="language-r">      rvest::read_html(self$get_html(selector))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">612</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">613</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    #' Wrapper around `get_url()` method that opens the app in the browser.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">614</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">81</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">615</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_previous_failed &lt;- reactive({</pre>
+                      <pre class="language-r">    #' @return Nothing. Opens the underlying teal app in the browser.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">82</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">616</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      idx_this &lt;- which(names(is_transform_failed) == id)</pre>
+                      <pre class="language-r">    open_url = function() {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">83</td>
+                    <td class="num">617</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_transform_failed_list &lt;- reactiveValuesToList(is_transform_failed)</pre>
+                      <pre class="language-r">      browseURL(self$get_url())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">84</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">618</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      idx_failures &lt;- which(unlist(is_transform_failed_list))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">85</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">619</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      any(idx_failures &lt; idx_this)</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">620</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    #' Waits until a specified input, output, or export value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">621</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' This function serves as a wrapper around the `wait_for_value` method,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">88</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">622</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(is_previous_failed(), {</pre>
+                      <pre class="language-r">    #' providing a more flexible interface for waiting on different types of values within the active module namespace.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">89</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">623</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is_previous_failed()) {</pre>
+                      <pre class="language-r">    #' @param input,output,export A name of an input, output, or export value.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">90</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">624</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::disable("wrapper")</pre>
+                      <pre class="language-r">    #' Only one of these parameters may be used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">625</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    #' @param ... Must be empty. Allows for parameter expansion.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">92</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">626</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::enable("wrapper")</pre>
+                      <pre class="language-r">    #' Parameter with additional value to passed in `wait_for_value`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">627</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    wait_for_active_module_value = function(input = rlang::missing_arg(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">628</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">                                            output = rlang::missing_arg(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">629</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                            export = rlang::missing_arg(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">96</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">630</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_validate_reactive_teal_data(</pre>
+                      <pre class="language-r">                                            ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">97</td>
+                    <td class="num">631</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "validate",</pre>
+                      <pre class="language-r">      ns &lt;- shiny::NS(self$active_module_ns())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">98</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">632</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = try_module_out,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">99</td>
+                    <td class="num">633</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      modules = modules,</pre>
+                      <pre class="language-r">      if (!rlang::is_missing(input) &amp;&amp; checkmate::test_string(input, min.chars = 1)) input &lt;- ns(input)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">100</td>
+                    <td class="num">634</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate_shiny_silent_error = validate_shiny_silent_error,</pre>
+                      <pre class="language-r">      if (!rlang::is_missing(output) &amp;&amp; checkmate::test_string(output, min.chars = 1)) output &lt;- ns(output)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">101</td>
+                    <td class="num">635</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hide_validation_error = is_previous_failed</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      if (!rlang::is_missing(export) &amp;&amp; checkmate::test_string(export, min.chars = 1)) export &lt;- ns(export)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">636</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_data</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">ui_validate_reactive_teal_data &lt;- function(id) {</pre>
-                    </td>
-                  </tr>
                   <tr class="missed">
-                    <td class="num">108</td>
+                    <td class="num">637</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">      self$wait_for_value(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">109</td>
+                    <td class="num">638</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tagList(</pre>
+                      <pre class="language-r">        input = input,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">110</td>
+                    <td class="num">639</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    div(</pre>
+                      <pre class="language-r">        output = output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">111</td>
+                    <td class="num">640</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = ns("validate_messages"),</pre>
+                      <pre class="language-r">        export = export,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">112</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">641</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "teal_validated",</pre>
+                      <pre class="language-r">        ...</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">113</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">642</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_validate_error(ns("silent_error")),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">114</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">643</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_check_class_teal_data(ns("class_teal_data")),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">115</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">644</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_check_module_datanames(ns("shiny_warnings"))</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">645</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">  # private members ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">117</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">646</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    div(</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">118</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">647</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "teal_validated",</pre>
+                      <pre class="language-r">    # private attributes ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">119</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">648</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      uiOutput(ns("previous_failed"))</pre>
+                      <pre class="language-r">    data = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">649</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    modules = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">650</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    filter = teal_slices(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">651</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    ns = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">652</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      module = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">653</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_data</pre>
+                      <pre class="language-r">      filter_panel = character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">654</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_validate_reactive_teal_data &lt;- function(id, # nolint: object_length</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">655</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            data,</pre>
+                      <pre class="language-r">    # private methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">656</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            modules = NULL,</pre>
+                      <pre class="language-r">    set_active_ns = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">657</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            validate_shiny_silent_error = FALSE,</pre>
+                      <pre class="language-r">      all_inputs &lt;- self$get_values()$input</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">658</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      active_tab_inputs &lt;- all_inputs[grepl("-active_tab$", names(all_inputs))]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">659</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            hide_validation_error = reactive(FALSE)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">130</td>
+                    <td class="num">660</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">      tab_ns &lt;- unlist(lapply(names(active_tab_inputs), function(name) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">131</td>
+                    <td class="num">661</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"), null.ok = TRUE)</pre>
+                      <pre class="language-r">        gsub(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">132</td>
+                    <td class="num">662</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(validate_shiny_silent_error)</pre>
+                      <pre class="language-r">          pattern = "-active_tab$",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">663</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          replacement = sprintf("-%s", active_tab_inputs[[name]]),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">134</td>
+                    <td class="num">664</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">          name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">665</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # there is an empty reactive cycle on `init` and `data` has `shiny.silent.error` class</pre>
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">666</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">136</td>
+                    <td class="num">667</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_validate_error("silent_error", data, validate_shiny_silent_error)</pre>
+                      <pre class="language-r">      active_ns &lt;- tab_ns[1]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">137</td>
+                    <td class="num">668</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_check_class_teal_data("class_teal_data", data)</pre>
+                      <pre class="language-r">      if (length(tab_ns) &gt; 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">138</td>
+                    <td class="num">669</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_check_module_datanames("shiny_warnings", data, modules)</pre>
+                      <pre class="language-r">        for (i in 2:length(tab_ns)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">139</td>
+                    <td class="num">670</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$previous_failed &lt;- renderUI({</pre>
+                      <pre class="language-r">          next_ns &lt;- tab_ns[i]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">140</td>
+                    <td class="num">671</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (hide_validation_error()) {</pre>
+                      <pre class="language-r">          if (grepl(pattern = active_ns, next_ns)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">141</td>
+                    <td class="num">672</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("validate_messages")</pre>
+                      <pre class="language-r">            active_ns &lt;- next_ns</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">673</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">674</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">675</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">142</td>
+                    <td class="num">676</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div("One of previous transformators failed. Please check its inputs.", class = "teal-output-warning")</pre>
+                      <pre class="language-r">      private$ns$module &lt;- sprintf("%s-%s", active_ns, "module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">677</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">144</td>
+                    <td class="num">678</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("validate_messages")</pre>
+                      <pre class="language-r">      components &lt;- c("filter_panel", "data_summary")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">145</td>
+                    <td class="num">679</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">      for (component in components) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">680</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        if (</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">681</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          !is.null(self$get_html(sprintf("#%s-%s-panel", active_ns, component))) ||</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">682</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            !is.null(self$get_html(sprintf("#%s-%s-table", active_ns, component)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">683</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">        ) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">684</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          private$ns[[component]] &lt;- sprintf("%s-%s", active_ns, component)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">685</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">149</td>
+                    <td class="num">686</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .trigger_on_success(data)</pre>
+                      <pre class="language-r">          private$ns[[component]] &lt;- sprintf("%s-module_%s", active_ns, component)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">687</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">688</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">689</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">690</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">691</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_validate_error &lt;- function(id) {</pre>
+                      <pre class="language-r">    # Get the active filter values from the active filter selection of dataset from the filter panel.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">116<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">692</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">116<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">693</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  uiOutput(ns("message"))</pre>
+                      <pre class="language-r">    # @param dataset_name (character) The name of the dataset to get the filter values from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">694</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    # @param var_name (character) The name of the variable to get the filter values from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">695</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">696</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    # @return The value of the active filter selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">697</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_validate_error &lt;- function(id, data, validate_shiny_silent_error) {</pre>
+                      <pre class="language-r">    get_active_filter_selection = function(dataset_name, var_name) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">698</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">699</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(validate_shiny_silent_error)</pre>
+                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">700</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">      input_id_prefix &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">701</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$message &lt;- renderUI({</pre>
+                      <pre class="language-r">        "%s-filters-%s-filter-%s_%s-inputs",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">702</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_shiny_silent_error &lt;- inherits(data(), "shiny.silent.error") &amp;&amp; identical(data()$message, "")</pre>
+                      <pre class="language-r">        self$active_filters_ns(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">703</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (inherits(data(), "qenv.error")) {</pre>
+                      <pre class="language-r">        dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">704</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(</pre>
+                      <pre class="language-r">        dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">705</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          need(</pre>
+                      <pre class="language-r">        var_name</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">706</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            FALSE,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">707</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paste(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">708</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Error when executing the `data` module:",</pre>
+                      <pre class="language-r">      # Find the type of filter (categorical or range)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">709</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              cli::ansi_strip(paste(data()$message, collapse = "\n")),</pre>
+                      <pre class="language-r">      supported_suffix &lt;- c("selection", "selection_manual")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">710</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "\nCheck your inputs or contact app developer if error persists.",</pre>
+                      <pre class="language-r">      for (suffix in supported_suffix) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">711</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              collapse = "\n"</pre>
+                      <pre class="language-r">        if (!is.null(self$get_html(sprintf("#%s-%s", input_id_prefix, suffix)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">712</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">          return(self$get_value(input = sprintf("%s-%s", input_id_prefix, suffix)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">713</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">714</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">110<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      } else if (inherits(data(), "error")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        if (is_shiny_silent_error &amp;&amp; !validate_shiny_silent_error) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          return(NULL)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">715</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        validate(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          need(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            FALSE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            sprintf(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              "Shiny error when executing the `data` module.\n%s\n%s",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              data()$message,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">716</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Check your inputs or contact app developer if error persists."</pre>
+                      <pre class="language-r">      NULL # If there are not any supported filters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">717</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">718</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">719</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    # Check if the page is stable without any `DOM` updates in the body of the app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">720</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    # This is achieved by blocing the R process by sleeping until the page is unchanged till the `stability_period`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">721</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    # @param stability_period (`numeric(1)`) The time in milliseconds to wait till the page to be stable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">722</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    # @param check_interval (`numeric(1)`) The time in milliseconds to check for changes in the page.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">723</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    # The stability check is reset when a change is detected in the page after sleeping for check_interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">724</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    wait_for_page_stability = function(stability_period = 2000, check_interval = 200) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">725</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      previous_content &lt;- self$get_html("body")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">726</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      end_time &lt;- Sys.time() + (stability_period / 1000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">727</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_check_class_teal_data &lt;- function(id) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">116<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">728</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">      repeat {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">116<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">729</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  uiOutput(ns("message"))</pre>
+                      <pre class="language-r">        Sys.sleep(check_interval / 1000)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">730</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        current_content &lt;- self$get_html("body")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">731</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">srv_check_class_teal_data &lt;- function(id, data) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">113<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">113<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">732</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$message &lt;- renderUI({</pre>
+                      <pre class="language-r">        if (!identical(previous_content, current_content)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">733</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(</pre>
+                      <pre class="language-r">          previous_content &lt;- current_content</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">734</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        need(</pre>
+                      <pre class="language-r">          end_time &lt;- Sys.time() + (stability_period / 1000)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">735</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inherits(data(), c("teal_data", "error")),</pre>
+                      <pre class="language-r">        } else if (Sys.time() &gt;= end_time) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">736</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Did not receive `teal_data` object. Cannot proceed further."</pre>
+                      <pre class="language-r">          break</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">737</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">738</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">739</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">740</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">741</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/validations.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Validate that dataset has a minimum number of observations</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_check_module_datanames &lt;- function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">116<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">116<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  uiOutput(NS(id, "message"))</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_check_module_datanames &lt;- function(id, data, modules) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">193<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">193<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">193<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    output$message &lt;- renderUI({</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">196<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (inherits(data(), "teal_data")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">179<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        is_modules_ok &lt;- check_modules_datanames_html(</pre>
+                      <pre class="language-r">#' @param x (`data.frame`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">179<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          modules = modules, datanames = names(data())</pre>
+                      <pre class="language-r">#' @param min_nrow (`numeric(1)`) Minimum allowed number of rows in `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param complete (`logical(1)`) Flag specifying whether to check only complete cases. Defaults to `FALSE`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">179<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!isTRUE(is_modules_ok)) {</pre>
+                      <pre class="language-r">#' @param allow_inf (`logical(1)`) Flag specifying whether to allow infinite values. Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(is_modules_ok, class = "teal-output-warning")</pre>
+                      <pre class="language-r">#' @param msg (`character(1)`) Additional message to display alongside the default message.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' library(teal)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.trigger_on_success &lt;- function(data) {</pre>
+                      <pre class="language-r">#'   sliderInput("len", "Max Length of Sepal",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- reactiveVal(NULL)</pre>
+                      <pre class="language-r">#'     min = 4.3, max = 7.9, value = 5</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  observeEvent(data(), {</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (inherits(data(), "teal_data")) {</pre>
+                      <pre class="language-r">#'   plotOutput("plot")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">97<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!identical(data(), out())) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">97<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        out(data())</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'     iris_df &lt;- iris[iris$Sepal.Length &lt;= input$len, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     validate_has_data(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out</pre>
+                      <pre class="language-r">#'       iris_df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       min_nrow = 10,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_bookmark_manager.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' App state management.</pre>
+                      <pre class="language-r">#'       complete = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       msg = "Please adjust Max Length of Sepal"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     hist(iris_df$Sepal.Length, breaks = 5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Capture and restore the global (app) input state.</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module introduces bookmarks into `teal` apps: the `shiny` bookmarking mechanism becomes enabled</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and server-side bookmarks can be created.</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The bookmark manager presents a button with the bookmark icon and is placed in the tab-bar.</pre>
+                      <pre class="language-r">validate_has_data &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' When clicked, the button creates a bookmark and opens a modal which displays the bookmark URL.</pre>
+                      <pre class="language-r">                              min_nrow = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                              complete = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal` does not guarantee that all modules (`teal_module` objects) are bookmarkable.</pre>
+                      <pre class="language-r">                              allow_inf = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Those that are, have a `teal_bookmarkable` attribute set to `TRUE`. If any modules are not bookmarkable,</pre>
+                      <pre class="language-r">                              msg = NULL) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">17<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_string(msg, null.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_data_frame(x)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is.null(min_nrow)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (complete) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      complete_index &lt;- stats::complete.cases(x)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      validate(need(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        sum(complete_index) &gt; 0 &amp;&amp; nrow(x[complete_index, , drop = FALSE]) &gt;= min_nrow,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        paste(c(paste("Number of complete cases is less than:", min_nrow), msg), collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the bookmark manager modal displays a warning and the bookmark button displays a flag.</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In order to communicate that a external module is bookmarkable, the module developer</pre>
+                      <pre class="language-r">    } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      validate(need(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        nrow(x) &gt;= min_nrow,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        paste(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          c(paste("Minimum number of records not met: &gt;=", min_nrow, "records required."), msg),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          collapse = "\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' should set the `teal_bookmarkable` attribute to `TRUE`.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Server logic:</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A bookmark is a URL that contains the app address with a `/?_state_id_=&lt;bookmark_dir&gt;` suffix.</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (!allow_inf) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      validate(need(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        all(vapply(x, function(col) !is.numeric(col) || !any(is.infinite(col)), logical(1))),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "Dataframe contains Inf values which is not allowed."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `&lt;bookmark_dir&gt;` is a directory created on the server, where the state of the application is saved.</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Accessing the bookmark URL opens a new session of the app that starts in the previously saved state.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Note:</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To enable bookmarking use either:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `shiny` app by using `shinyApp(..., enableBookmarking = "server")` (not supported in `shinytest2`)</pre>
+                      <pre class="language-r">#' Validate that dataset has unique rows for key variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - set `options(shiny.bookmarkStore = "server")` before running the app</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams init</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Invisible `NULL`.</pre>
+                      <pre class="language-r">#' @param x (`data.frame`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @param key (`character`) Vector of ID variables from `x` that identify unique records.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases bookmark bookmark_manager bookmark_manager_module</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_bookmark_manager</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_bookmark_manager</pre>
+                      <pre class="language-r">#' iris$id &lt;- rep(1:50, times = 3)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     inputId = "species",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'     label = "Select species",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     choices = c("setosa", "versicolor", "virginica"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_bookmark_manager</pre>
+                      <pre class="language-r">#'     selected = "setosa",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_bookmark_panel &lt;- function(id, modules) {</pre>
+                      <pre class="language-r">#'     multiple = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">47</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   plotOutput("plot")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">49</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bookmark_option &lt;- get_bookmarking_option()</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">50</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_unbookmarkable &lt;- need_bookmarking(modules)</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">51</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shinyOptions(bookmarkStore = bookmark_option)</pre>
+                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     iris_f &lt;- iris[iris$Species %in% input$species, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Render bookmark warnings count</pre>
+                      <pre class="language-r">#'     validate_one_row_per_id(iris_f, key = c("id"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">54</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(is_unbookmarkable) &amp;&amp; identical(bookmark_option, "server")) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">55</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$button(</pre>
+                      <pre class="language-r">#'     hist(iris_f$Sepal.Length, breaks = 5)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">56</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = ns("do_bookmark"),</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">57</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "btn action-button wunder_bar_button bookmark_manager_button",</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">58</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Add bookmark",</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">59</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$span(</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">60</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        suppressMessages(icon("fas fa-bookmark")),</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">61</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (any(is_unbookmarkable)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">62</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$span(</pre>
+                      <pre class="language-r">validate_one_row_per_id &lt;- function(x, key = c("USUBJID", "STUDYID")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">63</td>
+                    <td class="num">110</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sum(is_unbookmarkable),</pre>
+                      <pre class="language-r">  validate(need(!any(duplicated(x[key])), paste("Found more than one row per id.")))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">64</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "badge-warning badge-count text-white bg-danger"</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' Validates that vector includes all expected values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_bookmark_manager</pre>
+                      <pre class="language-r">#' @param x Vector of values to test.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_bookmark_panel &lt;- function(id, modules) {</pre>
+                      <pre class="language-r">#' @param choices Vector to test against.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(id)</pre>
+                      <pre class="language-r">#' @param msg (`character(1)`) Error message to display if some elements of `x` are not elements of `choices`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_debug("bookmark_manager_srv initializing")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ns &lt;- session$ns</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    bookmark_option &lt;- get_bookmarking_option()</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_unbookmarkable &lt;- need_bookmarking(modules)</pre>
+                      <pre class="language-r">#'   selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     "species",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Set up bookmarking callbacks ----</pre>
+                      <pre class="language-r">#'     "Select species",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Register bookmark exclusions: do_bookmark button to avoid re-bookmarking</pre>
+                      <pre class="language-r">#'     choices = c("setosa", "versicolor", "virginica", "unknown species"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    setBookmarkExclude(c("do_bookmark"))</pre>
+                      <pre class="language-r">#'     selected = "setosa",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # This bookmark can only be used on the app session.</pre>
+                      <pre class="language-r">#'     multiple = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    app_session &lt;- .subset2(session, "parent")</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    app_session$onBookmarked(function(url) {</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">88</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("bookmark_manager_srv@onBookmarked: bookmark button clicked, registering bookmark")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">89</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      modal_content &lt;- if (bookmark_option != "server") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">90</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        msg &lt;- sprintf(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">91</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "Bookmarking has been set to \"%s\".\n%s\n%s",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">92</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          bookmark_option,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "Only server-side bookmarking is supported.",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">94</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "Please contact your app developer."</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">96</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">97</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          tags$p(msg, class = "text-warning")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">100</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">101</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          tags$span(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">102</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            tags$pre(url)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">104</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          if (any(is_unbookmarkable)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">105</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            bkmb_summary &lt;- rapply2(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">106</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              modules_bookmarkable(modules),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">107</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              function(x) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                if (isTRUE(x)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">109</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  "\u2705" # check mark</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">110</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                } else if (isFALSE(x)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">111</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  "\u274C" # cross mark</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">113</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  "\u2753" # question mark</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">117</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            tags$div(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">118</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              tags$p(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">119</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                icon("fas fa-exclamation-triangle"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">120</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                "Some modules will not be restored when using this bookmark.",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">121</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                tags$br(),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">122</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                "Check the list below to see which modules are not bookmarkable.",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">123</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                class = "text-warning"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">125</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              tags$pre(yaml::as.yaml(bkmb_summary))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">131</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      showModal(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">132</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        modalDialog(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">133</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("bookmark_modal"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">134</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          title = "Bookmarked teal app url",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">135</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          modal_content,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
                     <td class="num">136</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          easyClose = TRUE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   output$summary &lt;- renderPrint({</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'     validate_in(input$species, iris$Species, "Species does not exist.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     nrow(iris[iris$Species == input$species, ])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # manually trigger bookmarking because of the problems reported on windows with bookmarkButton in teal</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">142</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$do_bookmark, {</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">143</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_debug("bookmark_manager_srv@1 do_bookmark module clicked.")</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">144</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      session$doBookmark()</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">147</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    invisible(NULL)</pre>
+                      <pre class="language-r">validate_in &lt;- function(x, choices, msg) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">148</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">  validate(need(length(x) &gt; 0 &amp;&amp; length(choices) &gt; 0 &amp;&amp; all(x %in% choices), msg))</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -24425,532 +23761,532 @@ <h2>teal coverage - 60.02%</h2>
                     <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Validates that vector has length greater than 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_bookmark_manager</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_bookmarking_option &lt;- function() {</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">154</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bookmark_option &lt;- getShinyOption("bookmarkStore")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">155</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(bookmark_option) &amp;&amp; identical(getOption("shiny.bookmarkStore"), "server")) {</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">156</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    bookmark_option &lt;- getOption("shiny.bookmarkStore")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param x vector</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">158</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bookmark_option</pre>
+                      <pre class="language-r">#' @param msg message to display</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_bookmark_manager</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">need_bookmarking &lt;- function(modules) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">163</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unlist(rapply2(</pre>
+                      <pre class="language-r">#' data &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">164</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules_bookmarkable(modules),</pre>
+                      <pre class="language-r">#'   id = c(1:10, 11:20, 1:10),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">165</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Negate(isTRUE)</pre>
+                      <pre class="language-r">#'   strata = rep(c("A", "B"), each = 15)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   selectInput("ref1", "Select strata1 to compare",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     choices = c("A", "B", "C"), selected = "A"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># utilities ----</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   selectInput("ref2", "Select strata2 to compare",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Restore value from bookmark.</pre>
+                      <pre class="language-r">#'     choices = c("A", "B", "C"), selected = "B"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get value from bookmark or return default.</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("arm_summary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Bookmarks can store not only inputs but also arbitrary values.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' These values are stored by `onBookmark` callbacks and restored by `onBookmarked` callbacks,</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and they are placed in the `values` environment in the `session$restoreContext` field.</pre>
+                      <pre class="language-r">#'   output$arm_summary &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Using `teal_data_module` makes it impossible to run the callbacks</pre>
+                      <pre class="language-r">#'     sample_1 &lt;- data$id[data$strata == input$ref1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' because the app becomes ready before modules execute and callbacks are registered.</pre>
+                      <pre class="language-r">#'     sample_2 &lt;- data$id[data$strata == input$ref2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In those cases the stored values can still be recovered from the `session` object directly.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     validate_has_elements(sample_1, "No subjects in strata1.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Note that variable names in the `values` environment are prefixed with module name space names,</pre>
+                      <pre class="language-r">#'     validate_has_elements(sample_2, "No subjects in strata2.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' therefore, when using this function in modules, `value` must be run through the name space function.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     paste0(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param value (`character(1)`) name of value to restore</pre>
+                      <pre class="language-r">#'       "Number of samples in: strata1=", length(sample_1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param default fallback value</pre>
+                      <pre class="language-r">#'       " comparions strata2=", length(sample_2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In an application restored from a server-side bookmark,</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the variable specified by `value` from the `values` environment.</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Otherwise `default`.</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">validate_has_elements &lt;- function(x, msg) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">195</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  validate(need(length(x) &gt; 0, msg))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">restoreValue &lt;- function(value, default) { # nolint: object_name.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">197</td>
-                    <td class="coverage">174<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character("value")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">198</td>
-                    <td class="coverage">174<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  session_default &lt;- shiny::getDefaultReactiveDomain()</pre>
+                      <pre class="language-r">#' Validates no intersection between two vectors</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">199</td>
-                    <td class="coverage">174<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  session_parent &lt;- .subset2(session_default, "parent")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">200</td>
-                    <td class="coverage">174<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  session &lt;- if (is.null(session_parent)) session_default else session_parent</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">202</td>
-                    <td class="coverage">174<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isTRUE(session$restoreContext$active) &amp;&amp; exists(value, session$restoreContext$values, inherits = FALSE)) {</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">203</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    session$restoreContext$values[[value]]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @param x vector</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">205</td>
-                    <td class="coverage">174<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    default</pre>
+                      <pre class="language-r">#' @param y vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param msg (`character(1)`) message to display if `x` and `y` intersect</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Compare bookmarks.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Test if two bookmarks store identical state.</pre>
+                      <pre class="language-r">#' data &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   id = c(1:10, 11:20, 1:10),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `input` environments are compared one variable at a time and if not identical,</pre>
+                      <pre class="language-r">#'   strata = rep(c("A", "B", "C"), each = 10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' values in both bookmarks are reported. States of `datatable`s are stripped</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of the `time` element before comparing because the time stamp is always different.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The contents themselves are not printed as they are large and the contents are not informative.</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Elements present in one bookmark and absent in the other are also reported.</pre>
+                      <pre class="language-r">#'   selectInput("ref1", "Select strata1 to compare",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Differences are printed as messages.</pre>
+                      <pre class="language-r">#'     choices = c("A", "B", "C"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     selected = "A"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `values` environments are compared with `all.equal`.</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   selectInput("ref2", "Select strata2 to compare",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section How to use:</pre>
+                      <pre class="language-r">#'     choices = c("A", "B", "C"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Open an application, change relevant inputs (typically, all of them), and create a bookmark.</pre>
+                      <pre class="language-r">#'     selected = "B"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Then open that bookmark and immediately create a bookmark of that.</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If restoring bookmarks occurred properly, the two bookmarks should store the same state.</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -24964,441 +24300,441 @@ <h2>teal coverage - 60.02%</h2>
                     <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param book1,book2 bookmark directories stored in `shiny_bookmarks/`;</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'                    default to the two most recently modified directories</pre>
+                      <pre class="language-r">#'   output$summary &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     sample_1 &lt;- data$id[data$strata == input$ref1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'     sample_2 &lt;- data$id[data$strata == input$ref2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Invisible `NULL` if bookmarks are identical or if there are no bookmarks to test.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `FALSE` if inconsistencies are detected.</pre>
+                      <pre class="language-r">#'     validate_no_intersection(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       sample_1, sample_2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'       "subjects within strata1 and strata2 cannot overlap"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">bookmarks_identical &lt;- function(book1, book2) {</pre>
+                      <pre class="language-r">#'     paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">238</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!dir.exists("shiny_bookmarks")) {</pre>
+                      <pre class="language-r">#'       "Number of subject in: reference treatment=", length(sample_1),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">239</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    message("no bookmark directory")</pre>
+                      <pre class="language-r">#'       " comparions treatment=", length(sample_2)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">240</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(invisible(NULL))</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">243</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans &lt;- TRUE</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">245</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(book1) &amp;&amp; missing(book2)) {</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">246</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dirs &lt;- list.dirs("shiny_bookmarks", recursive = FALSE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">247</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    bookmarks_sorted &lt;- basename(rev(dirs[order(file.mtime(dirs))]))</pre>
+                      <pre class="language-r">validate_no_intersection &lt;- function(x, y, msg) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">248</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(bookmarks_sorted) &lt; 2L) {</pre>
+                      <pre class="language-r">  validate(need(length(intersect(x, y)) == 0, msg))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">249</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      message("no bookmarks to compare")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">250</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(invisible(NULL))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">252</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    book1 &lt;- bookmarks_sorted[2L]</pre>
+                      <pre class="language-r">#' Validates that dataset contains specific variable</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">253</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    book2 &lt;- bookmarks_sorted[1L]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">255</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!dir.exists(file.path("shiny_bookmarks", book1))) stop(book1, " not found")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">256</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!dir.exists(file.path("shiny_bookmarks", book2))) stop(book2, " not found")</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param data (`data.frame`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">259</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  book1_input &lt;- readRDS(file.path("shiny_bookmarks", book1, "input.rds"))</pre>
+                      <pre class="language-r">#' @param varname (`character(1)`) name of variable to check for in `data`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">260</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  book2_input &lt;- readRDS(file.path("shiny_bookmarks", book2, "input.rds"))</pre>
+                      <pre class="language-r">#' @param msg (`character(1)`) message to display if `data` does not include `varname`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">262</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  elements_common &lt;- intersect(names(book1_input), names(book2_input))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">263</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dt_states &lt;- grepl("_state$", elements_common)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">264</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(dt_states)) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">265</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (el in elements_common[dt_states]) {</pre>
+                      <pre class="language-r">#' data &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">266</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      book1_input[[el]][["time"]] &lt;- NULL</pre>
+                      <pre class="language-r">#'   one = rep("a", length.out = 20),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">267</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      book2_input[[el]][["time"]] &lt;- NULL</pre>
+                      <pre class="language-r">#'   two = rep(c("a", "b"), length.out = 20)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   selectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">271</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  identicals &lt;- mapply(identical, book1_input[elements_common], book2_input[elements_common])</pre>
+                      <pre class="language-r">#'     "var",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">272</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  non_identicals &lt;- names(identicals[!identicals])</pre>
+                      <pre class="language-r">#'     "Select variable",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">273</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  compares &lt;- sprintf("$ %s:\t%s --- %s", non_identicals, book1_input[non_identicals], book2_input[non_identicals])</pre>
+                      <pre class="language-r">#'     choices = c("one", "two", "three", "four"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">274</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(compares) != 0L) {</pre>
+                      <pre class="language-r">#'     selected = "one"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">275</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    message("common elements not identical: \n", paste(compares, collapse = "\n"))</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">276</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ans &lt;- FALSE</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">279</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  elements_boook1 &lt;- setdiff(names(book1_input), names(book2_input))</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">280</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(elements_boook1) != 0L) {</pre>
+                      <pre class="language-r">#'   output$summary &lt;- renderText({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">281</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dt_states &lt;- grepl("_state$", elements_boook1)</pre>
+                      <pre class="language-r">#'     validate_has_variable(data, input$var)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">282</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (any(dt_states)) {</pre>
+                      <pre class="language-r">#'     paste0("Selected treatment variables: ", paste(input$var, collapse = ", "))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">283</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (el in elements_boook1[dt_states]) {</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">284</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.list(book1_input[[el]])) book1_input[[el]] &lt;- "--- data table state ---"</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">287</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    excess1 &lt;- sprintf("$ %s:\t%s", elements_boook1, book1_input[elements_boook1])</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">288</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    message("elements only in book1: \n", paste(excess1, collapse = "\n"))</pre>
+                      <pre class="language-r">validate_has_variable &lt;- function(data, varname, msg) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">289</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ans &lt;- FALSE</pre>
+                      <pre class="language-r">  if (length(varname) != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">290</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    has_vars &lt;- varname %in% names(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -25412,84 +24748,84 @@ <h2>teal coverage - 60.02%</h2>
                     <td class="num">292</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  elements_boook2 &lt;- setdiff(names(book2_input), names(book1_input))</pre>
+                      <pre class="language-r">    if (!all(has_vars)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">293</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(elements_boook2) != 0L) {</pre>
+                      <pre class="language-r">      if (missing(msg)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">294</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dt_states &lt;- grepl("_state$", elements_boook1)</pre>
+                      <pre class="language-r">        msg &lt;- sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">295</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (any(dt_states)) {</pre>
+                      <pre class="language-r">          "%s does not have the required variables: %s.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (el in elements_boook1[dt_states]) {</pre>
+                      <pre class="language-r">          deparse(substitute(data)),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">297</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.list(book2_input[[el]])) book2_input[[el]] &lt;- "--- data table state ---"</pre>
+                      <pre class="language-r">          toString(varname[!has_vars])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">300</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    excess2 &lt;- sprintf("$ %s:\t%s", elements_boook2, book2_input[elements_boook2])</pre>
+                      <pre class="language-r">      validate(need(FALSE, msg))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">301</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    message("elements only in book2: \n", paste(excess2, collapse = "\n"))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">302</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ans &lt;- FALSE</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -25499,2170 +24835,2268 @@ <h2>teal coverage - 60.02%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">305</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  book1_values &lt;- readRDS(file.path("shiny_bookmarks", book1, "values.rds"))</pre>
+                      <pre class="language-r">#' Validate that variables has expected number of levels</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">306</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  book2_values &lt;- readRDS(file.path("shiny_bookmarks", book2, "values.rds"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">308</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!isTRUE(all.equal(book1_values, book2_values))) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">309</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    message("different values detected")</pre>
+                      <pre class="language-r">#' If the number of levels of `x` is less than `min_levels`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">310</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    message("choices for numeric filters MAY be different, see RangeFilterState$set_choices")</pre>
+                      <pre class="language-r">#' or greater than `max_levels` the validation will fail.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">311</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ans &lt;- FALSE</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param x variable name. If `x` is not a factor, the unique values</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">314</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (ans) message("perfect!")</pre>
+                      <pre class="language-r">#'   are treated as levels.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">315</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r">#' @param min_levels cutoff for minimum number of levels of `x`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param max_levels cutoff for maximum number of levels of `x`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param var_name name of variable being validated for use in</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   validation message</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># Replacement for [base::rapply] which doesn't handle NULL values - skips the evaluation</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># of the function and returns NULL for given element.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">rapply2 &lt;- function(x, f) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">322</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(x, "list")) {</pre>
+                      <pre class="language-r">#' data &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">323</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(x, rapply2, f = f)</pre>
+                      <pre class="language-r">#'   one = rep("a", length.out = 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'   two = rep(c("a", "b"), length.out = 20),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">325</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    f(x)</pre>
+                      <pre class="language-r">#'   three = rep(c("a", "b", "c"), length.out = 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   four = rep(c("a", "b", "c", "d"), length.out = 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_teal.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal` main module</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">#'   selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'     "var",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Module to create a `teal` app. This module can be called directly instead of [init()] and</pre>
+                      <pre class="language-r">#'     "Select variable",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' included in your custom application. Please note that [init()] adds `reporter_previewer_module`</pre>
+                      <pre class="language-r">#'     choices = c("one", "two", "three", "four"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' automatically, which is not a case when calling `ui/srv_teal` directly.</pre>
+                      <pre class="language-r">#'     selected = "one"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Module is responsible for creating the main `shiny` app layout and initializing all the necessary</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' components. This module establishes reactive connection between the input `data` and every other</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' component in the app. Reactive change of the `data` passed as an argument, reloads the app and</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' possibly keeps all input settings the same so the user can continue where one left off.</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   output$summary &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## data flow in `teal` application</pre>
+                      <pre class="language-r">#'     validate_n_levels(data[[input$var]], min_levels = 2, max_levels = 15, var_name = input$var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     paste0(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module supports multiple data inputs but eventually, they are all converted to `reactive`</pre>
+                      <pre class="language-r">#'       "Levels of selected treatment variable: ",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' returning `teal_data` in this module. On this `reactive teal_data` object several actions are</pre>
+                      <pre class="language-r">#'       paste(levels(data[[input$var]]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' performed:</pre>
+                      <pre class="language-r">#'         collapse = ", "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - data loading in [`module_init_data`]</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - data filtering in [`module_filter_data`]</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - data transformation in [`module_transform_data`]</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Fallback on failure</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal` is designed in such way that app will never crash if the error is introduced in any</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' custom `shiny` module provided by app developer (e.g. [teal_data_module()], [teal_transform_module()]).</pre>
+                      <pre class="language-r">validate_n_levels &lt;- function(x, min_levels = 1, max_levels = 12, var_name) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">354</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If any module returns a failing object, the app will halt the evaluation and display a warning message.</pre>
+                      <pre class="language-r">  x_levels &lt;- if (is.factor(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">355</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' App user should always have a chance to fix the improper input and continue without restarting the session.</pre>
+                      <pre class="language-r">    levels(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">357</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal</pre>
+                      <pre class="language-r">    unique(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_teal</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">360</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams module_init_data</pre>
+                      <pre class="language-r">  if (!is.null(min_levels) &amp;&amp; !(is.null(max_levels))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">361</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams init</pre>
+                      <pre class="language-r">    validate(need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">362</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      length(x_levels) &gt;= min_levels &amp;&amp; length(x_levels) &lt;= max_levels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">363</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `NULL` invisibly</pre>
+                      <pre class="language-r">      sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">364</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">        "%s variable needs minimum %s level(s) and maximum %s level(s).",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">365</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        var_name, min_levels, max_levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">368</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_teal &lt;- function(id,</pre>
+                      <pre class="language-r">  } else if (!is.null(min_levels)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">369</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    modules,</pre>
+                      <pre class="language-r">    validate(need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">370</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    title = build_app_title(),</pre>
+                      <pre class="language-r">      length(x_levels) &gt;= min_levels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">371</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    header = tags$p(),</pre>
+                      <pre class="language-r">      sprintf("%s variable needs minimum %s levels(s)", var_name, min_levels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    footer = tags$p()) {</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">48</td>
+                    <td class="num">373</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  } else if (!is.null(max_levels)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">49</td>
+                    <td class="num">374</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">    validate(need(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">50</td>
+                    <td class="num">375</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "title",</pre>
+                      <pre class="language-r">      length(x_levels) &lt;= max_levels,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">51</td>
+                    <td class="num">376</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(title),</pre>
+                      <pre class="language-r">      sprintf("%s variable needs maximum %s level(s)", var_name, max_levels)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">52</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">377</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(title, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">54</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">379</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">55</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/init.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "header",</pre>
+                      <pre class="language-r"># This is the main function from teal to be used by the end-users. Although it delegates</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">56</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(header),</pre>
+                      <pre class="language-r"># directly to `module_teal_with_splash.R`, we keep it in a separate file because its documentation is quite large</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">57</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(header, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r"># and it is very end-user oriented. It may also perform more argument checking with more informative</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"># error messages.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">59</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">60</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "footer",</pre>
+                      <pre class="language-r">#' Create the server and UI function for the `shiny` app</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">61</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(footer),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">62</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(footer, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' End-users: This is the most important function for you to start a</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">65</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.character(title)) {</pre>
+                      <pre class="language-r">#' `teal` app that is composed of `teal` modules.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">66</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title &lt;- build_app_title(title)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @param data (`teal_data` or `teal_data_module`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">68</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate_app_title_tag(title)</pre>
+                      <pre class="language-r">#'   For constructing the data object, refer to [teal.data::teal_data()] and [teal_data_module()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   If `datanames` are not set for the `teal_data` object, defaults from the `teal_data` environment will be used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param modules (`list` or `teal_modules` or `teal_module`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_string(header)) {</pre>
+                      <pre class="language-r">#'   Nested list of `teal_modules` or `teal_module` objects or a single</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">72</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    header &lt;- tags$p(header)</pre>
+                      <pre class="language-r">#'   `teal_modules` or `teal_module` object. These are the specific output modules which</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   will be displayed in the `teal` application. See [modules()] and [module()] for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   more details.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">75</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_string(footer)) {</pre>
+                      <pre class="language-r">#' @param filter (`teal_slices`) Optionally,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">76</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    footer &lt;- tags$p(footer)</pre>
+                      <pre class="language-r">#'   specifies the initial filter using [teal_slices()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param title (`shiny.tag` or `character(1)`) Optionally,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   the browser window title. Defaults to a title "teal app" with the icon of NEST.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">79</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'   Can be created using the `build_app_title()` or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   by passing a valid `shiny.tag` which is a head tag with title and link tag.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # show busy icon when `shiny` session is busy computing stuff</pre>
+                      <pre class="language-r">#' @param header (`shiny.tag` or `character(1)`) Optionally,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # based on https://stackoverflow.com/questions/17325521/r-shiny-display-loading-message-while-function-is-running/22475216#22475216 # nolint: line_length.</pre>
+                      <pre class="language-r">#'   the header of the app.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">83</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny_busy_message_panel &lt;- conditionalPanel(</pre>
+                      <pre class="language-r">#' @param footer (`shiny.tag` or `character(1)`) Optionally,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">84</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    condition = "(($('html').hasClass('shiny-busy')) &amp;&amp; (document.getElementById('shiny-notification-panel') == null))", # nolint: line_length.</pre>
+                      <pre class="language-r">#'   the footer of the app.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">85</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(</pre>
+                      <pre class="language-r">#' @param id (`character`) Optionally,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">86</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      icon("arrows-rotate", class = "fa-spin", prefer_type = "solid"),</pre>
+                      <pre class="language-r">#'   a string specifying the `shiny` module id in cases it is used as a `shiny` module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">87</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Computing ...",</pre>
+                      <pre class="language-r">#'   rather than a standalone `shiny` app. This is a legacy feature.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # CSS defined in `custom.css`</pre>
+                      <pre class="language-r">#' @param landing_popup (`teal_module_landing`) Optionally,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">89</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "shinybusymessage"</pre>
+                      <pre class="language-r">#'   a `landing_popup_module` to show up as soon as the teal app is initialized.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @return Named list containing server and UI functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  fluidPage(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">94</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = id,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">95</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title = title,</pre>
+                      <pre class="language-r">#' @include modules.R</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">96</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    theme = get_teal_bs_theme(),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">97</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_teal_css_js(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">98</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$header(header),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">99</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$hr(class = "my-2"),</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">100</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shiny_busy_message_panel,</pre>
+                      <pre class="language-r">#'   data = within(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">101</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(</pre>
+                      <pre class="language-r">#'     teal_data(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">102</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = ns("tabpanel_wrapper"),</pre>
+                      <pre class="language-r">#'     {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">103</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "teal-body",</pre>
+                      <pre class="language-r">#'       new_iris &lt;- transform(iris, id = seq_len(nrow(iris)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">104</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_teal_module(id = ns("teal_modules"), modules = modules)</pre>
+                      <pre class="language-r">#'       new_mtcars &lt;- transform(mtcars, id = seq_len(nrow(mtcars)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'     }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">106</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">107</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = ns("options_buttons"),</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      style = "position: absolute; right: 10px;",</pre>
+                      <pre class="language-r">#'     module(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">109</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_bookmark_panel(ns("bookmark_manager"), modules),</pre>
+                      <pre class="language-r">#'       label = "data source",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">110</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$button(</pre>
+                      <pre class="language-r">#'       server = function(input, output, session, data) {},</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">111</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "btn action-button filter_hamburger", # see sidebar.css for style filter_hamburger</pre>
+                      <pre class="language-r">#'       ui = function(id, ...) tags$div(p("information about data source")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">112</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        href = "javascript:void(0)",</pre>
+                      <pre class="language-r">#'       datanames = "all"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">113</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        onclick = sprintf("toggleFilterPanel('%s');", ns("tabpanel_wrapper")),</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">114</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        title = "Toggle filter panel",</pre>
+                      <pre class="language-r">#'     example_module(label = "example teal module"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">115</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        icon("fas fa-bars")</pre>
+                      <pre class="language-r">#'     module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#'       "Iris Sepal.Length histogram",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">117</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_snapshot_manager_panel(ns("snapshot_manager_panel")),</pre>
+                      <pre class="language-r">#'       server = function(input, output, session, data) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">118</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_filter_manager_panel(ns("filter_manager_panel"))</pre>
+                      <pre class="language-r">#'         output$hist &lt;- renderPlot(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'           hist(data()[["new_iris"]]$Sepal.Length)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">120</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$script(</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">121</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      HTML(</pre>
+                      <pre class="language-r">#'       },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">122</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">#'       ui = function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "</pre>
+                      <pre class="language-r">#'         ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">124</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            $(document).ready(function() {</pre>
+                      <pre class="language-r">#'         plotOutput(ns("hist"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">125</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              $('#%s').appendTo('#%s');</pre>
+                      <pre class="language-r">#'       },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            });</pre>
+                      <pre class="language-r">#'       datanames = "new_iris"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ",</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">128</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("options_buttons"),</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">129</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("teal_modules-active_tab")</pre>
+                      <pre class="language-r">#'   filter = teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "new_iris", varname = "Species"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "new_iris", varname = "Sepal.Length"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "new_mtcars", varname = "cyl"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">133</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$hr(),</pre>
+                      <pre class="language-r">#'     exclude_varnames = list(new_iris = c("Sepal.Width", "Petal.Width")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">134</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$footer(</pre>
+                      <pre class="language-r">#'     module_specific = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">135</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">#'     mapping = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">136</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        footer,</pre>
+                      <pre class="language-r">#'       `example teal module` = "new_iris Species",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">137</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::verbatim_popup_ui(ns("sessionInfo"), "Session Info", type = "link"),</pre>
+                      <pre class="language-r">#'       `Iris Sepal.Length histogram` = "new_iris Species",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">138</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        br(),</pre>
+                      <pre class="language-r">#'       global_filters = "new_mtcars cyl"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">139</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ui_teal_lockfile(ns("lockfile")),</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">140</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        textOutput(ns("identifier"))</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   title = "App title",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   header = tags$h1("Sample App"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   footer = tags$p("Sample footer")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_teal &lt;- function(id, data, modules, filter = teal_slices()) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">init &lt;- function(data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module", "reactive"))</pre>
+                      <pre class="language-r">                 modules,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
+                      <pre class="language-r">                 filter = teal_slices(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
+                      <pre class="language-r">                 title = build_app_title(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                 header = tags$p(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">                 footer = tags$p(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_debug("srv_teal initializing.")</pre>
+                      <pre class="language-r">                 id = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                 landing_popup = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (getOption("teal.show_js_log", default = FALSE)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">158</td>
-                    <td class="coverage">!</td>
+                    <td class="num">102</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::showLog()</pre>
+                      <pre class="language-r">  logger::log_debug("init initializing teal app with: data ('{ class(data) }').")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    srv_teal_lockfile("lockfile")</pre>
+                      <pre class="language-r">  # argument checking (independent)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ## `data`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$identifier &lt;- renderText(</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0("Pid:", Sys.getpid(), " Token:", substr(session$token, 25, 32))</pre>
+                      <pre class="language-r">  checkmate::assert_class(landing_popup, "teal_module_landing", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ## `modules`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "sessionInfo",</pre>
+                      <pre class="language-r">    .var.name = "modules",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = utils::capture.output(utils::sessionInfo()),</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(modules, c("teal_modules", "teal_module")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      title = "SessionInfo"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                    <td class="num">113</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    checkmate::check_list(modules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # `JavaScript` code</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_module")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    run_js_files(files = "init.js")</pre>
+                      <pre class="language-r">    modules &lt;- list(modules)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # set timezone in shiny app</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # timezone is set in the early beginning so it will be available also</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # for `DDL` and all shiny modules</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    get_client_timezone(session$ns)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      eventExpr = input$timezone,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      once = TRUE,</pre>
+                      <pre class="language-r">  if (checkmate::test_list(modules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      handlerExpr = {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">184</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        session$userData$timezone &lt;- input$timezone</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">185</td>
-                    <td class="coverage">!</td>
+                    <td class="num">119</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_teal@1 Timezone set to client's timezone: { input$timezone }.")</pre>
+                      <pre class="language-r">    modules &lt;- do.call(teal::modules, modules)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ## `filter`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_handled &lt;- srv_init_data("data", data = data)</pre>
+                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    validate_ui &lt;- tags$div(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = session$ns("validate_messages"),</pre>
+                      <pre class="language-r">  ## all other arguments</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "teal_validated",</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_check_class_teal_data(session$ns("class_teal_data")),</pre>
+                      <pre class="language-r">    .var.name = "title",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_validate_error(session$ns("silent_error")),</pre>
+                      <pre class="language-r">    checkmate::check_string(title),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui_check_module_datanames(session$ns("datanames_warning"))</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(title, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">131</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_check_class_teal_data("class_teal_data", data_handled)</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_validate_error("silent_error", data_handled, validate_shiny_silent_error = FALSE)</pre>
+                      <pre class="language-r">    .var.name = "header",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    srv_check_module_datanames("datanames_warning", data_handled, modules)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                    <td class="num">133</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    checkmate::check_string(header),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">134</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_validated &lt;- .trigger_on_success(data_handled)</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(header, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">87<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    data_signatured &lt;- reactive({</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="num">136</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      req(inherits(data_validated(), "teal_data"))</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">75<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_filter_ok &lt;- check_filter_datanames(filter, names(data_validated()))</pre>
+                      <pre class="language-r">    .var.name = "footer",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">75<em>x</em></td>
+                    <td class="num">138</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!isTRUE(is_filter_ok)) {</pre>
+                      <pre class="language-r">    checkmate::check_string(footer),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        showNotification(</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(footer, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Some filters were not applied because of incompatibility with data. Contact app developer.",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">141</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = "warning",</pre>
+                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">142</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          duration = 10</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  # log</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warning(is_filter_ok)</pre>
+                      <pre class="language-r">  teal.logger::log_system_info()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      .add_signature_to_data(data_validated())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  # argument transformations</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ## `modules` - landing module</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">148</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_load_status &lt;- reactive({</pre>
+                      <pre class="language-r">  landing &lt;- extract_module(modules, "teal_module_landing")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">80<em>x</em></td>
+                    <td class="num">149</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (inherits(data_handled(), "teal_data")) {</pre>
+                      <pre class="language-r">  if (length(landing) == 1L) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">150</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "ok"</pre>
+                      <pre class="language-r">    landing_popup &lt;- landing[[1L]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">151</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (inherits(data, "teal_data_module")) {</pre>
+                      <pre class="language-r">    modules &lt;- drop_module(modules, "teal_module_landing")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">152</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "teal_data_module failed"</pre>
+                      <pre class="language-r">    lifecycle::deprecate_soft(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">223</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">153</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      when = "0.15.3",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "external failed"</pre>
+                      <pre class="language-r">      what = "landing_popup_module()",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">225</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">155</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      details = paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">226</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">156</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">        "Pass `landing_popup_module` to the `landing_popup` argument of the `init` ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">227</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">157</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        "instead of wrapping it into `modules()` and passing to the `modules` argument"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datasets_rv &lt;- if (!isTRUE(attr(filter, "module_specific"))) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">76<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      eventReactive(data_signatured(), {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">160</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req(inherits(data_signatured(), "teal_data"))</pre>
+                      <pre class="language-r">  } else if (length(landing) &gt; 1L) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">161</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_teal@1 initializing FilteredData")</pre>
+                      <pre class="language-r">    stop("Only one `landing_popup_module` can be used.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal_data_to_filtered_data(data_signatured())</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  ## `filter` - set app_id attribute unless present (when restoring bookmark)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">235</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (is.null(attr(filter, "app_id", exact = TRUE))) attr(filter, "app_id") &lt;- create_app_id(data, modules)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ## `filter` - convert teal.slice::teal_slices to teal::teal_slices</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (inherits(data, "teal_data_module")) {</pre>
+                      <pre class="language-r">  filter &lt;- as.teal_slices(as.list(filter))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      setBookmarkExclude(c("teal_modules-active_tab"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shiny::insertTab(</pre>
+                      <pre class="language-r">  # argument checking (interdependent)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">171</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        inputId = "teal_modules-active_tab",</pre>
+                      <pre class="language-r">  ## `filter` - `modules`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">172</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        position = "before",</pre>
+                      <pre class="language-r">  if (isTRUE(attr(filter, "module_specific"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">173</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        select = TRUE,</pre>
+                      <pre class="language-r">    module_names &lt;- unlist(c(module_labels(modules), "global_filters"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">174</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tabPanel(</pre>
+                      <pre class="language-r">    failed_mod_names &lt;- setdiff(names(attr(filter, "mapping")), module_names)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">175</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = icon("fas fa-database"),</pre>
+                      <pre class="language-r">    if (length(failed_mod_names)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">176</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          value = "teal_data_module",</pre>
+                      <pre class="language-r">      stop(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">177</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">178</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ui_init_data(session$ns("data")),</pre>
+                      <pre class="language-r">          "Some module names in the mapping arguments don't match module labels.\n %s not in %s",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">179</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            validate_ui</pre>
+                      <pre class="language-r">          toString(failed_mod_names),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">180</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          toString(unique(module_names))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (attr(data, "once")) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">185</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        observeEvent(data_signatured(), once = TRUE, {</pre>
+                      <pre class="language-r">    if (anyDuplicated(module_names)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_debug("srv_teal@2 removing data tab.")</pre>
+                      <pre class="language-r">      # In teal we are able to set nested modules with duplicated label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # when once = TRUE we pull data once and then remove data tab</pre>
+                      <pre class="language-r">      # Because mapping argument bases on the relationship between module-label and filter-id,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          removeTab("teal_modules-active_tab", target = "teal_data_module")</pre>
+                      <pre class="language-r">      # it is possible that module-label in mapping might refer to multiple teal_module (identified by the same label)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">189</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stop(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">190</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "Module labels should be unique when teal_slices(mapping = TRUE). Duplicated labels:\n%s ",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">192</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          toString(module_names[duplicated(module_names)])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # when no teal_data_module then we want to display messages above tabsetPanel (because there is no data-tab)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      insertUI(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selector = sprintf("#%s", session$ns("tabpanel_wrapper")),</pre>
+                      <pre class="language-r">  ## `data` - `modules`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        where = "beforeBegin",</pre>
+                      <pre class="language-r">  if (inherits(data, "teal_data")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ui = tags$div(validate_ui, tags$br())</pre>
+                      <pre class="language-r">    if (length(data) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">267</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      stop("The environment of `data` is empty.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_labels &lt;- unlist(module_labels(modules), use.names = FALSE)</pre>
+                      <pre class="language-r">    is_modules_ok &lt;- check_modules_datanames(modules, names(data))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_global &lt;- methods::new(".slicesGlobal", filter, module_labels)</pre>
+                      <pre class="language-r">    if (!isTRUE(is_modules_ok) &amp;&amp; length(unlist(extract_transformators(modules))) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules_output &lt;- srv_teal_module(</pre>
+                      <pre class="language-r">      warning(is_modules_ok, call. = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "teal_modules",</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">209</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = data_signatured,</pre>
+                      <pre class="language-r">    is_filter_ok &lt;- check_filter_datanames(filter, names(data))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = datasets_rv,</pre>
+                      <pre class="language-r">    if (!isTRUE(is_filter_ok)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      modules = modules,</pre>
+                      <pre class="language-r">      warning(is_filter_ok)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # we allow app to continue if applied filters are outside</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # of possible data range</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_global = slices_global,</pre>
+                      <pre class="language-r">  reporter &lt;- teal.reporter::Reporter$new()$set_id(attr(filter, "app_id"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_load_status = data_load_status</pre>
+                      <pre class="language-r">  if (is_arg_used(modules, "reporter") &amp;&amp; length(extract_module(modules, "teal_module_previewer")) == 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">219</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    modules &lt;- append_module(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">220</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      modules,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">221</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      reporter_previewer_module(server_args = list(previewer_buttons = c("download", "reset")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">224</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mapping_table &lt;- srv_filter_manager_panel("filter_manager_panel", slices_global = slices_global)</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Note: UI must be a function to support bookmarking.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    snapshots &lt;- srv_snapshot_manager_panel("snapshot_manager_panel", slices_global = slices_global)</pre>
+                      <pre class="language-r">  res &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_bookmark_panel("bookmark_manager", modules)</pre>
+                      <pre class="language-r">    ui = function(request) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">229</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ui_teal(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">230</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        id = ns("teal"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">231</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        modules = modules,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">232</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        title = title,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">233</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        header = header,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">234</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        footer = footer</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">236</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    },</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    server = function(input, output, session) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">238</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      if (!is.null(landing_popup)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        do.call(landing_popup$server, c(list(id = "landing_module_shiny_id"), landing_popup$server_args))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">240</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">241</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      srv_teal(id = ns("teal"), data = data, modules = modules, filter = deep_copy_filter(filter))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">242</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="num">245</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r">  logger::log_debug("init teal app has been initialized.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  res</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -27671,448 +27105,448 @@ <h2>teal coverage - 60.02%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/TealAppDriver.R" class="hidden">
+            <div id="R/module_filter_manager.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># FilteredData ------</pre>
+                      <pre class="language-r">#' Manage multiple `FilteredData` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Drive a `teal` application</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Oversee filter states across the entire application.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Extension of the `shinytest2::AppDriver` class with methods for</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' driving a teal application for performing interactions for `shinytest2` tests.</pre>
+                      <pre class="language-r">#' @section Slices global:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' The key role in maintaining the module-specific filter states is played by the `.slicesGlobal`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' object. It is a reference class that holds the following fields:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' - `all_slices` (`reactiveVal`) - reactive value containing all filters registered in an app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">TealAppDriver &lt;- R6::R6Class( # nolint: object_name.</pre>
+                      <pre class="language-r">#' - `module_slices_api` (`reactiveValues`) - reactive field containing references to each modules'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "TealAppDriver",</pre>
+                      <pre class="language-r">#' `FilteredData` object methods. At this moment it is used only in `srv_filter_manager` to display</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = {</pre>
+                      <pre class="language-r">#' the filter states in a table combining informations from `all_slices` and from</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!requireNamespace("shinytest2", quietly = TRUE)) {</pre>
+                      <pre class="language-r">#' `FilteredData$get_available_teal_slices()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("Please install 'shinytest2' package to use this class.")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' During a session only new filters are added to `all_slices` unless [`module_snapshot_manager`] is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!requireNamespace("rvest", quietly = TRUE)) {</pre>
+                      <pre class="language-r">#' used to restore previous state. Filters from `all_slices` can be activated or deactivated in a</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("Please install 'rvest' package to use this class.")</pre>
+                      <pre class="language-r">#' module which is linked (both ways) by `attr(, "mapping")` so that:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' - If module's filter is added or removed in its `FilteredData` object, this information is passed</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinytest2::AppDriver</pre>
+                      <pre class="language-r">#'   to `SlicesGlobal` which updates `attr(, "mapping")` accordingly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  },</pre>
+                      <pre class="language-r">#' - When mapping changes in a `SlicesGlobal`, filters are set or removed from module's</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">#'  `FilteredData`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' @section Filter manager:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize a `TealAppDriver` object for testing a `teal` application.</pre>
+                      <pre class="language-r">#' Filter-manager is split into two parts:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' 1. `ui/srv_filter_manager_panel` - Called once for the whole app. This module observes changes in</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data,modules,filter,title,header,footer,landing_popup arguments passed to `init`</pre>
+                      <pre class="language-r">#' the filters in `slices_global` and displays them in a table utilizing information from `mapping`:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param timeout (`numeric`) Default number of milliseconds for any timeout or</pre>
+                      <pre class="language-r">#'   - (`TRUE`) - filter is active in the module</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' timeout_ parameter in the `TealAppDriver` class.</pre>
+                      <pre class="language-r">#'   - (`FALSE`) - filter is inactive in the module</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Defaults to 20s.</pre>
+                      <pre class="language-r">#'   - (`NA`) - filter is not available in the module</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' 2. `ui/srv_module_filter_manager` - Called once for each `teal_module`. Handling filter states</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' See [`shinytest2::AppDriver`] `new` method for more details on how to change it</pre>
+                      <pre class="language-r">#' for of single module and keeping module `FilteredData` consistent with `slices_global`, so that</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' via options or environment variables.</pre>
+                      <pre class="language-r">#' local filters are always reflected in the `slices_global` and its mapping and vice versa.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param load_timeout (`numeric`) How long to wait for the app to load, in ms.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This includes the time to start R. Defaults to 100s.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' See [`shinytest2::AppDriver`] `new` method for more details on how to change it</pre>
+                      <pre class="language-r">#'  `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' via options or environment variables</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$new`</pre>
+                      <pre class="language-r">#' @param slices_global (`reactiveVal`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'  containing `teal_slices`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return  Object of class `TealAppDriver`</pre>
+                      <pre class="language-r">#' @param module_fd (`FilteredData`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(data,</pre>
+                      <pre class="language-r">#'   Object containing the data to be filtered in a single `teal` module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          modules,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          filter = teal_slices(),</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          title = build_app_title(),</pre>
+                      <pre class="language-r">#' Module returns a `slices_global` (`reactiveVal`) containing a `teal_slices` object with mapping.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          header = tags$p(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          footer = tags$p(),</pre>
+                      <pre class="language-r">#' @encoding UTF-8</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          landing_popup = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          timeout = rlang::missing_arg(),</pre>
+                      <pre class="language-r">#' @name module_filter_manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          load_timeout = rlang::missing_arg(),</pre>
+                      <pre class="language-r">#' @rdname module_filter_manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          ...) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">52</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$data &lt;- data</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">53</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$modules &lt;- modules</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$filter &lt;- filter</pre>
+                      <pre class="language-r">#' @rdname module_filter_manager</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">55</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      app &lt;- init(</pre>
+                      <pre class="language-r">ui_filter_manager_panel &lt;- function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">56</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = data,</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">57</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modules = modules,</pre>
+                      <pre class="language-r">  tags$button(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">58</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        filter = filter,</pre>
+                      <pre class="language-r">    id = ns("show_filter_manager"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">59</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        title = title,</pre>
+                      <pre class="language-r">    class = "btn action-button wunder_bar_button",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">60</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        header = header,</pre>
+                      <pre class="language-r">    title = "View filter mapping",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">61</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        footer = footer,</pre>
+                      <pre class="language-r">    suppressMessages(icon("fas fa-grip"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">62</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        landing_popup = landing_popup,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -28126,13824 +27560,13972 @@ <h2>teal coverage - 60.02%</h2>
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Default timeout is hardcoded to 4s in shinytest2:::resolve_timeout</pre>
+                      <pre class="language-r">#' @rdname module_filter_manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # It must be set as parameter to the AppDriver</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      suppressWarnings(</pre>
+                      <pre class="language-r">srv_filter_manager_panel &lt;- function(id, slices_global) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        super$initialize(</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          app_dir = shinyApp(app$ui, app$server),</pre>
+                      <pre class="language-r">  checkmate::assert_class(slices_global, ".slicesGlobal")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          name = "teal",</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          variant = shinytest2::platform_variant(),</pre>
+                      <pre class="language-r">    setBookmarkExclude(c("show_filter_manager"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          timeout = rlang::maybe_missing(timeout, 20 * 1000),</pre>
+                      <pre class="language-r">    observeEvent(input$show_filter_manager, {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">73</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          load_timeout = rlang::maybe_missing(load_timeout, 100 * 1000),</pre>
+                      <pre class="language-r">      logger::log_debug("srv_filter_manager_panel@1 show_filter_manager button has been clicked.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ...</pre>
+                      <pre class="language-r">      showModal(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        modalDialog(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          ui_filter_manager(session$ns("filter_manager")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          class = "filter_manager_modal",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Check for minimum version of Chrome that supports the tests</pre>
+                      <pre class="language-r">          size = "l",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">79</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      #  - Element.checkVisibility was added on 105</pre>
+                      <pre class="language-r">          footer = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">80</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      chrome_version &lt;- numeric_version(</pre>
+                      <pre class="language-r">          easyClose = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">81</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gsub(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">82</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "[[:alnum:]_]+/", # Prefix that ends with forward slash</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$get_chromote_session()$Browser$getVersion()$product</pre>
+                      <pre class="language-r">    srv_filter_manager("filter_manager", slices_global = slices_global)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        strict = FALSE</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname module_filter_manager</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">89</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      required_version &lt;- "121"</pre>
+                      <pre class="language-r">ui_filter_manager &lt;- function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">90</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">91</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      testthat::skip_if(</pre>
+                      <pre class="language-r">  actionButton(ns("filter_manager"), NULL, icon = icon("fas fa-filter"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">92</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is.na(chrome_version),</pre>
+                      <pre class="language-r">  tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">93</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Problem getting Chrome version, please contact the developers."</pre>
+                      <pre class="language-r">    class = "filter_manager_content",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">94</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    tableOutput(ns("slices_table"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">95</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      testthat::skip_if(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">96</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        chrome_version &lt; required_version,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">97</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Chrome version '%s' is not supported, please upgrade to '%s' or higher",</pre>
+                      <pre class="language-r">#' @rdname module_filter_manager</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">99</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          chrome_version,</pre>
+                      <pre class="language-r">srv_filter_manager &lt;- function(id, slices_global) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">100</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          required_version</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  checkmate::assert_class(slices_global, ".slicesGlobal")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # end od check</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    logger::log_debug("filter_manager_srv initializing.")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">105</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$set_active_ns()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$wait_for_idle()</pre>
+                      <pre class="language-r">    # Bookmark slices global with mapping.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    session$onBookmark(function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">108</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      logger::log_debug("filter_manager_srv@onBookmark: storing filter state")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">109</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Append parent [`shinytest2::AppDriver`] `click` method with a call to `waif_for_idle()` method.</pre>
+                      <pre class="language-r">      state$values$filter_state_on_bookmark &lt;- as.list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">110</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... arguments passed to parent [`shinytest2::AppDriver`] `click()` method.</pre>
+                      <pre class="language-r">        slices_global$all_slices(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">111</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    click = function(...) {</pre>
+                      <pre class="language-r">        recursive = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">112</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      super$click(...)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">113</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$wait_for_page_stability()</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">115</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    bookmarked_slices &lt;- restoreValue(session$ns("filter_state_on_bookmark"), NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Check if the app has shiny errors. This checks for global shiny errors.</pre>
+                      <pre class="language-r">    if (!is.null(bookmarked_slices)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">117</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Note that any shiny errors dependent on shiny server render will only be captured after the teal module tab</pre>
+                      <pre class="language-r">      logger::log_debug("filter_manager_srv: restoring filter state from bookmark.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">118</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' is visited because shiny will not trigger server computations when the tab is invisible.</pre>
+                      <pre class="language-r">      slices_global$slices_set(bookmarked_slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' So, navigate to the module tab you want to test before calling this function.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Although, this catches errors hidden in the other module tabs if they are already rendered.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expect_no_shiny_error = function() {</pre>
+                      <pre class="language-r">    mapping_table &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      testthat::expect_null(</pre>
+                      <pre class="language-r">      # We want this to be reactive on slices_global$all_slices() only as get_available_teal_slices()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$get_html(".shiny-output-error:not(.shiny-output-error-validation)"),</pre>
+                      <pre class="language-r">      #   is dependent on slices_global$all_slices().</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        info = "Shiny error is observed"</pre>
+                      <pre class="language-r">      module_labels &lt;- setdiff(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        names(attr(slices_global$all_slices(), "mapping")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        "Report previewer"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Check if the app has no validation errors. This checks for global shiny validation errors.</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expect_no_validation_error = function() {</pre>
+                      <pre class="language-r">        mm &lt;- as.data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      testthat::expect_null(</pre>
+                      <pre class="language-r">          sapply(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$get_html(".shiny-output-error-validation"),</pre>
+                      <pre class="language-r">            module_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        info = "No validation error is observed"</pre>
+                      <pre class="language-r">            simplify = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">            function(module_label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">109<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">              available_slices &lt;- slices_global$module_slices_api[[module_label]]$get_available_teal_slices()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">              global_ids &lt;- sapply(slices_global$all_slices(), `[[`, "id", simplify = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Check if the app has validation errors. This checks for global shiny validation errors.</pre>
+                      <pre class="language-r">              module_ids &lt;- sapply(slices_global$slices_get(module_label), `[[`, "id", simplify = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expect_validation_error = function() {</pre>
+                      <pre class="language-r">              allowed_ids &lt;- vapply(available_slices, `[[`, character(1L), "id")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      testthat::expect_false(</pre>
+                      <pre class="language-r">              active_ids &lt;- global_ids %in% module_ids</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is.null(self$get_html(".shiny-output-error-validation")),</pre>
+                      <pre class="language-r">              setNames(nm = global_ids, ifelse(global_ids %in% allowed_ids, active_ids, NA))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">140</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        info = "Validation error is not observed"</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">          check.names = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Set the input in the `teal` app.</pre>
+                      <pre class="language-r">        colnames(mm)[colnames(mm) == "global_filters"] &lt;- "Global filters"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param input_id (character) The shiny input id with it's complete name space.</pre>
+                      <pre class="language-r">        mm</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param value The value to set the input to.</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$set_inputs`</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r">    output$slices_table &lt;- renderTable(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">151</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_input = function(input_id, value, ...) {</pre>
+                      <pre class="language-r">      expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">152</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(</pre>
+                      <pre class="language-r">        logger::log_debug("filter_manager_srv@1 rendering slices_table.")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$set_inputs,</pre>
+                      <pre class="language-r">        mm &lt;- mapping_table()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">154</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(setNames(list(value), input_id), list(...))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        # Display logical values as UTF characters.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">156</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">        mm[] &lt;- lapply(mm, ifelse, yes = intToUtf8(9989), no = intToUtf8(10060))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">157</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        mm[] &lt;- lapply(mm, function(x) ifelse(is.na(x), intToUtf8(128306), x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Navigate the teal tabs in the `teal` app.</pre>
+                      <pre class="language-r">        # Display placeholder if no filters defined.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">160</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        if (nrow(mm) == 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">161</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param tabs (character) Labels of tabs to navigate to. The order of the tabs is important,</pre>
+                      <pre class="language-r">          mm &lt;- data.frame(`Filter manager` = "No filters specified.", check.names = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">162</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' and it should start with the most parent level tab.</pre>
+                      <pre class="language-r">          rownames(mm) &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Note: In case the teal tab group has duplicate names, the first tab will be selected,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">164</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If you wish to select the second tab with the same name, use the suffix "_1".</pre>
+                      <pre class="language-r">        mm</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If you wish to select the third tab with the same name, use the suffix "_2" and so on.</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">166</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      rownames = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    navigate_teal_tab = function(tabs) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">169</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_character(tabs, min.len = 1)</pre>
+                      <pre class="language-r">    mapping_table # for testing purpose</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">170</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (tab in tabs) {</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">171</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$set_input(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">172</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "teal-teal_modules-active_tab",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">173</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          get_unique_labels(tab),</pre>
+                      <pre class="language-r">#' @rdname module_filter_manager</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">174</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          wait_ = FALSE</pre>
+                      <pre class="language-r">srv_module_filter_manager &lt;- function(id, module_fd, slices_global) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">175</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  assert_reactive(module_fd)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">177</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$wait_for_idle()</pre>
+                      <pre class="language-r">  checkmate::assert_class(slices_global, ".slicesGlobal")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">178</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$set_active_ns()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">179</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">180</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    logger::log_debug("srv_module_filter_manager initializing for module: { id }.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    # Track filter global and local states.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">182</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active shiny name space for different components of the teal app.</pre>
+                      <pre class="language-r">    slices_global_module &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">183</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      slices_global$slices_get(module_label = id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return (`list`) The list of active shiny name space of the teal components.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">185</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_ns = function() {</pre>
+                      <pre class="language-r">    slices_module &lt;- reactive(req(module_fd())$get_filter_state())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">186</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(private$ns$module, character(0))) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">187</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_active_ns()</pre>
+                      <pre class="language-r">    module_fd_previous &lt;- reactiveVal(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">189</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$ns</pre>
+                      <pre class="language-r">    # Set (reactively) available filters for the module.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">190</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    obs1 &lt;- observeEvent(module_fd(), priority = 1, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">191</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      logger::log_debug("srv_module_filter_manager@1 setting initial slices for module: { id }.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active shiny name space for interacting with the module content.</pre>
+                      <pre class="language-r">      # Filters relevant for the module in module-specific app.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">193</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      slices &lt;- slices_global_module()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_module_ns = function() {</pre>
+                      <pre class="language-r">      # Clean up previous filter states and refresh cache of previous module_fd with current</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">196</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(private$ns$module, character(0))) {</pre>
+                      <pre class="language-r">      if (!is.null(module_fd_previous())) module_fd_previous()$finalize()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">197</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_active_ns()</pre>
+                      <pre class="language-r">      module_fd_previous(module_fd())</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">199</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$ns$module</pre>
+                      <pre class="language-r">      # Setting filter states from slices_global:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      # 1. when app initializes slices_global set to initial filters (specified by app developer)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      # 2. when data reinitializes slices_global reflects latest filter states</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active shiny name space bound with a custom `element` name.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">203</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      module_fd()$set_filter_state(slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param element `character(1)` custom element name.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      # irrelevant filters are discarded in FilteredData$set_available_teal_slices</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component bound with the input `element`.</pre>
+                      <pre class="language-r">      # it means we don't need to subset slices_global$all_slices() from filters refering to irrelevant datasets</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">207</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_module_element = function(element) {</pre>
+                      <pre class="language-r">      module_fd()$set_available_teal_slices(slices_global$all_slices)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">208</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(element)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">209</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("#%s-%s", self$active_module_ns(), element)</pre>
+                      <pre class="language-r">      # this needed in filter_manager_srv</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">210</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      slices_global$module_slices_api_set(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">211</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">212</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the text of the active shiny name space bound with a custom `element` name.</pre>
+                      <pre class="language-r">        list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">213</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          get_available_teal_slices = module_fd()$get_available_teal_slices(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">214</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param element `character(1)` the text of the custom element name.</pre>
+                      <pre class="language-r">          set_filter_state = module_fd()$set_filter_state, # for testing purpose</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">215</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          get_filter_state = module_fd()$get_filter_state # for testing purpose</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return (`string`) The text of the active shiny name space of the component bound with the input `element`.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_module_element_text = function(element) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">218</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(element)</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">219</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$get_text(self$active_module_element(element))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    # Update global state and mapping matrix when module filters change.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">221</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    obs2 &lt;- observeEvent(slices_module(), priority = 0, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">222</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active shiny name space for interacting with the filter panel.</pre>
+                      <pre class="language-r">      this_slices &lt;- slices_module()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">223</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      slices_global$slices_append(this_slices) # append new slices to the all_slices list</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">224</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component.</pre>
+                      <pre class="language-r">      mapping_elem &lt;- setNames(nm = id, list(vapply(this_slices, `[[`, character(1L), "id")))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">225</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_filters_ns = function() {</pre>
+                      <pre class="language-r">      slices_global$slices_active(mapping_elem)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">226</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(private$ns$filter_panel, character(0))) {</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">227</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_active_ns()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">228</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    obs3 &lt;- observeEvent(slices_global_module(), {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">229</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$ns$filter_panel</pre>
+                      <pre class="language-r">      global_vs_module &lt;- setdiff_teal_slices(slices_global_module(), slices_module())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">230</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      module_vs_global &lt;- setdiff_teal_slices(slices_module(), slices_global_module())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">231</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">126<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      if (length(global_vs_module) || length(module_vs_global)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active shiny name space for interacting with the data-summary panel.</pre>
+                      <pre class="language-r">        # Comment: (Nota Bene) Normally new filters for a module are added through module-filter-panel, and slices</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        # global are updated automatically so slices_module -&gt; slices_global_module are equal.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the data-summary component.</pre>
+                      <pre class="language-r">        # this if is valid only when a change is made on the global level so the change needs to be propagated down</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_data_summary_ns = function() {</pre>
+                      <pre class="language-r">        # to the module (for example through snapshot manager). If it happens both slices are different</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">236</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(private$ns$data_summary, character(0))) {</pre>
+                      <pre class="language-r">        logger::log_debug("srv_module_filter_manager@3 (N.B.) global state has changed for a module:{ id }.")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">237</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_active_ns()</pre>
+                      <pre class="language-r">        module_fd()$clear_filter_states()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">238</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        module_fd()$set_filter_state(slices_global_module())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">239</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$ns$data_summary</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">242</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active shiny name space bound with a custom `element` name.</pre>
+                      <pre class="language-r">    slices_module # returned for testing purpose</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param element `character(1)` custom element name.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component bound with the input `element`.</pre>
+                      <pre class="language-r">#' @importFrom shiny reactiveVal reactiveValues</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_data_summary_element = function(element) {</pre>
+                      <pre class="language-r">methods::setOldClass("reactiveVal")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">248</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(element)</pre>
+                      <pre class="language-r">methods::setOldClass("reactivevalues")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">249</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("#%s-%s", self$active_data_summary_ns(), element)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' @importFrom methods new</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' @rdname module_filter_manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the input from the module in the `teal` app.</pre>
+                      <pre class="language-r">.slicesGlobal &lt;- methods::setRefClass(".slicesGlobal", # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This function will only access inputs from the name space of the current active teal module.</pre>
+                      <pre class="language-r">  fields = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    all_slices = "reactiveVal",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param input_id (character) The shiny input id to get the value from.</pre>
+                      <pre class="language-r">    module_slices_api = "reactivevalues"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The value of the shiny input.</pre>
+                      <pre class="language-r">  methods = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_module_input = function(input_id) {</pre>
+                      <pre class="language-r">    initialize = function(slices = teal_slices(), module_labels) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">259</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(input_id)</pre>
+                      <pre class="language-r">      shiny::isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">260</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$get_value(input = sprintf("%s-%s", self$active_module_ns(), input_id))</pre>
+                      <pre class="language-r">        checkmate::assert_class(slices, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        # needed on init to not mix "global_filters" with module-specific-slots</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">262</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        if (isTRUE(attr(slices, "module_specific"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">263</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the output from the module in the `teal` app.</pre>
+                      <pre class="language-r">          old_mapping &lt;- attr(slices, "mapping")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">264</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This function will only access outputs from the name space of the current active teal module.</pre>
+                      <pre class="language-r">          new_mapping &lt;- sapply(module_labels, simplify = FALSE, function(module_label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">265</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            unique(unlist(old_mapping[c(module_label, "global_filters")]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param output_id (character) The shiny output id to get the value from.</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">267</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          attr(slices, "mapping") &lt;- new_mapping</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The value of the shiny output.</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">269</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_module_output = function(output_id) {</pre>
+                      <pre class="language-r">        .self$all_slices &lt;&lt;- shiny::reactiveVal(slices)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">270</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(output_id)</pre>
+                      <pre class="language-r">        .self$module_slices_api &lt;&lt;- shiny::reactiveValues()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">271</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$get_value(output = sprintf("%s-%s", self$active_module_ns(), output_id))</pre>
+                      <pre class="language-r">        .self$slices_append(slices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">272</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        .self$slices_active(attr(slices, "mapping"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">273</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        invisible(.self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the output from the module's `teal.widgets::table_with_settings` or `DT::DTOutput` in the `teal` app.</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This function will only access outputs from the name space of the current active teal module.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    is_module_specific = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">277</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param table_id (`character(1)`) The id of the table in the active teal module's name space.</pre>
+                      <pre class="language-r">      isTRUE(attr(.self$all_slices(), "module_specific"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param which (integer) If there is more than one table, which should be extracted.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' By default it will look for  a table that is built using `teal.widgets::table_with_settings`.</pre>
+                      <pre class="language-r">    module_slices_api_set = function(module_label, functions_list) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">280</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      shiny::isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">281</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The data.frame with table contents.</pre>
+                      <pre class="language-r">        if (!.self$is_module_specific()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">282</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_module_table_output = function(table_id, which = 1) {</pre>
+                      <pre class="language-r">          module_label &lt;- "global_filters"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">283</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_number(which, lower = 1)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">284</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(table_id)</pre>
+                      <pre class="language-r">        if (!identical(.self$module_slices_api[[module_label]], functions_list)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">285</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      table &lt;- rvest::html_table(</pre>
+                      <pre class="language-r">          .self$module_slices_api[[module_label]] &lt;- functions_list</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">286</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$get_html_rvest(self$active_module_element(table_id)),</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">287</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fill = TRUE</pre>
+                      <pre class="language-r">        invisible(.self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">289</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(table) == 0) {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">290</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data.frame()</pre>
+                      <pre class="language-r">    slices_deactivate_all = function(module_label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">291</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      shiny::isolate({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">292</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        table[[which]]</pre>
+                      <pre class="language-r">        new_slices &lt;- .self$all_slices()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">293</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        old_mapping &lt;- attr(new_slices, "mapping")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">295</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        new_mapping &lt;- if (.self$is_module_specific()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">296</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the output from the module's `teal.widgets::plot_with_settings` in the `teal` app.</pre>
+                      <pre class="language-r">          new_module_mapping &lt;- setNames(nm = module_label, list(character(0)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">297</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This function will only access plots from the name space of the current active teal module.</pre>
+                      <pre class="language-r">          modifyList(old_mapping, new_module_mapping)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">298</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        } else if (missing(module_label)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">299</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param plot_id (`character(1)`) The id of the plot in the active teal module's name space.</pre>
+                      <pre class="language-r">          lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">300</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            attr(.self$all_slices(), "mapping"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">301</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `src` attribute as `character(1)` vector.</pre>
+                      <pre class="language-r">            function(x) character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_module_plot_output = function(plot_id) {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">303</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(plot_id)</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">304</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$get_attr(</pre>
+                      <pre class="language-r">          old_mapping[[module_label]] &lt;- character(0)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">305</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$active_module_element(sprintf("%s-plot_main &gt; img", plot_id)),</pre>
+                      <pre class="language-r">          old_mapping</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">306</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "src"</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">308</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        if (!identical(new_mapping, old_mapping)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">309</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">          logger::log_debug(".slicesGlobal@slices_deactivate_all: deactivating all slices.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">310</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Set the input in the module in the `teal` app.</pre>
+                      <pre class="language-r">          attr(new_slices, "mapping") &lt;- new_mapping</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">311</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This function will only set inputs in the name space of the current active teal module.</pre>
+                      <pre class="language-r">          .self$all_slices(new_slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">313</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param input_id (character) The shiny input id to get the value from.</pre>
+                      <pre class="language-r">        invisible(.self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param value The value to set the input to.</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$set_inputs`</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    slices_active = function(mapping_elem) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">317</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">203<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r">      shiny::isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">318</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">203<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_active_module_input = function(input_id, value, ...) {</pre>
+                      <pre class="language-r">        if (.self$is_module_specific()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">319</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(input_id)</pre>
+                      <pre class="language-r">          new_mapping &lt;- modifyList(attr(.self$all_slices(), "mapping"), mapping_elem)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">320</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(value)</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">321</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_input(</pre>
+                      <pre class="language-r">          new_mapping &lt;- setNames(nm = "global_filters", list(unique(unlist(mapping_elem))))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">322</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("%s-%s", self$active_module_ns(), input_id),</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">323</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        value,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">324</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">203<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ...</pre>
+                      <pre class="language-r">        if (!identical(new_mapping, attr(.self$all_slices(), "mapping"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">325</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          mapping_modules &lt;- toString(names(new_mapping))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">326</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dots &lt;- rlang::list2(...)</pre>
+                      <pre class="language-r">          logger::log_debug(".slicesGlobal@slices_active: changing mapping for module(s): { mapping_modules }.")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">327</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!isFALSE(dots[["wait"]])) self$wait_for_idle() # Default behavior is to wait</pre>
+                      <pre class="language-r">          new_slices &lt;- .self$all_slices()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">328</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">          attr(new_slices, "mapping") &lt;- new_mapping</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">329</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">          .self$all_slices(new_slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active datasets that can be accessed via the filter panel of the current active teal module.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">332</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">203<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_filter_vars = function() {</pre>
+                      <pre class="language-r">        invisible(.self)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">333</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      displayed_datasets_index &lt;- self$is_visible(</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">334</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("#%s-filters-filter_active_vars_contents &gt; span", self$active_filters_ns())</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    # - only new filters are appended to the $all_slices</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # - mapping is not updated here</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">337</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      available_datasets &lt;- self$get_text(</pre>
+                      <pre class="language-r">    slices_append = function(slices, activate = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">338</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">203<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">      shiny::isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">339</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">203<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "#%s-filters-filter_active_vars_contents .filter_panel_dataname",</pre>
+                      <pre class="language-r">        if (!is.teal_slices(slices)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns()</pre>
+                      <pre class="language-r">          slices &lt;- as.teal_slices(slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # to make sure that we don't unnecessary trigger $all_slices &lt;reactiveVal&gt;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">344</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">203<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      available_datasets[displayed_datasets_index]</pre>
+                      <pre class="language-r">        new_slices &lt;- setdiff_teal_slices(slices, .self$all_slices())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">345</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">203<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        old_mapping &lt;- attr(.self$all_slices(), "mapping")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">346</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">203<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        if (length(new_slices)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">347</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active data summary table</pre>
+                      <pre class="language-r">          new_ids &lt;- vapply(new_slices, `[[`, character(1L), "id")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">348</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `data.frame`</pre>
+                      <pre class="language-r">          logger::log_debug(".slicesGlobal@slices_append: appending new slice(s): { new_ids }.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">349</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_data_summary_table = function() {</pre>
+                      <pre class="language-r">          slices_ids &lt;- vapply(.self$all_slices(), `[[`, character(1L), "id")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">350</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      summary_table &lt;- rvest::html_table(</pre>
+                      <pre class="language-r">          lapply(new_slices, function(slice) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">351</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$get_html_rvest(self$active_data_summary_element("table")),</pre>
+                      <pre class="language-r">            # In case the new state has the same id as an existing one, add a suffix</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">352</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fill = TRUE</pre>
+                      <pre class="language-r">            if (slice$id %in% slices_ids) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">353</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )[[1]]</pre>
+                      <pre class="language-r">              slice$id &lt;- utils::tail(make.unique(c(slices_ids, slice$id), sep = "_"), 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">355</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      col_names &lt;- unlist(summary_table[1, ], use.names = FALSE)</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">356</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      summary_table &lt;- summary_table[-1, ]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">357</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      colnames(summary_table) &lt;- col_names</pre>
+                      <pre class="language-r">          new_slices_all &lt;- c(.self$all_slices(), new_slices)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">358</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (nrow(summary_table) &gt; 0) {</pre>
+                      <pre class="language-r">          attr(new_slices_all, "mapping") &lt;- old_mapping</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">359</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        summary_table</pre>
+                      <pre class="language-r">          .self$all_slices(new_slices_all)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">361</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">362</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">203<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        invisible(.self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Test if `DOM` elements are visible on the page with a JavaScript call.</pre>
+                      <pre class="language-r">    slices_get = function(module_label) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">366</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">302<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param selector (`character(1)`) `CSS` selector to check visibility.</pre>
+                      <pre class="language-r">      if (missing(module_label)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">367</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' A `CSS` id will return only one element if the UI is well formed.</pre>
+                      <pre class="language-r">        .self$all_slices()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param content_visibility_auto,opacity_property,visibility_property (`logical(1)`) See more information</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">369</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">302<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' on &lt;https://developer.mozilla.org/en-US/docs/Web/API/Element/checkVisibility&gt;.</pre>
+                      <pre class="language-r">        module_ids &lt;- unlist(attr(.self$all_slices(), "mapping")[c(module_label, "global_filters")])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">370</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">302<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        Filter(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">371</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">302<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Logical vector with all occurrences of the selector.</pre>
+                      <pre class="language-r">          function(slice) slice$id %in% module_ids,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">372</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">302<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_visible = function(selector,</pre>
+                      <pre class="language-r">          .self$all_slices()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          content_visibility_auto = FALSE,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          opacity_property = FALSE,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          visibility_property = FALSE) {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">376</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(selector)</pre>
+                      <pre class="language-r">    slices_set = function(slices) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">377</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_flag(content_visibility_auto)</pre>
+                      <pre class="language-r">      shiny::isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">378</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_flag(opacity_property)</pre>
+                      <pre class="language-r">        if (!is.teal_slices(slices)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">379</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_flag(visibility_property)</pre>
+                      <pre class="language-r">          slices &lt;- as.teal_slices(slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">381</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$wait_for_page_stability()</pre>
+                      <pre class="language-r">        .self$all_slices(slices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">382</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        invisible(.self)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">383</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      testthat::skip_if_not(</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">384</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$get_js("typeof Element.prototype.checkVisibility === 'function'"),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">385</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Element.prototype.checkVisibility is not supported in the current browser."</pre>
+                      <pre class="language-r">    show = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">386</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      shiny::isolate(print(.self$all_slices()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">387</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      invisible(.self)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">388</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unlist(</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">389</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$get_js(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">390</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          sprintf(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">391</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Array.from(document.querySelectorAll('%s')).map(el =&gt; el.checkVisibility({%s, %s, %s}))",</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">392</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/dummy_functions.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selector,</pre>
+                      <pre class="language-r">#' An example `teal` module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # Extra parameters</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">394</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sprintf("contentVisibilityAuto: %s", tolower(content_visibility_auto)),</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sprintf("opacityProperty: %s", tolower(opacity_property)),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">396</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sprintf("visibilityProperty: %s", tolower(visibility_property))</pre>
+                      <pre class="language-r">#' This module creates an object called `object` that can be modified with decorators.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' The `object` is determined by what's selected in `Choose a dataset` input in UI.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' The object can be anything that can be handled by `renderPrint()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' See the `vignette("decorate-modules-output", package = "teal")` or [`teal_transform_module`]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' to read more about decorators.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active filter variables from a dataset in the `teal` app.</pre>
+                      <pre class="language-r">#' @inheritParams teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @param decorators `r lifecycle::badge("experimental")` (`list` of `teal_transform_module` or `NULL`) optional,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to get the filter variables from.</pre>
+                      <pre class="language-r">#' if not `NULL`, decorator for tables or plots included in the module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If `NULL`, the filter variables for all the datasets will be returned in a list.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_data_filters = function(dataset_name = NULL) {</pre>
+                      <pre class="language-r">#' @return A `teal` module which can be included in the `modules` argument to [init()].</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">407</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(dataset_name, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">408</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets &lt;- self$get_active_filter_vars()</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">409</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_subset(dataset_name, datasets)</pre>
+                      <pre class="language-r">#'   data = teal_data(IRIS = iris, MTCARS = mtcars),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">410</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      active_filters &lt;- lapply(</pre>
+                      <pre class="language-r">#'   modules = example_module()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">411</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        datasets,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">412</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(x) {</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">413</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          var_names &lt;- gsub(</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">414</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            pattern = "\\s",</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">415</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            replacement = "",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">416</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            self$get_text(</pre>
+                      <pre class="language-r">example_module &lt;- function(label = "example teal module",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">417</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              sprintf(</pre>
+                      <pre class="language-r">                           datanames = "all",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">418</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "#%s-filters-%s .filter-card-varname",</pre>
+                      <pre class="language-r">                           transformators = list(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">419</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                self$active_filters_ns(),</pre>
+                      <pre class="language-r">                           decorators = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">420</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">29</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">421</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">30</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">  checkmate::assert_list(decorators, "teal_transform_module", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">423</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  ans &lt;- module(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">424</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          structure(</pre>
+                      <pre class="language-r">    label,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">425</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            lapply(var_names, private$get_active_filter_selection, dataset_name = x),</pre>
+                      <pre class="language-r">    server = function(id, data, decorators) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">426</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            names = var_names</pre>
+                      <pre class="language-r">      checkmate::assert_class(isolate(data()), "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">427</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">428</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        datanames_rv &lt;- reactive(names(req(data())))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">429</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        observeEvent(datanames_rv(), {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">430</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(active_filters) &lt;- datasets</pre>
+                      <pre class="language-r">          selected &lt;- input$dataname</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">431</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">40</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(dataset_name)) {</pre>
+                      <pre class="language-r">          if (identical(selected, "")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">432</td>
+                    <td class="num">41</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(active_filters)</pre>
+                      <pre class="language-r">            selected &lt;- restoreInput(session$ns("dataname"), NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">433</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          } else if (isFALSE(selected %in% datanames_rv())) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">434</td>
+                    <td class="num">43</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      active_filters[[dataset_name]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">435</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">            selected &lt;- datanames_rv()[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">437</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Add a new variable from the dataset to be filtered.</pre>
+                      <pre class="language-r">          updateSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">438</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            session = session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">439</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to add the filter variable to.</pre>
+                      <pre class="language-r">            inputId = "dataname",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">440</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param var_name (character) The name of the variable to add to the filter panel.</pre>
+                      <pre class="language-r">            choices = datanames_rv(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">441</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$set_inputs`</pre>
+                      <pre class="language-r">            selected = selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    add_filter_var = function(dataset_name, var_name, ...) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">445</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
+                      <pre class="language-r">        table_data &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">446</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
+                      <pre class="language-r">          req(input$dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">447</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$set_active_ns()</pre>
+                      <pre class="language-r">          within(data(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">448</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$click(</pre>
+                      <pre class="language-r">            {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">449</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selector = sprintf(</pre>
+                      <pre class="language-r">              object &lt;- dataname</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">450</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "#%s-filters-%s-add_filter_icon",</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">451</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$ns$filter_panel,</pre>
+                      <pre class="language-r">            dataname = as.name(input$dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">452</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">455</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_input(</pre>
+                      <pre class="language-r">        table_data_decorated_no_print &lt;- srv_transform_teal_data(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">456</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">          "decorate",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">457</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "%s-filters-%s-%s-filter-var_to_add",</pre>
+                      <pre class="language-r">          data = table_data,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">458</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$ns$filter_panel,</pre>
+                      <pre class="language-r">          transformators = decorators</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">459</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">460</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name</pre>
+                      <pre class="language-r">        table_data_decorated &lt;- reactive(within(req(table_data_decorated_no_print()), expr = object))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">462</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var_name,</pre>
+                      <pre class="language-r">        output$text &lt;- renderPrint({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">463</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ...</pre>
+                      <pre class="language-r">          req(table_data()) # Ensure original errors from module are displayed</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">464</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          table_data_decorated()[["object"]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">465</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">467</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">468</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Remove an active filter variable of a dataset from the active filter variables panel.</pre>
+                      <pre class="language-r">          id = "rcode",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">469</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          verbatim_content = reactive(teal.code::get_code(req(table_data_decorated()))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">470</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to remove the filter variable from.</pre>
+                      <pre class="language-r">          title = "Example Code"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If `NULL`, all the filter variables will be removed.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param var_name (character) The name of the variable to remove from the filter panel.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">473</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If `NULL`, all the filter variables of the dataset will be removed.</pre>
+                      <pre class="language-r">        table_data_decorated</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">476</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_filter_var = function(dataset_name = NULL, var_name = NULL) {</pre>
+                      <pre class="language-r">    ui = function(id, decorators) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">477</td>
+                    <td class="num">85</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(dataset_name, null.ok = TRUE)</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">478</td>
+                    <td class="num">86</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(var_name, null.ok = TRUE)</pre>
+                      <pre class="language-r">      teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">479</td>
+                    <td class="num">87</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(dataset_name)) {</pre>
+                      <pre class="language-r">        output = verbatimTextOutput(ns("text")),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">480</td>
+                    <td class="num">88</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
+                      <pre class="language-r">        encoding = tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">481</td>
+                    <td class="num">89</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "#%s-active-remove_all_filters",</pre>
+                      <pre class="language-r">          selectInput(ns("dataname"), "Choose a dataset", choices = NULL),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">482</td>
+                    <td class="num">90</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns()</pre>
+                      <pre class="language-r">          ui_transform_teal_data(ns("decorate"), transformators = decorators),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">91</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">483</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">484</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (is.null(var_name)) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">485</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">486</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "#%s-active-%s-remove_filters",</pre>
+                      <pre class="language-r">    ui_args = list(decorators = decorators),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">487</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns(),</pre>
+                      <pre class="language-r">    server_args = list(decorators = decorators),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">488</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name</pre>
+                      <pre class="language-r">    datanames = datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">489</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    transformators = transformators</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">491</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
+                      <pre class="language-r">  attr(ans, "teal_bookmarkable") &lt;- TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">492</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "#%s-active-%s-filter-%s_%s-remove",</pre>
+                      <pre class="language-r">  ans</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">493</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns(),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">494</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/modules.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name,</pre>
+                      <pre class="language-r">setOldClass("teal_module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">495</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name,</pre>
+                      <pre class="language-r">setOldClass("teal_modules")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">496</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          var_name</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">497</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' Create `teal_module` and `teal_modules` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">498</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">499</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$click(</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">500</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selector = remove_selector</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' Create a nested tab structure to embed modules in a `teal` application.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">502</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">503</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' `module()` creates an instance of a `teal_module` that can be placed in a `teal` application.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Set the active filter values for a variable of a dataset in the active filter variable panel.</pre>
+                      <pre class="language-r">#' `modules()` shapes the structure of a the application by organizing `teal_module` within the navigation panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' It wraps `teal_module` and `teal_modules` objects in a `teal_modules` object,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to set the filter value for.</pre>
+                      <pre class="language-r">#' which results in a nested structure corresponding to the nested tabs in the final application.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param var_name (character) The name of the variable to set the filter value for.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">509</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param input The value to set the filter to.</pre>
+                      <pre class="language-r">#' Note that for `modules()` `label` comes after `...`, so it must be passed as a named argument,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$set_inputs`</pre>
+                      <pre class="language-r">#' otherwise it will be captured by `...`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">512</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r">#' The labels `"global_filters"` and `"Report previewer"` are reserved</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_active_filter_selection = function(dataset_name,</pre>
+                      <pre class="language-r">#' because they are used by the `mapping` argument of [teal_slices()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           var_name,</pre>
+                      <pre class="language-r">#' and the report previewer module [reporter_previewer_module()], respectively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">515</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           input,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">516</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           ...) {</pre>
+                      <pre class="language-r">#' # Restricting datasets used by `teal_module`:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">517</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
+                      <pre class="language-r">#' The `datanames` argument controls which datasets are used by the module’s server. These datasets,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">518</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
+                      <pre class="language-r">#' passed via server's `data` argument, are the only ones shown in the module's tab.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">519</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(input)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">520</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' When `datanames` is set to `"all"`, all datasets in the data object are treated as relevant.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">521</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      input_id_prefix &lt;- sprintf(</pre>
+                      <pre class="language-r">#' However, this may include unnecessary datasets, such as:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">522</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "%s-filters-%s-filter-%s_%s-inputs",</pre>
+                      <pre class="language-r">#' -	Proxy variables for column modifications</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">523</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$active_filters_ns(),</pre>
+                      <pre class="language-r">#' -	Temporary datasets used to create final versions</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">524</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataset_name,</pre>
+                      <pre class="language-r">#' -	Connection objects</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">525</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataset_name,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">526</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var_name</pre>
+                      <pre class="language-r">#' To exclude irrelevant datasets, use the [set_datanames()] function to change `datanames` from</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' `"all"` to specific names. Trying to modify non-`"all"` values with [set_datanames()] will result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">528</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' in a warning. Datasets with names starting with . are ignored globally unless explicitly listed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Find the type of filter (based on filter panel)</pre>
+                      <pre class="language-r">#' in `datanames`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">530</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      supported_suffix &lt;- c("selection", "selection_manual")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">531</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_suffix &lt;- supported_suffix[</pre>
+                      <pre class="language-r">#' # `datanames` with `transformators`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">532</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        match(</pre>
+                      <pre class="language-r">#' When transformators are specified, their `datanames` are added to the module’s `datanames`, which</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">533</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          TRUE,</pre>
+                      <pre class="language-r">#' changes the behavior as follows:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">534</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          vapply(</pre>
+                      <pre class="language-r">#' - If `module(datanames)` is `NULL` and the `transformators` have defined `datanames`, the sidebar</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">535</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            supported_suffix,</pre>
+                      <pre class="language-r">#'   will appear showing the `transformators`' datasets, instead of being hidden.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">536</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(suffix) {</pre>
+                      <pre class="language-r">#' - If `module(datanames)` is set to specific values and any `transformator` has `datanames = "all"`,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">537</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              !is.null(self$get_html(sprintf("#%s-%s", input_id_prefix, suffix)))</pre>
+                      <pre class="language-r">#'   the module may receive extra datasets that could be unnecessary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">538</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">539</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            logical(1)</pre>
+                      <pre class="language-r">#' @param label (`character(1)`) Label shown in the navigation item for the module or module group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   For `modules()` defaults to `"root"`. See `Details`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">541</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param server (`function`) `shiny` module with following arguments:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ]</pre>
+                      <pre class="language-r">#'  - `id` - `teal` will set proper `shiny` namespace for this module (see [shiny::moduleServer()]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  - `input`, `output`, `session` - (optional; not recommended) When provided, then [shiny::callModule()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Generate correct namespace</pre>
+                      <pre class="language-r">#'    will be used to call a module. From `shiny` 1.5.0, the recommended way is to use</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">545</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_input_id &lt;- sprintf(</pre>
+                      <pre class="language-r">#'    [shiny::moduleServer()] instead which doesn't require these arguments.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">546</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "%s-filters-%s-filter-%s_%s-inputs-%s",</pre>
+                      <pre class="language-r">#'  - `data` (optional) When provided, the module will be called with `teal_data` object (i.e. a list of</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">547</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$active_filters_ns(),</pre>
+                      <pre class="language-r">#'    reactive (filtered) data specified in the `filters` argument) as the value of this argument.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">548</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataset_name,</pre>
+                      <pre class="language-r">#'  - `datasets` (optional) When provided, the module will be called with `FilteredData` object as the</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">549</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataset_name,</pre>
+                      <pre class="language-r">#'    value of this argument. (See [`teal.slice::FilteredData`]).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">550</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var_name,</pre>
+                      <pre class="language-r">#'  - `reporter` (optional) When provided, the module will be called with `Reporter` object as the value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">551</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        slices_suffix</pre>
+                      <pre class="language-r">#'    of this argument. (See [`teal.reporter::Reporter`]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">552</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'  - `filter_panel_api` (optional) When provided, the module will be called with `FilterPanelAPI` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">553</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'    as the value of this argument. (See [`teal.slice::FilterPanelAPI`]).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">554</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(slices_suffix, "selection_manual")) {</pre>
+                      <pre class="language-r">#'  - `...` (optional) When provided, `server_args` elements will be passed to the module named argument</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">555</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_numeric(input, len = 2)</pre>
+                      <pre class="language-r">#'    or to the `...`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param ui (`function`) `shiny` UI module function with following arguments:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">557</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dots &lt;- rlang::list2(...)</pre>
+                      <pre class="language-r">#'  - `id` - `teal` will set proper `shiny` namespace for this module.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">558</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_choice(dots$priority_, formals(self$set_inputs)[["priority_"]], null.ok = TRUE)</pre>
+                      <pre class="language-r">#'  - `...` (optional) When provided, `ui_args` elements will be passed to the module named argument</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">559</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_flag(dots$wait_, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'    or to the `...`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param filters (`character`) Deprecated. Use `datanames` instead.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">561</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$run_js(</pre>
+                      <pre class="language-r">#' @param datanames (`character`) Names of the datasets relevant to the item.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">562</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf(</pre>
+                      <pre class="language-r">#' There are 2 reserved values that have specific behaviors:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">563</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Shiny.setInputValue('%s:sw.numericRange', [%f, %f], {priority: '%s'})",</pre>
+                      <pre class="language-r">#' - The keyword `"all"` includes all datasets available in the data passed to the teal application.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">564</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            slices_input_id,</pre>
+                      <pre class="language-r">#' - `NULL` hides the sidebar panel completely.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">565</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            input[[1]],</pre>
+                      <pre class="language-r">#' - If `transformators` are specified, their `datanames` are automatically added to this `datanames`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">566</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            input[[2]],</pre>
+                      <pre class="language-r">#'   argument.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">567</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            priority_ = ifelse(is.null(dots$priority_), "input", dots$priority_)</pre>
+                      <pre class="language-r">#' @param server_args (named `list`) with additional arguments passed on to the server function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">568</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' @param ui_args (named `list`) with additional arguments passed on to the UI function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">569</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param x (`teal_module` or `teal_modules`) Object to format/print.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">570</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param transformators (`list` of `teal_transform_module`) that will be applied to transformator module's data input.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">571</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (isTRUE(dots$wait_) || is.null(dots$wait_)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">572</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$wait_for_idle(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">573</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            timeout = if (is.null(dots$timeout_)) rlang::missing_arg() else dots$timeout_</pre>
+                      <pre class="language-r">#' @param ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">574</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' - For `modules()`: (`teal_module` or `teal_modules`) Objects to wrap into a tab.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' - For `format()` and `print()`: Arguments passed to other methods.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">576</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (identical(slices_suffix, "selection")) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">577</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$set_input(</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">578</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slices_input_id,</pre>
+                      <pre class="language-r">#' `module()` returns an object of class `teal_module`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">579</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          input,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">580</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ...</pre>
+                      <pre class="language-r">#' `modules()` returns a `teal_modules` object which contains following fields:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">581</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' - `label`: taken from the `label` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">582</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' - `children`: a list containing objects passed in `...`. List elements are named after</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">583</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop("Filter selection set not supported for this slice.")</pre>
+                      <pre class="language-r">#' their `label` attribute converted to a valid `shiny` id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">584</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">585</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @name teal_modules</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">586</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">#' @aliases teal_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">587</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">588</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">589</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Extract `html` attribute (found by a `selector`).</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">590</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">591</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param selector (`character(1)`) specifying the selector to be used to get the content of a specific node.</pre>
+                      <pre class="language-r">#' module_1 &lt;- module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">592</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param attribute (`character(1)`) name of an attribute to retrieve from a node specified by `selector`.</pre>
+                      <pre class="language-r">#'   label = "a module",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">593</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'   server = function(id, data) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">594</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `character` vector.</pre>
+                      <pre class="language-r">#'     moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">595</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_attr = function(selector, attribute) {</pre>
+                      <pre class="language-r">#'       id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">596</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rvest::html_attr(</pre>
+                      <pre class="language-r">#'       module = function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">597</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rvest::html_nodes(self$get_html_rvest("html"), selector),</pre>
+                      <pre class="language-r">#'         output$data &lt;- renderDataTable(data()[["iris"]])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">598</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        attribute</pre>
+                      <pre class="language-r">#'       }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">600</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">601</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'   ui = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">602</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Wrapper around `get_html` that passes the output directly to `rvest::read_html`.</pre>
+                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">603</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'     tagList(dataTableOutput(ns("data")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">604</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param selector `(character(1))` passed to `get_html`.</pre>
+                      <pre class="language-r">#'   },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">605</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'   datanames = "all"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">606</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return An XML document.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">607</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_html_rvest = function(selector) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">608</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rvest::read_html(self$get_html(selector))</pre>
+                      <pre class="language-r">#' module_2 &lt;- module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">609</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   label = "another module",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">610</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Wrapper around `get_url()` method that opens the app in the browser.</pre>
+                      <pre class="language-r">#'   server = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">611</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'     moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">612</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Nothing. Opens the underlying teal app in the browser.</pre>
+                      <pre class="language-r">#'       id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">613</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    open_url = function() {</pre>
+                      <pre class="language-r">#'       module = function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">614</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      browseURL(self$get_url())</pre>
+                      <pre class="language-r">#'         output$text &lt;- renderText("Another Module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">615</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'       }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">617</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Waits until a specified input, output, or export value.</pre>
+                      <pre class="language-r">#'   },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">618</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This function serves as a wrapper around the `wait_for_value` method,</pre>
+                      <pre class="language-r">#'   ui = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">619</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' providing a more flexible interface for waiting on different types of values within the active module namespace.</pre>
+                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">620</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param input,output,export A name of an input, output, or export value.</pre>
+                      <pre class="language-r">#'     tagList(textOutput(ns("text")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">621</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Only one of these parameters may be used.</pre>
+                      <pre class="language-r">#'   },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">622</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... Must be empty. Allows for parameter expansion.</pre>
+                      <pre class="language-r">#'   datanames = NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">623</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Parameter with additional value to passed in `wait_for_value`.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">624</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wait_for_active_module_value = function(input = rlang::missing_arg(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">625</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            output = rlang::missing_arg(),</pre>
+                      <pre class="language-r">#' modules &lt;- modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">626</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            export = rlang::missing_arg(),</pre>
+                      <pre class="language-r">#'   label = "modules",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">627</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            ...) {</pre>
+                      <pre class="language-r">#'   modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">628</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- shiny::NS(self$active_module_ns())</pre>
+                      <pre class="language-r">#'     label = "nested modules",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">629</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     module_1</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">630</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!rlang::is_missing(input) &amp;&amp; checkmate::test_string(input, min.chars = 1)) input &lt;- ns(input)</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">631</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!rlang::is_missing(output) &amp;&amp; checkmate::test_string(output, min.chars = 1)) output &lt;- ns(output)</pre>
+                      <pre class="language-r">#'   module_2</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">632</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">139</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!rlang::is_missing(export) &amp;&amp; checkmate::test_string(export, min.chars = 1)) export &lt;- ns(export)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">633</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">634</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$wait_for_value(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">635</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        input = input,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">636</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        output = output,</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">637</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">142</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        export = export,</pre>
+                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">638</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ...</pre>
+                      <pre class="language-r">#'   modules = modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">639</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">640</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">641</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">642</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private members ----</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">643</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">644</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private attributes ----</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">645</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = NULL,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">646</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">647</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter = teal_slices(),</pre>
+                      <pre class="language-r">module &lt;- function(label = "module",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">648</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ns = list(</pre>
+                      <pre class="language-r">                   server = function(id, data, ...) moduleServer(id, function(input, output, session) NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">649</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      module = character(0),</pre>
+                      <pre class="language-r">                   ui = function(id, ...) tags$p(paste0("This module has no UI (id: ", id, " )")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">650</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_panel = character(0)</pre>
+                      <pre class="language-r">                   filters,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">651</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">                   datanames = "all",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">652</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private methods ----</pre>
+                      <pre class="language-r">                   server_args = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">653</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_active_ns = function() {</pre>
+                      <pre class="language-r">                   ui_args = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">654</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_inputs &lt;- self$get_values()$input</pre>
+                      <pre class="language-r">                   transformators = list()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">655</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      active_tab_inputs &lt;- all_inputs[grepl("-active_tab$", names(all_inputs))]</pre>
+                      <pre class="language-r">  # argument checking (independent)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">656</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ## `label`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">657</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">220<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tab_ns &lt;- unlist(lapply(names(active_tab_inputs), function(name) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">658</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">217<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gsub(</pre>
+                      <pre class="language-r">  if (label == "global_filters") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">659</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pattern = "-active_tab$",</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">660</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          replacement = sprintf("-%s", active_tab_inputs[[name]]),</pre>
+                      <pre class="language-r">      sprintf("module(label = \"%s\", ...\n  ", label),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">661</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          name</pre>
+                      <pre class="language-r">      "Label 'global_filters' is reserved in teal. Please change to something else.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">662</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      call. = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">663</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">664</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      active_ns &lt;- tab_ns[1]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">665</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">216<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(tab_ns) &gt; 1) {</pre>
+                      <pre class="language-r">  if (label == "Report previewer") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">666</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        for (i in 2:length(tab_ns)) {</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">667</td>
+                    <td class="num">172</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          next_ns &lt;- tab_ns[i]</pre>
+                      <pre class="language-r">      sprintf("module(label = \"%s\", ...\n  ", label),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">668</td>
+                    <td class="num">173</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (grepl(pattern = active_ns, next_ns)) {</pre>
+                      <pre class="language-r">      "Label 'Report previewer' is reserved in teal. Please change to something else.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">669</td>
+                    <td class="num">174</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            active_ns &lt;- next_ns</pre>
+                      <pre class="language-r">      call. = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">670</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">671</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">672</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">673</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$ns$module &lt;- sprintf("%s-%s", active_ns, "module")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">674</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ## server</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">675</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">216<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      components &lt;- c("filter_panel", "data_summary")</pre>
+                      <pre class="language-r">  checkmate::assert_function(server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">676</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">216<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (component in components) {</pre>
+                      <pre class="language-r">  server_formals &lt;- names(formals(server))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">677</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">216<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (</pre>
+                      <pre class="language-r">  if (!(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">678</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">216<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          !is.null(self$get_html(sprintf("#%s-%s-panel", active_ns, component))) ||</pre>
+                      <pre class="language-r">    "id" %in% server_formals ||</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">679</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">216<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            !is.null(self$get_html(sprintf("#%s-%s-table", active_ns, component)))</pre>
+                      <pre class="language-r">      all(c("input", "output", "session") %in% server_formals)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">680</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">681</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          private$ns[[component]] &lt;- sprintf("%s-%s", active_ns, component)</pre>
+                      <pre class="language-r">  )) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">682</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">683</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$ns[[component]] &lt;- sprintf("%s-module_%s", active_ns, component)</pre>
+                      <pre class="language-r">      "\nmodule() `server` argument requires a function with following arguments:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">684</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      "\n - id - `teal` will set proper `shiny` namespace for this module.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">685</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      "\n - input, output, session (not recommended) - then `shiny::callModule` will be used to call a module.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">686</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      "\n\nFollowing arguments can be used optionaly:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">687</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">      "\n - `data` - module will receive list of reactive (filtered) data specified in the `filters` argument",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">688</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Get the active filter values from the active filter selection of dataset from the filter panel.</pre>
+                      <pre class="language-r">      "\n - `datasets` - module will receive `FilteredData`. See `help(teal.slice::FilteredData)`",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">689</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">      "\n - `reporter` - module will receive `Reporter`. See `help(teal.reporter::Reporter)`",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">690</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param dataset_name (character) The name of the dataset to get the filter values from.</pre>
+                      <pre class="language-r">      "\n - `filter_panel_api` - module will receive `FilterPanelAPI`. (See [teal.slice::FilterPanelAPI]).",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">691</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param var_name (character) The name of the variable to get the filter values from.</pre>
+                      <pre class="language-r">      "\n - `...` server_args elements will be passed to the module named argument or to the `...`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">692</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">693</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return The value of the active filter selection.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">694</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_filter_selection = function(dataset_name, var_name) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">695</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">696</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">214<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
+                      <pre class="language-r">  if ("datasets" %in% server_formals) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">697</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      input_id_prefix &lt;- sprintf(</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">698</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "%s-filters-%s-filter-%s_%s-inputs",</pre>
+                      <pre class="language-r">      sprintf("Called from module(label = \"%s\", ...)\n  ", label),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">699</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$active_filters_ns(),</pre>
+                      <pre class="language-r">      "`datasets` argument in the server is deprecated and will be removed in the next release. ",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">700</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataset_name,</pre>
+                      <pre class="language-r">      "Please use `data` instead.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">701</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataset_name,</pre>
+                      <pre class="language-r">      call. = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">702</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var_name</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">703</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">704</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">705</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Find the type of filter (categorical or range)</pre>
+                      <pre class="language-r">  ## UI</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">706</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">214<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      supported_suffix &lt;- c("selection", "selection_manual")</pre>
+                      <pre class="language-r">  checkmate::assert_function(ui)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">707</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">214<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (suffix in supported_suffix) {</pre>
+                      <pre class="language-r">  ui_formals &lt;- names(formals(ui))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">708</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">214<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.null(self$get_html(sprintf("#%s-%s", input_id_prefix, suffix)))) {</pre>
+                      <pre class="language-r">  if (!"id" %in% ui_formals) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">709</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          return(self$get_value(input = sprintf("%s-%s", input_id_prefix, suffix)))</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">710</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      "\nmodule() `ui` argument requires a function with following arguments:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">711</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      "\n - id - `teal` will set proper `shiny` namespace for this module.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">712</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">214</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "\n\nFollowing arguments can be used optionally:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">713</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      NULL # If there are not any supported filters</pre>
+                      <pre class="language-r">      "\n - `...` ui_args elements will be passed to the module argument of the same name or to the `...`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">714</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">715</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">716</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Check if the page is stable without any `DOM` updates in the body of the app.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">717</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">213<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # This is achieved by blocing the R process by sleeping until the page is unchanged till the `stability_period`.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">718</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # @param stability_period (`numeric(1)`) The time in milliseconds to wait till the page to be stable.</pre>
+                      <pre class="language-r">  if (any(c("data", "datasets") %in% ui_formals)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">719</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param check_interval (`numeric(1)`) The time in milliseconds to check for changes in the page.</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">720</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # The stability check is reset when a change is detected in the page after sleeping for check_interval.</pre>
+                      <pre class="language-r">      sprintf("Called from module(label = \"%s\", ...)\n  ", label),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">721</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wait_for_page_stability = function(stability_period = 2000, check_interval = 200) {</pre>
+                      <pre class="language-r">      "UI with `data` or `datasets` argument is no longer accepted.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">722</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      previous_content &lt;- self$get_html("body")</pre>
+                      <pre class="language-r">      "If some UI inputs depend on data, please move the logic to your server instead.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">723</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      end_time &lt;- Sys.time() + (stability_period / 1000)</pre>
+                      <pre class="language-r">      "Possible solutions are renderUI() or updateXyzInput() functions."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">724</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">725</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      repeat {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">726</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Sys.sleep(check_interval / 1000)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">727</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">227</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        current_content &lt;- self$get_html("body")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">728</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ## `filters`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">729</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!identical(previous_content, current_content)) {</pre>
+                      <pre class="language-r">  if (!missing(filters)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">730</td>
+                    <td class="num">230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          previous_content &lt;- current_content</pre>
+                      <pre class="language-r">    datanames &lt;- filters</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">731</td>
+                    <td class="num">231</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          end_time &lt;- Sys.time() + (stability_period / 1000)</pre>
+                      <pre class="language-r">    msg &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">732</td>
+                    <td class="num">232</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (Sys.time() &gt;= end_time) {</pre>
+                      <pre class="language-r">      "The `filters` argument is deprecated and will be removed in the next release. Please use `datanames` instead."</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">733</td>
+                    <td class="num">233</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          break</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">734</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    warning(msg)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">735</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">736</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">737</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  ## `datanames` (also including deprecated `filters`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">738</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">  # please note a race condition between datanames set when filters is not missing and data arg in server function</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/reporter_previewer_module.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `teal` module for previewing a report</pre>
+                      <pre class="language-r">  if (!is.element("data", server_formals) &amp;&amp; !is.null(datanames)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    message(sprintf("module \"%s\" server function takes no data so \"datanames\" will be ignored", label))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">    datanames &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function wraps [teal.reporter::reporter_previewer_ui()] and</pre>
+                      <pre class="language-r">  checkmate::assert_character(datanames, min.len = 1, null.ok = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [teal.reporter::reporter_previewer_srv()] into a `teal_module` to be</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' used in `teal` applications.</pre>
+                      <pre class="language-r">  ## `server_args`</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">210<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_list(server_args, null.ok = TRUE, names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If you are creating a `teal` application using [init()] then this</pre>
+                      <pre class="language-r">  srv_extra_args &lt;- setdiff(names(server_args), server_formals)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' module will be added to your application automatically if any of your `teal_modules`</pre>
+                      <pre class="language-r">  if (length(srv_extra_args) &gt; 0 &amp;&amp; !"..." %in% server_formals) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' support report generation.</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      "\nFollowing `server_args` elements have no equivalent in the formals of the server:\n",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal_modules</pre>
+                      <pre class="language-r">      paste(paste(" -", srv_extra_args), collapse = "\n"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">251</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param server_args (named `list`)</pre>
+                      <pre class="language-r">      "\n\nUpdate the server arguments by including above or add `...`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Arguments passed to [teal.reporter::reporter_previewer_srv()].</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_module` (extended with `teal_module_previewer` class) containing the `teal.reporter` previewer functionality.</pre>
+                      <pre class="language-r">  ## `ui_args`</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">207<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_list(ui_args, null.ok = TRUE, names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">205<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  ui_extra_args &lt;- setdiff(names(ui_args), ui_formals)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">205<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (length(ui_extra_args) &gt; 0 &amp;&amp; !"..." %in% ui_formals) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">reporter_previewer_module &lt;- function(label = "Report previewer", server_args = list()) {</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">23</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">260</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">      "\nFollowing `ui_args` elements have no equivalent in the formals of UI:\n",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">261</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(server_args, names = "named")</pre>
+                      <pre class="language-r">      paste(paste(" -", ui_extra_args), collapse = "\n"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">262</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(all(names(server_args) %in% names(formals(teal.reporter::reporter_previewer_srv))))</pre>
+                      <pre class="language-r">      "\n\nUpdate the UI arguments by including above or add `...`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">27</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  message("Initializing reporter_previewer_module")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  srv &lt;- function(id, reporter, ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">30</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    teal.reporter::reporter_previewer_srv(id, reporter, ...)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ## `transformators`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ui &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">  if (inherits(transformators, "teal_transform_module")) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">34</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.reporter::reporter_previewer_ui(id, ...)</pre>
+                      <pre class="language-r">    transformators &lt;- list(transformators)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">270</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module &lt;- module(</pre>
+                      <pre class="language-r">  checkmate::assert_list(transformators, types = "teal_transform_module")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">271</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = "temporary label",</pre>
+                      <pre class="language-r">  transform_datanames &lt;- unlist(lapply(transformators, attr, "datanames"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">272</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv, ui = ui,</pre>
+                      <pre class="language-r">  combined_datanames &lt;- if (identical(datanames, "all")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">273</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = server_args, ui_args = list(), datanames = NULL</pre>
+                      <pre class="language-r">    "all"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">53<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    union(datanames, transform_datanames)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Module is created with a placeholder label and the label is changed later.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # This is to prevent another module being labeled "Report previewer".</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">278</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  class(module) &lt;- c(class(module), "teal_module_previewer")</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">279</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module$label &lt;- label</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(module, "teal_bookmarkable") &lt;- TRUE</pre>
+                      <pre class="language-r">      label = label,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module</pre>
+                      <pre class="language-r">      server = server,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">282</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      ui = ui,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/init.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This is the main function from teal to be used by the end-users. Although it delegates</pre>
+                      <pre class="language-r">      datanames = combined_datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">284</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># directly to `module_teal_with_splash.R`, we keep it in a separate file because its documentation is quite large</pre>
+                      <pre class="language-r">      server_args = server_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># and it is very end-user oriented. It may also perform more argument checking with more informative</pre>
+                      <pre class="language-r">      ui_args = ui_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># error messages.</pre>
+                      <pre class="language-r">      transformators = transformators</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">204<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create the server and UI function for the `shiny` app</pre>
+                      <pre class="language-r">    class = "teal_module"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' End-users: This is the most important function for you to start a</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal` app that is composed of `teal` modules.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data` or `teal_data_module`)</pre>
+                      <pre class="language-r">modules &lt;- function(..., label = "root") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   For constructing the data object, refer to [teal.data::teal_data()] and [teal_data_module()].</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">144<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If `datanames` are not set for the `teal_data` object, defaults from the `teal_data` environment will be used.</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">142<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`list` or `teal_modules` or `teal_module`)</pre>
+                      <pre class="language-r">  submodules &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">142<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Nested list of `teal_modules` or `teal_module` objects or a single</pre>
+                      <pre class="language-r">  if (any(vapply(submodules, is.character, FUN.VALUE = logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `teal_modules` or `teal_module` object. These are the specific output modules which</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   will be displayed in the `teal` application. See [modules()] and [module()] for</pre>
+                      <pre class="language-r">      "The only character argument to modules() must be 'label' and it must be named, ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   more details.</pre>
+                      <pre class="language-r">      "change modules('lab', ...) to modules(label = 'lab', ...)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filter (`teal_slices`) Optionally,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specifies the initial filter using [teal_slices()].</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`shiny.tag` or `character(1)`) Optionally,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">140<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the browser window title. Defaults to a title "teal app" with the icon of NEST.</pre>
+                      <pre class="language-r">  checkmate::assert_list(submodules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Can be created using the `build_app_title()` or</pre>
+                      <pre class="language-r">  # name them so we can more easily access the children</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   by passing a valid `shiny.tag` which is a head tag with title and link tag.</pre>
+                      <pre class="language-r">  # beware however that the label of the submodules should not be changed as it must be kept synced</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">308</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param header (`shiny.tag` or `character(1)`) Optionally,</pre>
+                      <pre class="language-r">  labels &lt;- vapply(submodules, function(submodule) submodule$label, character(1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">309</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the header of the app.</pre>
+                      <pre class="language-r">  names(submodules) &lt;- get_unique_labels(labels)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">310</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param footer (`shiny.tag` or `character(1)`) Optionally,</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">311</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the footer of the app.</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character`) Optionally,</pre>
+                      <pre class="language-r">      label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">313</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a string specifying the `shiny` module id in cases it is used as a `shiny` module</pre>
+                      <pre class="language-r">      children = submodules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rather than a standalone `shiny` app. This is a legacy feature.</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">315</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param landing_popup (`teal_module_landing`) Optionally,</pre>
+                      <pre class="language-r">    class = "teal_modules"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a `landing_popup_module` to show up as soon as the teal app is initialized.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Named list containing server and UI functions.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"># printing methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @include modules.R</pre>
+                      <pre class="language-r">#' @param is_last (`logical(1)`) Whether this is the last item in its parent's children list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   Affects the tree branch character used (L- vs |-)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param parent_prefix (`character(1)`) The prefix inherited from parent nodes,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">#'   used to maintain the tree structure in nested levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = within(</pre>
+                      <pre class="language-r">#' @param is_root (`logical(1)`) Whether this is the root node of the tree. Only used in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_data(),</pre>
+                      <pre class="language-r">#'   format.teal_modules(). Determines whether to show "TEAL ROOT" header</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     {</pre>
+                      <pre class="language-r">#' @param what (`character`) Specifies which metadata to display.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       new_iris &lt;- transform(iris, id = seq_len(nrow(iris)))</pre>
+                      <pre class="language-r">#'   Possible values: "datasets", "properties", "ui_args", "server_args", "transformators"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       new_mtcars &lt;- transform(mtcars, id = seq_len(nrow(mtcars)))</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     }</pre>
+                      <pre class="language-r">#' mod &lt;- module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   label = "My Custom Module",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">#'   server = function(id, data, ...) {},</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module(</pre>
+                      <pre class="language-r">#'   ui = function(id, ...) {},</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "data source",</pre>
+                      <pre class="language-r">#'   datanames = c("ADSL", "ADTTE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       server = function(input, output, session, data) {},</pre>
+                      <pre class="language-r">#'   transformators = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ui = function(id, ...) tags$div(p("information about data source")),</pre>
+                      <pre class="language-r">#'   ui_args = list(a = 1, b = "b"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       datanames = "all"</pre>
+                      <pre class="language-r">#'   server_args = list(x = 5, y = list(p = 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     example_module(label = "example teal module"),</pre>
+                      <pre class="language-r">#' cat(format(mod))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "Iris Sepal.Length histogram",</pre>
+                      <pre class="language-r">format.teal_module &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       server = function(input, output, session, data) {</pre>
+                      <pre class="language-r">                               is_last = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         output$hist &lt;- renderPlot(</pre>
+                      <pre class="language-r">                               parent_prefix = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           hist(data()[["new_iris"]]$Sepal.Length)</pre>
+                      <pre class="language-r">                               what = c("datasets", "properties", "ui_args", "server_args", "transformators"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">                               ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">347</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       },</pre>
+                      <pre class="language-r">  empty_text &lt;- ""</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">348</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ui = function(id, ...) {</pre>
+                      <pre class="language-r">  branch &lt;- if (is_last) "L-" else "|-"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ns &lt;- NS(id)</pre>
+                      <pre class="language-r">  current_prefix &lt;- paste0(parent_prefix, branch, " ")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         plotOutput(ns("hist"))</pre>
+                      <pre class="language-r">  content_prefix &lt;- paste0(parent_prefix, if (is_last) "   " else "|  ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       datanames = "new_iris"</pre>
+                      <pre class="language-r">  format_list &lt;- function(lst, empty = empty_text, label_width = 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">353</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">    if (is.null(lst) || length(lst) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">354</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">      empty</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter = teal_slices(</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">356</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "new_iris", varname = "Species"),</pre>
+                      <pre class="language-r">      colon_space &lt;- paste(rep(" ", label_width), collapse = "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "new_iris", varname = "Sepal.Length"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">358</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "new_mtcars", varname = "cyl"),</pre>
+                      <pre class="language-r">      first_item &lt;- sprintf("%s (%s)", names(lst)[1], cli::col_silver(class(lst[[1]])[1]))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">359</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     exclude_varnames = list(new_iris = c("Sepal.Width", "Petal.Width")),</pre>
+                      <pre class="language-r">      rest_items &lt;- if (length(lst) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">360</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module_specific = TRUE,</pre>
+                      <pre class="language-r">        paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">361</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     mapping = list(</pre>
+                      <pre class="language-r">          vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">362</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       `example teal module` = "new_iris Species",</pre>
+                      <pre class="language-r">            names(lst)[-1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">363</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       `Iris Sepal.Length histogram` = "new_iris Species",</pre>
+                      <pre class="language-r">            function(name) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">364</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       global_filters = "new_mtcars cyl"</pre>
+                      <pre class="language-r">              sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">365</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">                "%s%s (%s)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">366</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">                paste0(content_prefix, "|  ", colon_space),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">367</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "App title",</pre>
+                      <pre class="language-r">                name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">368</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   header = tags$h1("Sample App"),</pre>
+                      <pre class="language-r">                cli::col_silver(class(lst[[name]])[1])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   footer = tags$p("Sample footer")</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">371</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">            character(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">373</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">          collapse = "\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init &lt;- function(data,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">376</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 modules,</pre>
+                      <pre class="language-r">      if (length(lst) &gt; 1) paste0(first_item, "\n", rest_items) else first_item</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 filter = teal_slices(),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 title = build_app_title(),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 header = tags$p(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">380</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 footer = tags$p(),</pre>
+                      <pre class="language-r">  bookmarkable &lt;- isTRUE(attr(x, "teal_bookmarkable"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 id = character(0),</pre>
+                      <pre class="language-r">  reportable &lt;- "reporter" %in% names(formals(x$server))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 landing_popup = NULL) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">383</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_debug("init initializing teal app with: data ('{ class(data) }').")</pre>
+                      <pre class="language-r">  transformators &lt;- if (length(x$transformators) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">384</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    paste(sapply(x$transformators, function(t) attr(t, "label")), collapse = ", ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">385</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # argument checking (independent)</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">386</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    empty_text</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `data`</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">388</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">389</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(landing_popup, "teal_module_landing", null.ok = TRUE)</pre>
+                      <pre class="language-r">  output &lt;- pasten(current_prefix, cli::bg_white(cli::col_black(x$label)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">391</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `modules`</pre>
+                      <pre class="language-r">  if ("datasets" %in% what) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">392</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">    output &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">393</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "modules",</pre>
+                      <pre class="language-r">      output,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">394</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(modules, c("teal_modules", "teal_module")),</pre>
+                      <pre class="language-r">      content_prefix, "|- ", cli::col_yellow("Datasets         : "), paste(x$datanames, collapse = ", "), "\n"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">395</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_list(modules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">397</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_module")) {</pre>
+                      <pre class="language-r">  if ("properties" %in% what) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">398</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules &lt;- list(modules)</pre>
+                      <pre class="language-r">    output &lt;- paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">399</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      output,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">400</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_list(modules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))) {</pre>
+                      <pre class="language-r">      content_prefix, "|- ", cli::col_blue("Properties:"), "\n",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">401</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules &lt;- do.call(teal::modules, modules)</pre>
+                      <pre class="language-r">      content_prefix, "|  |- ", cli::col_cyan("Bookmarkable  : "), bookmarkable, "\n",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">402</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      content_prefix, "|  L- ", cli::col_cyan("Reportable    : "), reportable, "\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `filter`</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                    <td class="num">405</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if ("ui_args" %in% what) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">406</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## all other arguments</pre>
+                      <pre class="language-r">    ui_args_formatted &lt;- format_list(x$ui_args, label_width = 19)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">407</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">    output &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">408</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "title",</pre>
+                      <pre class="language-r">      output,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">409</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(title),</pre>
+                      <pre class="language-r">      content_prefix, "|- ", cli::col_green("UI Arguments     : "), ui_args_formatted, "\n"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">410</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(title, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">412</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">  if ("server_args" %in% what) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">413</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "header",</pre>
+                      <pre class="language-r">    server_args_formatted &lt;- format_list(x$server_args, label_width = 19)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">414</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(header),</pre>
+                      <pre class="language-r">    output &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">415</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(header, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">      output,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">416</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      content_prefix, "|- ", cli::col_green("Server Arguments : "), server_args_formatted, "\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">418</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">419</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "footer",</pre>
+                      <pre class="language-r">  if ("transformators" %in% what) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">420</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(footer),</pre>
+                      <pre class="language-r">    output &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">421</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(footer, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">      output,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">422</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      content_prefix, "L- ", cli::col_magenta("Transformators   : "), transformators, "\n"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">423</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # log</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">426</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.logger::log_system_info()</pre>
+                      <pre class="language-r">  output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # argument transformations</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `modules` - landing module</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">430</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  landing &lt;- extract_module(modules, "teal_module_landing")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">431</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(landing) == 1L) {</pre>
+                      <pre class="language-r">#' custom_module &lt;- function(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">150</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">432</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    landing_popup &lt;- landing[[1L]]</pre>
+                      <pre class="language-r">#'     label = "label", ui_args = NULL, server_args = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">151</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">433</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules &lt;- drop_module(modules, "teal_module_landing")</pre>
+                      <pre class="language-r">#'     datanames = "all", transformators = list(), bk = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">152</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">434</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_soft(</pre>
+                      <pre class="language-r">#'   ans &lt;- module(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">153</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">435</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      when = "0.15.3",</pre>
+                      <pre class="language-r">#'     label,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">154</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">436</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      what = "landing_popup_module()",</pre>
+                      <pre class="language-r">#'     server = function(id, data, ...) {},</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">155</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">437</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = paste(</pre>
+                      <pre class="language-r">#'     ui = function(id, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">156</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">438</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Pass `landing_popup_module` to the `landing_popup` argument of the `init` ",</pre>
+                      <pre class="language-r">#'     },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">157</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">439</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "instead of wrapping it into `modules()` and passing to the `modules` argument"</pre>
+                      <pre class="language-r">#'     datanames = datanames,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'     transformators = transformators,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'     ui_args = ui_args,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">442</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (length(landing) &gt; 1L) {</pre>
+                      <pre class="language-r">#'     server_args = server_args</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">161</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">443</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Only one `landing_popup_module` can be used.")</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   attr(ans, "teal_bookmarkable") &lt;- bk</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ans</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `filter` - set app_id attribute unless present (when restoring bookmark)</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">447</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(attr(filter, "app_id", exact = TRUE))) attr(filter, "app_id") &lt;- create_app_id(data, modules)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">448</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' dummy_transformator &lt;- teal_transform_module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">449</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `filter` - convert teal.slice::teal_slices to teal::teal_slices</pre>
+                      <pre class="language-r">#'   label = "Dummy Transform",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">450</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  filter &lt;- as.teal_slices(as.list(filter))</pre>
+                      <pre class="language-r">#'   ui = function(id) div("(does nothing)"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   server = function(id, data) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">452</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # argument checking (interdependent)</pre>
+                      <pre class="language-r">#'     moduleServer(id, function(input, output, session) data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `filter` - `modules`</pre>
+                      <pre class="language-r">#'   }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">454</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isTRUE(attr(filter, "module_specific"))) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">173</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">455</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_names &lt;- unlist(c(module_labels(modules), "global_filters"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">174</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">456</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    failed_mod_names &lt;- setdiff(names(attr(filter, "mapping")), module_names)</pre>
+                      <pre class="language-r">#' plot_transformator &lt;- teal_transform_module(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">175</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">457</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(failed_mod_names)) {</pre>
+                      <pre class="language-r">#'   label = "Plot Settings",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">176</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">458</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(</pre>
+                      <pre class="language-r">#'   ui = function(id) div("(does nothing)"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">177</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">459</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">#'   server = function(id, data) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">178</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">460</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Some module names in the mapping arguments don't match module labels.\n %s not in %s",</pre>
+                      <pre class="language-r">#'     moduleServer(id, function(input, output, session) data)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">179</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">461</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(failed_mod_names),</pre>
+                      <pre class="language-r">#'   }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">180</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">462</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(unique(module_names))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' complete_modules &lt;- modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   custom_module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">466</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">185</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (anyDuplicated(module_names)) {</pre>
+                      <pre class="language-r">#'     label = "Data Overview",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # In teal we are able to set nested modules with duplicated label.</pre>
+                      <pre class="language-r">#'     datanames = c("ADSL", "ADAE", "ADVS"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Because mapping argument bases on the relationship between module-label and filter-id,</pre>
+                      <pre class="language-r">#'     ui_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # it is possible that module-label in mapping might refer to multiple teal_module (identified by the same label)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">189</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      stop(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">190</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "Module labels should be unique when teal_slices(mapping = TRUE). Duplicated labels:\n%s ",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">192</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          toString(module_names[duplicated(module_names)])</pre>
+                      <pre class="language-r">#'       view_type = "table",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'       page_size = 10,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'       filters = c("ARM", "SEX", "RACE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     server_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       cache = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">475</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `data` - `modules`</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(data, "teal_data")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (length(data) == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      stop("The environment of `data` is empty.")</pre>
+                      <pre class="language-r">#'       debounce = 1000</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">476</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">477</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    is_modules_ok &lt;- check_modules_datanames(modules, names(data))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (!isTRUE(is_modules_ok) &amp;&amp; length(unlist(extract_transformators(modules))) == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      warning(is_modules_ok, call. = FALSE)</pre>
+                      <pre class="language-r">#'     transformators = list(dummy_transformator),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">478</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'     bk = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">479</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    is_filter_ok &lt;- check_filter_datanames(filter, names(data))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (!isTRUE(is_filter_ok)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      warning(is_filter_ok)</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">480</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # we allow app to continue if applied filters are outside</pre>
+                      <pre class="language-r">#'   modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">481</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # of possible data range</pre>
+                      <pre class="language-r">#'     label = "Nested 1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">482</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'     custom_module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">483</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'       label = "Interactive Plots",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">484</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  reporter &lt;- teal.reporter::Reporter$new()$set_id(attr(filter, "app_id"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is_arg_used(modules, "reporter") &amp;&amp; length(extract_module(modules, "teal_module_previewer")) == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">219</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    modules &lt;- append_module(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">220</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      modules,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">221</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      reporter_previewer_module(server_args = list(previewer_buttons = c("download", "reset")))</pre>
+                      <pre class="language-r">#'       datanames = c("ADSL", "ADVS"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'       ui_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">486</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'         plot_type = c("scatter", "box", "line"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">487</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'         height = 600,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">488</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Note: UI must be a function to support bookmarking.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ui = function(request) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">229</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ui_teal(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">230</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("teal"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">231</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        modules = modules,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">232</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        title = title,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">233</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        header = header,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">234</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        footer = footer</pre>
+                      <pre class="language-r">#'         width = 800,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">489</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'         color_scheme = "viridis"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    server = function(input, output, session) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">238</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(landing_popup)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">239</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        do.call(landing_popup$server, c(list(id = "landing_module_shiny_id"), landing_popup$server_args))</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">491</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">241</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      srv_teal(id = ns("teal"), data = data, modules = modules, filter = deep_copy_filter(filter))</pre>
+                      <pre class="language-r">#'       server_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">492</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'         render_type = "svg",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">493</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'         cache_plots = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">494</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_debug("init teal app has been initialized.")</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  res</pre>
+                      <pre class="language-r">#'       transformators = list(dummy_transformator, plot_transformator),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">496</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       bk = TRUE</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_nested_tabs.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">497</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calls all `modules`</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">498</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">499</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' On the UI side each `teal_modules` is translated to a `tabsetPanel` and each `teal_module` is a</pre>
+                      <pre class="language-r">#'       label = "Nested 2",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">500</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `tabPanel`. Both, UI and server are called recursively so that each tab is a separate module and</pre>
+                      <pre class="language-r">#'       custom_module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">501</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' reflect nested structure of `modules` argument.</pre>
+                      <pre class="language-r">#'         label = "Summary Statistics",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">502</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'         datanames = "ADSL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_teal_module</pre>
+                      <pre class="language-r">#'         ui_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">504</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'           stats = c("mean", "median", "sd", "range"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">505</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams module_teal</pre>
+                      <pre class="language-r">#'           grouping = c("ARM", "SEX")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">507</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`reactive` returning `teal_data`)</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">509</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param slices_global (`reactiveVal` returning `modules_teal_slices`)</pre>
+                      <pre class="language-r">#'         label = "Labeled nested modules",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   see [`module_filter_manager`]</pre>
+                      <pre class="language-r">#'         custom_module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'           label = "Subgroup Analysis",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">512</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param depth (`integer(1)`)</pre>
+                      <pre class="language-r">#'           datanames = c("ADSL", "ADAE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number which helps to determine depth of the modules nesting.</pre>
+                      <pre class="language-r">#'           ui_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">514</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'             subgroups = c("AGE", "SEX", "RACE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datasets (`reactive` returning `FilteredData` or `NULL`)</pre>
+                      <pre class="language-r">#'             analysis_type = "stratified"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">516</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  When `datasets` is passed from the parent module (`srv_teal`) then `dataset` is a singleton</pre>
+                      <pre class="language-r">#'           ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">517</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  which implies in filter-panel to be "global". When `NULL` then filter-panel is "module-specific".</pre>
+                      <pre class="language-r">#'           bk = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">518</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">519</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data_load_status (`reactive` returning `character`)</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">520</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Determines action dependent on a data loading status:</pre>
+                      <pre class="language-r">#'       modules(custom_module(label = "Subgroup Analysis in non-labled modules"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">521</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `"ok"` when `teal_data` is returned from the data loading.</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">522</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `"teal_data_module failed"` when [teal_data_module()] didn't return  `teal_data`. Disables tabs buttons.</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">523</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `"external failed"` when a `reactive` passed to `srv_teal(data)` didn't return `teal_data`. Hides the whole tab</pre>
+                      <pre class="language-r">#'   custom_module("Non-nested module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">524</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    panel.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">525</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">526</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' cat(format(complete_modules))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' output of currently active module.</pre>
+                      <pre class="language-r">#' cat(format(complete_modules, what = c("ui_args", "server_args", "transformators")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">528</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `srv_teal_module.teal_module` returns `reactiveVal` containing output of the called module.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">529</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `srv_teal_module.teal_modules` returns output of module selected by `input$active_tab`.</pre>
+                      <pre class="language-r">format.teal_modules &lt;- function(x, is_root = TRUE, is_last = FALSE, parent_prefix = "", ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">530</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (is_root) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">531</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    header &lt;- pasten(cli::style_bold("TEAL ROOT"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">532</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_module</pre>
+                      <pre class="language-r">    new_parent_prefix &lt;- "  " #' Initial indent for root level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">533</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_teal_module &lt;- function(id, modules, depth = 0L) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">40</td>
+                    <td class="num">534</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module", "shiny.tag"))</pre>
+                      <pre class="language-r">    if (!is.null(x$label)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">41</td>
+                    <td class="num">535</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(depth)</pre>
+                      <pre class="language-r">      branch &lt;- if (is_last) "L-" else "|-"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">42</td>
+                    <td class="num">536</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("ui_teal_module", modules)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_module</pre>
+                      <pre class="language-r">      header &lt;- pasten(parent_prefix, branch, " ", cli::style_bold(x$label))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">537</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      new_parent_prefix &lt;- paste0(parent_prefix, if (is_last) "   " else "|  ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">538</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_teal_module.default &lt;- function(id, modules, depth = 0L) {</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">48</td>
+                    <td class="num">539</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stop("Modules class not supported: ", paste(class(modules), collapse = " "))</pre>
+                      <pre class="language-r">      header &lt;- ""</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">540</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      new_parent_prefix &lt;- parent_prefix</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">541</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">542</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_module</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">543</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">544</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_teal_module.teal_modules &lt;- function(id, modules, depth = 0L) {</pre>
+                      <pre class="language-r">  if (length(x$children) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">54</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">545</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">    children_output &lt;- character(0)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">55</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">546</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$div(</pre>
+                      <pre class="language-r">    n_children &lt;- length(x$children)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">56</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">547</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = ns("wrapper"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">57</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">548</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(</pre>
+                      <pre class="language-r">    for (i in seq_along(x$children)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">58</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">549</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tabsetPanel,</pre>
+                      <pre class="language-r">      child &lt;- x$children[[i]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">59</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">550</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c(</pre>
+                      <pre class="language-r">      is_last_child &lt;- (i == n_children)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">551</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # by giving an id, we can reactively respond to tab changes</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">61</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">552</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(</pre>
+                      <pre class="language-r">      if (inherits(child, "teal_modules")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">62</td>
+                    <td class="num">553</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("active_tab"),</pre>
+                      <pre class="language-r">        children_output &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">63</td>
+                    <td class="num">554</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = if (modules$label == "root") "pills" else "tabs"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">          children_output,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">65</td>
+                    <td class="num">555</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(</pre>
+                      <pre class="language-r">          format(child,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">66</td>
+                    <td class="num">556</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          names(modules$children),</pre>
+                      <pre class="language-r">            is_root = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">67</td>
+                    <td class="num">557</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          function(module_id) {</pre>
+                      <pre class="language-r">            is_last = is_last_child,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">68</td>
+                    <td class="num">558</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            module_label &lt;- modules$children[[module_id]]$label</pre>
+                      <pre class="language-r">            parent_prefix = new_parent_prefix,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">69</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">559</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (is.null(module_label)) {</pre>
+                      <pre class="language-r">            ...</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">70</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">560</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              module_label &lt;- icon("fas fa-database")</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">561</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">72</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">562</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tabPanel(</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">73</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">563</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              title = module_label,</pre>
+                      <pre class="language-r">        children_output &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">74</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">564</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              value = module_id, # when clicked this tab value changes input$&lt;tabset panel id&gt;</pre>
+                      <pre class="language-r">          children_output,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">75</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">565</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ui_teal_module(</pre>
+                      <pre class="language-r">          format(child,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">76</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">566</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                id = ns(module_id),</pre>
+                      <pre class="language-r">            is_last = is_last_child,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">77</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">567</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                modules = modules$children[[module_id]],</pre>
+                      <pre class="language-r">            parent_prefix = new_parent_prefix,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">78</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">568</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                depth = depth + 1L</pre>
+                      <pre class="language-r">            ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">569</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">570</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">571</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">572</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">573</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">574</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    paste0(header, paste(children_output, collapse = ""))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">575</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">576</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    header</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">578</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">579</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">580</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_module</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">581</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">582</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_teal_module.teal_module &lt;- function(id, modules, depth = 0L) {</pre>
+                      <pre class="language-r">print.teal_module &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">91</td>
+                    <td class="num">583</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">  cat(format(x, ...))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">92</td>
+                    <td class="num">584</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- c(list(id = ns("module")), modules$ui_args)</pre>
+                      <pre class="language-r">  invisible(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">585</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">94</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">586</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ui_teal &lt;- tagList(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">95</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">587</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyjs::hidden(</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">96</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">588</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">97</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">589</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("transform_failure_info"),</pre>
+                      <pre class="language-r">print.teal_modules &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">98</td>
+                    <td class="num">590</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "teal_validated",</pre>
+                      <pre class="language-r">  cat(format(x, ...))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">99</td>
+                    <td class="num">591</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        div(</pre>
+                      <pre class="language-r">  invisible(x)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">100</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">592</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "teal-output-warning",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">101</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">593</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "One of transformators failed. Please check its inputs."</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">594</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param modules (`teal_module` or `teal_modules`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">595</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">596</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">105</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">597</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(</pre>
+                      <pre class="language-r">#' # change the module's datanames</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">106</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">598</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = ns("teal_module_ui"),</pre>
+                      <pre class="language-r">#' set_datanames(module(datanames = "all"), "a")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">107</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">599</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">600</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "teal_validated",</pre>
+                      <pre class="language-r">#' # change modules' datanames</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">109</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">601</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ui_check_module_datanames(ns("validate_datanames"))</pre>
+                      <pre class="language-r">#' set_datanames(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">602</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#'   modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">111</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">603</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(modules$ui, args)</pre>
+                      <pre class="language-r">#'     module(datanames = "all"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">604</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'     module(datanames = "a")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">605</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">606</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   "b"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">115</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">607</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  div(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">116</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">608</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = id,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">117</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">609</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "teal_module",</pre>
+                      <pre class="language-r">set_datanames &lt;- function(modules, datanames) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">118</td>
+                    <td class="num">610</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    uiOutput(ns("data_reactive"), inline = TRUE),</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">119</td>
+                    <td class="num">611</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tagList(</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">120</td>
+                    <td class="num">612</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (depth &gt;= 2L) tags$div(style = "mt-6"),</pre>
+                      <pre class="language-r">    modules$children &lt;- lapply(modules$children, set_datanames, datanames)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">121</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(modules$datanames)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">122</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">613</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fluidRow(</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">123</td>
+                    <td class="num">614</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          column(width = 9, ui_teal, class = "teal_primary_col"),</pre>
+                      <pre class="language-r">    if (identical(modules$datanames, "all")) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">124</td>
+                    <td class="num">615</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          column(</pre>
+                      <pre class="language-r">      modules$datanames &lt;- datanames</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">125</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">616</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            width = 3,</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">126</td>
+                    <td class="num">617</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ui_data_summary(ns("data_summary")),</pre>
+                      <pre class="language-r">      warning(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">127</td>
+                    <td class="num">618</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ui_filter_data(ns("filter_panel")),</pre>
+                      <pre class="language-r">        "Not possible to modify datanames of the module ", modules$label,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">128</td>
+                    <td class="num">619</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ui_transform_teal_data(ns("data_transform"), transformators = modules$transformators, class = "well"),</pre>
+                      <pre class="language-r">        ". set_datanames() can only change datanames if it was set to \"all\".",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">129</td>
+                    <td class="num">620</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "teal_secondary_col"</pre>
+                      <pre class="language-r">        call. = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">621</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">622</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">623</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">133</td>
+                    <td class="num">624</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ui_teal</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">625</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">626</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">627</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_module</pre>
+                      <pre class="language-r"># utilities ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">628</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_teal_module &lt;- function(id,</pre>
+                      <pre class="language-r">## subset or modify modules ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">629</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">630</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            modules,</pre>
+                      <pre class="language-r">#' Append a `teal_module` to `children` of a `teal_modules` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">631</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            datasets = NULL,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">632</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            slices_global,</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">633</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            reporter = teal.reporter::Reporter$new(),</pre>
+                      <pre class="language-r">#' @param module (`teal_module`) object to be appended onto the children of `modules`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">634</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            data_load_status = reactive("ok"),</pre>
+                      <pre class="language-r">#' @return A `teal_modules` object with `module` appended.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">635</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            is_active = reactive(TRUE)) {</pre>
+                      <pre class="language-r">append_module &lt;- function(modules, module) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="num">636</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="num">637</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_reactive(data)</pre>
+                      <pre class="language-r">  checkmate::assert_class(module, "teal_module")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="num">638</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
+                      <pre class="language-r">  modules$children &lt;- c(modules$children, list(module))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="num">639</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_reactive(datasets, null.ok = TRUE)</pre>
+                      <pre class="language-r">  labels &lt;- vapply(modules$children, function(submodule) submodule$label, character(1))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="num">640</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(slices_global, ".slicesGlobal")</pre>
+                      <pre class="language-r">  names(modules$children) &lt;- get_unique_labels(labels)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="num">641</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(reporter, "Reporter")</pre>
+                      <pre class="language-r">  modules</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">199<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">642</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_reactive(data_load_status)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">199<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">643</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("srv_teal_module", modules)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">644</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' Extract/Remove module(s) of specific class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">645</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">646</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_module</pre>
+                      <pre class="language-r">#' Given a `teal_module` or a `teal_modules`, return the elements of the structure according to `class`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">647</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">648</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_teal_module.default &lt;- function(id,</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">649</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    data,</pre>
+                      <pre class="language-r">#' @param class The class name of `teal_module` to be extracted or dropped.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">650</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    modules,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">651</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    datasets = NULL,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">652</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    slices_global,</pre>
+                      <pre class="language-r">#' - For `extract_module`, a `teal_module` of class `class` or `teal_modules` containing modules of class `class`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">653</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    reporter = teal.reporter::Reporter$new(),</pre>
+                      <pre class="language-r">#' - For `drop_module`, the opposite, which is all `teal_modules` of  class other than `class`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">654</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    data_load_status = reactive("ok"),</pre>
+                      <pre class="language-r">#' @rdname module_management</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">655</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    is_active = reactive(TRUE)) {</pre>
+                      <pre class="language-r">extract_module &lt;- function(modules, class) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">168</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">656</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stop("Modules class not supported: ", paste(class(modules), collapse = " "))</pre>
+                      <pre class="language-r">  if (inherits(modules, class)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">657</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    modules</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">658</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">659</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_module</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">660</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">661</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_teal_module.teal_modules &lt;- function(id,</pre>
+                      <pre class="language-r">    Filter(function(x) length(x) &gt; 0L, lapply(modules$children, extract_module, class))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">662</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         data,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">663</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         modules,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">664</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         datasets = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">665</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         slices_global,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">666</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         reporter = teal.reporter::Reporter$new(),</pre>
+                      <pre class="language-r">#' @return `teal_modules`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">667</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         data_load_status = reactive("ok"),</pre>
+                      <pre class="language-r">#' @rdname module_management</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">668</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         is_active = reactive(TRUE)) {</pre>
+                      <pre class="language-r">drop_module &lt;- function(modules, class) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">669</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id = id, module = function(input, output, session) {</pre>
+                      <pre class="language-r">  if (inherits(modules, class)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">670</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_debug("srv_teal_module.teal_modules initializing the module { deparse1(modules$label) }.")</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">671</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">672</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(data_load_status(), {</pre>
+                      <pre class="language-r">    modules</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">80<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">673</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tabs_selector &lt;- sprintf("#%s li a", session$ns("active_tab"))</pre>
+                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">80<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">674</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(data_load_status(), "ok")) {</pre>
+                      <pre class="language-r">    do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">675</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_teal_module@1 enabling modules tabs.")</pre>
+                      <pre class="language-r">      "modules",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">676</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::show("wrapper")</pre>
+                      <pre class="language-r">      c(Filter(function(x) length(x) &gt; 0L, lapply(modules$children, drop_module, class)), label = modules$label)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">677</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::enable(selector = tabs_selector)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">678</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (identical(data_load_status(), "teal_data_module failed")) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">679</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_teal_module@1 disabling modules tabs.")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">680</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::disable(selector = tabs_selector)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">193</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">681</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (identical(data_load_status(), "external failed")) {</pre>
+                      <pre class="language-r">## read modules ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">194</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">682</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_teal_module@1 hiding modules tabs.")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">195</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">683</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::hide("wrapper")</pre>
+                      <pre class="language-r">#' Does the object make use of the `arg`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">684</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">685</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' @param modules (`teal_module` or `teal_modules`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">686</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param arg (`character(1)`) names of the arguments to be checked against formals of `teal` modules.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">687</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules_output &lt;- sapply(</pre>
+                      <pre class="language-r">#' @return `logical` whether the object makes use of `arg`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">688</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(modules$children),</pre>
+                      <pre class="language-r">#' @rdname is_arg_used</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">689</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(module_id) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">690</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        srv_teal_module(</pre>
+                      <pre class="language-r">is_arg_used &lt;- function(modules, arg) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">691</td>
+                    <td class="coverage">519<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = module_id,</pre>
+                      <pre class="language-r">  checkmate::assert_string(arg)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">692</td>
+                    <td class="coverage">516<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data = data,</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">693</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          modules = modules$children[[module_id]],</pre>
+                      <pre class="language-r">    any(unlist(lapply(modules$children, is_arg_used, arg)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">694</td>
+                    <td class="coverage">496<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          datasets = datasets,</pre>
+                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">695</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slices_global = slices_global,</pre>
+                      <pre class="language-r">    is_arg_used(modules$server, arg) || is_arg_used(modules$ui, arg)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">696</td>
+                    <td class="coverage">464<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          reporter = reporter,</pre>
+                      <pre class="language-r">  } else if (is.function(modules)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">697</td>
+                    <td class="coverage">462<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_active = reactive(</pre>
+                      <pre class="language-r">    isTRUE(arg %in% names(formals(modules)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">698</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            is_active() &amp;&amp;</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">699</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              input$active_tab == module_id &amp;&amp;</pre>
+                      <pre class="language-r">    stop("is_arg_used function not implemented for this object")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">700</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              identical(data_load_status(), "ok")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">701</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">702</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">703</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">704</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      simplify = FALSE</pre>
+                      <pre class="language-r">#' Get module depth</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">705</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">706</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Depth starts at 0, so a single `teal.module` has depth 0.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">707</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules_output</pre>
+                      <pre class="language-r">#' Nesting it increases overall depth by 1.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">708</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">709</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @inheritParams init</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">710</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param depth optional integer determining current depth level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">711</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_module</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">712</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return Depth level for given module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">713</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_teal_module.teal_module &lt;- function(id,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">714</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        data,</pre>
+                      <pre class="language-r">modules_depth &lt;- function(modules, depth = 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">227</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">715</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        modules,</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_module", "teal_modules"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">228</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">716</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        datasets = NULL,</pre>
+                      <pre class="language-r">  checkmate::assert_int(depth, lower = 0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">229</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">717</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        slices_global,</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">718</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    max(vapply(modules$children, modules_depth, integer(1), depth = depth + 1L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">719</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        reporter = teal.reporter::Reporter$new(),</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">720</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    depth</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">721</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        data_load_status = reactive("ok"),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">722</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        is_active = reactive(TRUE)) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">723</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_debug("srv_teal_module.teal_module initializing the module: { deparse1(modules$label) }.")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">724</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id = id, module = function(input, output, session) {</pre>
+                      <pre class="language-r">#' Retrieve labels from `teal_modules`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">725</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_out &lt;- reactiveVal()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">726</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">727</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_datanames &lt;- reactive({</pre>
+                      <pre class="language-r">#' @return A `list` containing the labels of the modules. If the modules are nested,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">728</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .resolve_module_datanames(data = data(), modules = modules)</pre>
+                      <pre class="language-r">#' the function returns a nested `list` of labels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">729</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">730</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(datasets)) {</pre>
+                      <pre class="language-r">module_labels &lt;- function(modules) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">731</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets &lt;- eventReactive(data(), {</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">732</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req(inherits(data(), "teal_data"))</pre>
+                      <pre class="language-r">    lapply(modules$children, module_labels)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">733</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_debug("srv_teal_module@1 initializing module-specific FilteredData")</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">734</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal_data_to_filtered_data(data(), datanames = active_datanames())</pre>
+                      <pre class="language-r">    modules$label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">735</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">736</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">737</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">738</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # manage module filters on the module level</pre>
+                      <pre class="language-r">#' Retrieve `teal_bookmarkable` attribute from `teal_modules`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">739</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # important:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">740</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   filter_manager_module_srv needs to be called before filter_panel_srv</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules` or `teal_module`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">741</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   Because available_teal_slices is used in FilteredData$srv_available_slices (via srv_filter_panel)</pre>
+                      <pre class="language-r">#' @return named list of the same structure as `modules` with `TRUE` or `FALSE` values indicating</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">742</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   and if it is not set, then it won't be available in the srv_filter_panel</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">112<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    srv_module_filter_manager(modules$label, module_fd = datasets, slices_global = slices_global)</pre>
+                      <pre class="language-r">#' whether the module is bookmarkable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">743</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">744</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    call_once_when(is_active(), {</pre>
+                      <pre class="language-r">modules_bookmarkable &lt;- function(modules) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">745</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filtered_teal_data &lt;- srv_filter_data(</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">746</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "filter_panel",</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">747</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        datasets = datasets,</pre>
+                      <pre class="language-r">    setNames(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">748</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        active_datanames = active_datanames,</pre>
+                      <pre class="language-r">      lapply(modules$children, modules_bookmarkable),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">749</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = data,</pre>
+                      <pre class="language-r">      vapply(modules$children, `[[`, "label", FUN.VALUE = character(1))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">750</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_active = is_active</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">751</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">752</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_transform_failed &lt;- reactiveValues()</pre>
+                      <pre class="language-r">    attr(modules, "teal_bookmarkable", exact = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">753</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      transformed_teal_data &lt;- srv_transform_teal_data(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">754</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "data_transform",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">86<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_bookmark_manager.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = filtered_teal_data,</pre>
+                      <pre class="language-r">#' App state management.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        transformators = modules$transformators,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modules = modules,</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_transform_failed = is_transform_failed</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      any_transform_failed &lt;- reactive({</pre>
+                      <pre class="language-r">#' Capture and restore the global (app) input state.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        any(unlist(reactiveValuesToList(is_transform_failed)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' This module introduces bookmarks into `teal` apps: the `shiny` bookmarking mechanism becomes enabled</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      observeEvent(any_transform_failed(), {</pre>
+                      <pre class="language-r">#' and server-side bookmarks can be created.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (isTRUE(any_transform_failed())) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("teal_module_ui")</pre>
+                      <pre class="language-r">#' The bookmark manager presents a button with the bookmark icon and is placed in the tab-bar.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("transform_failure_info")</pre>
+                      <pre class="language-r">#' When clicked, the button creates a bookmark and opens a modal which displays the bookmark URL.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">80<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("teal_module_ui")</pre>
+                      <pre class="language-r">#' `teal` does not guarantee that all modules (`teal_module` objects) are bookmarkable.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">80<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("transform_failure_info")</pre>
+                      <pre class="language-r">#' Those that are, have a `teal_bookmarkable` attribute set to `TRUE`. If any modules are not bookmarkable,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' the bookmark manager modal displays a warning and the bookmark button displays a flag.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">#' In order to communicate that a external module is bookmarkable, the module developer</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' should set the `teal_bookmarkable` attribute to `TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      module_teal_data &lt;- reactive({</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">94<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        req(inherits(transformed_teal_data(), "teal_data"))</pre>
+                      <pre class="language-r">#' @section Server logic:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_teal_data &lt;- transformed_teal_data()</pre>
+                      <pre class="language-r">#' A bookmark is a URL that contains the app address with a `/?_state_id_=&lt;bookmark_dir&gt;` suffix.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_datanames &lt;- .resolve_module_datanames(data = all_teal_data, modules = modules)</pre>
+                      <pre class="language-r">#' `&lt;bookmark_dir&gt;` is a directory created on the server, where the state of the application is saved.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all_teal_data[c(module_datanames, ".raw_data")]</pre>
+                      <pre class="language-r">#' Accessing the bookmark URL opens a new session of the app that starts in the previously saved state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @section Note:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      srv_check_module_datanames(</pre>
+                      <pre class="language-r">#' To enable bookmarking use either:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "validate_datanames",</pre>
+                      <pre class="language-r">#' - `shiny` app by using `shinyApp(..., enableBookmarking = "server")` (not supported in `shinytest2`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = module_teal_data,</pre>
+                      <pre class="language-r">#' - set `options(shiny.bookmarkStore = "server")` before running the app</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modules = modules</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams init</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      summary_table &lt;- srv_data_summary("data_summary", module_teal_data)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return Invisible `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Call modules.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!inherits(modules, "teal_module_previewer")) {</pre>
+                      <pre class="language-r">#' @aliases bookmark bookmark_manager bookmark_manager_module</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        obs_module &lt;- call_once_when(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          !is.null(module_teal_data()),</pre>
+                      <pre class="language-r">#' @name module_bookmark_manager</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ignoreNULL = TRUE,</pre>
+                      <pre class="language-r">#' @rdname module_bookmark_manager</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          handlerExpr = {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">80<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            module_out(.call_teal_module(modules, datasets, module_teal_data, reporter))</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Report previewer must be initiated on app start for report cards to be included in bookmarks.</pre>
+                      <pre class="language-r">#' @rdname module_bookmark_manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # When previewer is delayed, cards are bookmarked only if previewer has been initiated (visited).</pre>
+                      <pre class="language-r">ui_bookmark_panel &lt;- function(id, modules) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">312</td>
+                    <td class="num">47</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_out(.call_teal_module(modules, datasets, module_teal_data, reporter))</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">49</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  bookmark_option &lt;- get_bookmarking_option()</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">50</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  is_unbookmarkable &lt;- need_bookmarking(modules)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">51</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  shinyOptions(bookmarkStore = bookmark_option)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Render bookmark warnings count</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">54</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_out</pre>
+                      <pre class="language-r">  if (!all(is_unbookmarkable) &amp;&amp; identical(bookmark_option, "server")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">55</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    tags$button(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">56</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      id = ns("do_bookmark"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">57</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      class = "btn action-button wunder_bar_button bookmark_manager_button",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">58</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      title = "Add bookmark",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">59</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      tags$span(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">60</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        suppressMessages(icon("fas fa-bookmark")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">61</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (any(is_unbookmarkable)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">62</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          tags$span(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">63</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            sum(is_unbookmarkable),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">64</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            class = "badge-warning badge-count text-white bg-danger"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This function calls a module server function.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.call_teal_module &lt;- function(modules, datasets, data, reporter) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">80<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_reactive(data)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # collect arguments to run teal_module</pre>
+                      <pre class="language-r">#' @rdname module_bookmark_manager</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">srv_bookmark_panel &lt;- function(id, modules) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">80<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- c(list(id = "module"), modules$server_args)</pre>
+                      <pre class="language-r">  checkmate::assert_character(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">80<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is_arg_used(modules$server, "reporter")) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    args &lt;- c(args, list(reporter = reporter))</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">87<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    logger::log_debug("bookmark_manager_srv initializing")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">87<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ns &lt;- session$ns</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">87<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    bookmark_option &lt;- get_bookmarking_option()</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">87<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    is_unbookmarkable &lt;- need_bookmarking(modules)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Set up bookmarking callbacks ----</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # Register bookmark exclusions: do_bookmark button to avoid re-bookmarking</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">80<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is_arg_used(modules$server, "datasets")) {</pre>
+                      <pre class="language-r">    setBookmarkExclude(c("do_bookmark"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # This bookmark can only be used on the app session.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    args &lt;- c(args, datasets = datasets())</pre>
+                      <pre class="language-r">    app_session &lt;- .subset2(session, "parent")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("datasets argument is not reactive and therefore it won't be updated when data is refreshed.")</pre>
+                      <pre class="language-r">    app_session$onBookmarked(function(url) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">88</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      logger::log_debug("bookmark_manager_srv@onBookmarked: bookmark button clicked, registering bookmark")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">89</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      modal_content &lt;- if (bookmark_option != "server") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">90</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        msg &lt;- sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">91</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "Bookmarking has been set to \"%s\".\n%s\n%s",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">92</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          bookmark_option,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">93</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "Only server-side bookmarking is supported.",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">94</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "Please contact your app developer."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">96</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        tags$div(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">97</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          tags$p(msg, class = "text-warning")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">100</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        tags$div(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">101</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          tags$span(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">102</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            tags$pre(url)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">104</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          if (any(is_unbookmarkable)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">105</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            bkmb_summary &lt;- rapply2(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">106</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              modules_bookmarkable(modules),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">107</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              function(x) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">108</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                if (isTRUE(x)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">109</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  "\u2705" # check mark</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">110</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                } else if (isFALSE(x)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">111</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  "\u274C" # cross mark</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">113</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  "\u2753" # question mark</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            )</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">117</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            tags$div(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">118</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              tags$p(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">119</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                icon("fas fa-exclamation-triangle"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">120</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                "Some modules will not be restored when using this bookmark.",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">121</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                tags$br(),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">122</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                "Check the list below to see which modules are not bookmarkable.",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">123</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                class = "text-warning"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">125</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              tags$pre(yaml::as.yaml(bkmb_summary))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">131</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      showModal(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">132</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        modalDialog(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">133</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          id = ns("bookmark_modal"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">134</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          title = "Bookmarked teal app url",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">135</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          modal_content,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">136</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          easyClose = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">80<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is_arg_used(modules$server, "data")) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">336</td>
-                    <td class="coverage">76<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">139</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    args &lt;- c(args, data = list(data))</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # manually trigger bookmarking because of the problems reported on windows with bookmarkButton in teal</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">80<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is_arg_used(modules$server, "filter_panel_api")) {</pre>
+                      <pre class="language-r">    observeEvent(input$do_bookmark, {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">143</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    args &lt;- c(args, filter_panel_api = teal.slice::FilterPanelAPI$new(datasets()))</pre>
+                      <pre class="language-r">      logger::log_debug("bookmark_manager_srv@1 do_bookmark module clicked.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">341</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">144</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      session$doBookmark()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">80<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is_arg_used(modules$server, "id")) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">80<em>x</em></td>
+                    <td class="num">147</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(modules$server, args)</pre>
+                      <pre class="language-r">    invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">346</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(callModule, c(args, list(module = modules$server)))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname module_bookmark_manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.resolve_module_datanames &lt;- function(data, modules) {</pre>
+                      <pre class="language-r">get_bookmarking_option &lt;- function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">177<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stopifnot("data must be teal_data object." = inherits(data, "teal_data"))</pre>
+                      <pre class="language-r">  bookmark_option &lt;- getShinyOption("bookmarkStore")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">177<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(modules$datanames) || identical(modules$datanames, "all")) {</pre>
+                      <pre class="language-r">  if (is.null(bookmark_option) &amp;&amp; identical(getOption("shiny.bookmarkStore"), "server")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">145<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">156</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(data)</pre>
+                      <pre class="language-r">    bookmark_option &lt;- getOption("shiny.bookmarkStore")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">32<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    intersect(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">158</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(data), # Keep topological order from teal.data::names()</pre>
+                      <pre class="language-r">  bookmark_option</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .include_parent_datanames(modules$datanames, teal.data::join_keys(data))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @rdname module_bookmark_manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">need_bookmarking &lt;- function(modules) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">361</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  unlist(rapply2(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">362</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calls expression when condition is met</pre>
+                      <pre class="language-r">    modules_bookmarkable(modules),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">363</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    Negate(isTRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function postpones `handlerExpr` to the moment when `eventExpr` (condition) returns `TRUE`,</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' otherwise nothing happens.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param eventExpr A (quoted or unquoted) logical expression that represents the event;</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' this can be a simple reactive value like input$click, a call to a reactive expression</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' like dataset(), or even a complex expression inside curly braces.</pre>
+                      <pre class="language-r"># utilities ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... additional arguments passed to `observeEvent` with the exception of `eventExpr` that is not allowed.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shiny::observeEvent</pre>
+                      <pre class="language-r">#' Restore value from bookmark.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An observer.</pre>
+                      <pre class="language-r">#' Get value from bookmark or return default.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' Bookmarks can store not only inputs but also arbitrary values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">call_once_when &lt;- function(eventExpr, # nolint: object_name.</pre>
+                      <pre class="language-r">#' These values are stored by `onBookmark` callbacks and restored by `onBookmarked` callbacks,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           handlerExpr, # nolint: object_name.</pre>
+                      <pre class="language-r">#' and they are placed in the `values` environment in the `session$restoreContext` field.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           event.env = parent.frame(), # nolint: object_name.</pre>
+                      <pre class="language-r">#' Using `teal_data_module` makes it impossible to run the callbacks</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           handler.env = parent.frame(), # nolint: object_name.</pre>
+                      <pre class="language-r">#' because the app becomes ready before modules execute and callbacks are registered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">198<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  event_quo &lt;- rlang::new_quosure(substitute(eventExpr), env = event.env)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">198<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  handler_quo &lt;- rlang::new_quosure(substitute(handlerExpr), env = handler.env)</pre>
+                      <pre class="language-r">#' In those cases the stored values can still be recovered from the `session` object directly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # When `condExpr` is TRUE, then `handlerExpr` is evaluated once.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">198<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  activator &lt;- reactive({</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">198<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (isTRUE(rlang::eval_tidy(event_quo))) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">166<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      TRUE</pre>
+                      <pre class="language-r">#' Note that variable names in the `values` environment are prefixed with module name space names,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' therefore, when using this function in modules, `value` must be run through the name space function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">198<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  observeEvent(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">198<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    eventExpr = activator(),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">198<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    once = TRUE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">198<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    handlerExpr = rlang::eval_tidy(handler_quo),</pre>
+                      <pre class="language-r">#' @param value (`character(1)`) name of value to restore</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ...</pre>
+                      <pre class="language-r">#' @param default fallback value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/validations.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validate that dataset has a minimum number of observations</pre>
+                      <pre class="language-r">#' In an application restored from a server-side bookmark,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' the variable specified by `value` from the `values` environment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' Otherwise `default`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`data.frame`)</pre>
+                      <pre class="language-r">restoreValue &lt;- function(value, default) { # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">174<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param min_nrow (`numeric(1)`) Minimum allowed number of rows in `x`.</pre>
+                      <pre class="language-r">  checkmate::assert_character("value")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">174<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param complete (`logical(1)`) Flag specifying whether to check only complete cases. Defaults to `FALSE`.</pre>
+                      <pre class="language-r">  session_default &lt;- shiny::getDefaultReactiveDomain()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">174<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param allow_inf (`logical(1)`) Flag specifying whether to allow infinite values. Defaults to `TRUE`.</pre>
+                      <pre class="language-r">  session_parent &lt;- .subset2(session_default, "parent")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">174<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param msg (`character(1)`) Additional message to display alongside the default message.</pre>
+                      <pre class="language-r">  session &lt;- if (is.null(session_parent)) session_default else session_parent</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">174<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  if (isTRUE(session$restoreContext$active) &amp;&amp; exists(value, session$restoreContext$values, inherits = FALSE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">203</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    session$restoreContext$values[[value]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">174<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    default</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sliderInput("len", "Max Length of Sepal",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     min = 4.3, max = 7.9, value = 5</pre>
+                      <pre class="language-r">#' Compare bookmarks.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   plotOutput("plot")</pre>
+                      <pre class="language-r">#' Test if two bookmarks store identical state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' `input` environments are compared one variable at a time and if not identical,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r">#' values in both bookmarks are reported. States of `datatable`s are stripped</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
+                      <pre class="language-r">#' of the `time` element before comparing because the time stamp is always different.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     iris_df &lt;- iris[iris$Sepal.Length &lt;= input$len, ]</pre>
+                      <pre class="language-r">#' The contents themselves are not printed as they are large and the contents are not informative.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_has_data(</pre>
+                      <pre class="language-r">#' Elements present in one bookmark and absent in the other are also reported.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       iris_df,</pre>
+                      <pre class="language-r">#' Differences are printed as messages.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       min_nrow = 10,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       complete = FALSE,</pre>
+                      <pre class="language-r">#' `values` environments are compared with `all.equal`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       msg = "Please adjust Max Length of Sepal"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' @section How to use:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Open an application, change relevant inputs (typically, all of them), and create a bookmark.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     hist(iris_df$Sepal.Length, breaks = 5)</pre>
+                      <pre class="language-r">#' Then open that bookmark and immediately create a bookmark of that.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#' If restoring bookmarks occurred properly, the two bookmarks should store the same state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">#' @param book1,book2 bookmark directories stored in `shiny_bookmarks/`;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'                    default to the two most recently modified directories</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_has_data &lt;- function(x,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              min_nrow = NULL,</pre>
+                      <pre class="language-r">#' Invisible `NULL` if bookmarks are identical or if there are no bookmarks to test.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              complete = FALSE,</pre>
+                      <pre class="language-r">#' `FALSE` if inconsistencies are detected.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              allow_inf = TRUE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              msg = NULL) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">236</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(msg, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">237</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(x)</pre>
+                      <pre class="language-r">bookmarks_identical &lt;- function(book1, book2) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">238</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(min_nrow)) {</pre>
+                      <pre class="language-r">  if (!dir.exists("shiny_bookmarks")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (complete) {</pre>
+                      <pre class="language-r">    message("no bookmark directory")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">240</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      complete_index &lt;- stats::complete.cases(x)</pre>
+                      <pre class="language-r">    return(invisible(NULL))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">241</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">242</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sum(complete_index) &gt; 0 &amp;&amp; nrow(x[complete_index, , drop = FALSE]) &gt;= min_nrow,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">243</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste(c(paste("Number of complete cases is less than:", min_nrow), msg), collapse = "\n")</pre>
+                      <pre class="language-r">  ans &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">245</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">  if (missing(book1) &amp;&amp; missing(book2)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">246</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(</pre>
+                      <pre class="language-r">    dirs &lt;- list.dirs("shiny_bookmarks", recursive = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">247</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nrow(x) &gt;= min_nrow,</pre>
+                      <pre class="language-r">    bookmarks_sorted &lt;- basename(rev(dirs[order(file.mtime(dirs))]))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">248</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste(</pre>
+                      <pre class="language-r">    if (length(bookmarks_sorted) &lt; 2L) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">249</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(paste("Minimum number of records not met: &gt;=", min_nrow, "records required."), msg),</pre>
+                      <pre class="language-r">      message("no bookmarks to compare")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">250</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          collapse = "\n"</pre>
+                      <pre class="language-r">      return(invisible(NULL))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">252</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">    book1 &lt;- bookmarks_sorted[2L]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">253</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    book2 &lt;- bookmarks_sorted[1L]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">255</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!allow_inf) {</pre>
+                      <pre class="language-r">    if (!dir.exists(file.path("shiny_bookmarks", book1))) stop(book1, " not found")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">256</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(</pre>
+                      <pre class="language-r">    if (!dir.exists(file.path("shiny_bookmarks", book2))) stop(book2, " not found")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all(vapply(x, function(col) !is.numeric(col) || !any(is.infinite(col)), logical(1))),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Dataframe contains Inf values which is not allowed."</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">259</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">  book1_input &lt;- readRDS(file.path("shiny_bookmarks", book1, "input.rds"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">260</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  book2_input &lt;- readRDS(file.path("shiny_bookmarks", book2, "input.rds"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">262</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  elements_common &lt;- intersect(names(book1_input), names(book2_input))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">263</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  dt_states &lt;- grepl("_state$", elements_common)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">264</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validate that dataset has unique rows for key variables</pre>
+                      <pre class="language-r">  if (any(dt_states)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">265</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    for (el in elements_common[dt_states]) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">266</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      book1_input[[el]][["time"]] &lt;- NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">267</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      book2_input[[el]][["time"]] &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`data.frame`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">271</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param key (`character`) Vector of ID variables from `x` that identify unique records.</pre>
+                      <pre class="language-r">  identicals &lt;- mapply(identical, book1_input[elements_common], book2_input[elements_common])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">272</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  non_identicals &lt;- names(identicals[!identicals])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">273</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  compares &lt;- sprintf("$ %s:\t%s --- %s", non_identicals, book1_input[non_identicals], book2_input[non_identicals])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">274</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (length(compares) != 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">275</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    message("common elements not identical: \n", paste(compares, collapse = "\n"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">276</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' iris$id &lt;- rep(1:50, times = 3)</pre>
+                      <pre class="language-r">    ans &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">279</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     inputId = "species",</pre>
+                      <pre class="language-r">  elements_boook1 &lt;- setdiff(names(book1_input), names(book2_input))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">280</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label = "Select species",</pre>
+                      <pre class="language-r">  if (length(elements_boook1) != 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">281</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("setosa", "versicolor", "virginica"),</pre>
+                      <pre class="language-r">    dt_states &lt;- grepl("_state$", elements_boook1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">282</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "setosa",</pre>
+                      <pre class="language-r">    if (any(dt_states)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">283</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     multiple = TRUE</pre>
+                      <pre class="language-r">      for (el in elements_boook1[dt_states]) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">284</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">        if (is.list(book1_input[[el]])) book1_input[[el]] &lt;- "--- data table state ---"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   plotOutput("plot")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">287</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r">    excess1 &lt;- sprintf("$ %s:\t%s", elements_boook1, book1_input[elements_boook1])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">288</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
+                      <pre class="language-r">    message("elements only in book1: \n", paste(excess1, collapse = "\n"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">289</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     iris_f &lt;- iris[iris$Species %in% input$species, ]</pre>
+                      <pre class="language-r">    ans &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_one_row_per_id(iris_f, key = c("id"))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">292</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     hist(iris_f$Sepal.Length, breaks = 5)</pre>
+                      <pre class="language-r">  elements_boook2 &lt;- setdiff(names(book2_input), names(book1_input))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">293</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">  if (length(elements_boook2) != 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">294</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    dt_states &lt;- grepl("_state$", elements_boook1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">295</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">    if (any(dt_states)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">296</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">      for (el in elements_boook1[dt_states]) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">297</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">        if (is.list(book2_input[[el]])) book2_input[[el]] &lt;- "--- data table state ---"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_one_row_per_id &lt;- function(x, key = c("USUBJID", "STUDYID")) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">110</td>
+                    <td class="num">300</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate(need(!any(duplicated(x[key])), paste("Found more than one row per id.")))</pre>
+                      <pre class="language-r">    excess2 &lt;- sprintf("$ %s:\t%s", elements_boook2, book2_input[elements_boook2])</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">301</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    message("elements only in book2: \n", paste(excess2, collapse = "\n"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">302</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ans &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">305</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  book1_values &lt;- readRDS(file.path("shiny_bookmarks", book1, "values.rds"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">306</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validates that vector includes all expected values</pre>
+                      <pre class="language-r">  book2_values &lt;- readRDS(file.path("shiny_bookmarks", book2, "values.rds"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">308</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  if (!isTRUE(all.equal(book1_values, book2_values))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">309</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    message("different values detected")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">310</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r">    message("choices for numeric filters MAY be different, see RangeFilterState$set_choices")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">311</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ans &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x Vector of values to test.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param choices Vector to test against.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">314</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param msg (`character(1)`) Error message to display if some elements of `x` are not elements of `choices`.</pre>
+                      <pre class="language-r">  if (ans) message("perfect!")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">315</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r"># Replacement for [base::rapply] which doesn't handle NULL values - skips the evaluation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput(</pre>
+                      <pre class="language-r"># of the function and returns NULL for given element.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "species",</pre>
+                      <pre class="language-r">rapply2 &lt;- function(x, f) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">322</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Select species",</pre>
+                      <pre class="language-r">  if (inherits(x, "list")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">323</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("setosa", "versicolor", "virginica", "unknown species"),</pre>
+                      <pre class="language-r">    lapply(x, rapply2, f = f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "setosa",</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">325</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     multiple = FALSE</pre>
+                      <pre class="language-r">    f(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' Get client timezone</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r">#' User timezone in the browser may be different to the one on the server.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$summary &lt;- renderPrint({</pre>
+                      <pre class="language-r">#' This script can be run to register a `shiny` input which contains information about the timezone in the browser.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_in(input$species, iris$Species, "Species does not exist.")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     nrow(iris[iris$Species == input$species, ])</pre>
+                      <pre class="language-r">#' @param ns (`function`) namespace function passed from the `session` object in the `shiny` server.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#'  For `shiny` modules this will allow for proper name spacing of the registered input.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_in &lt;- function(x, choices, msg) {</pre>
+                      <pre class="language-r">get_client_timezone &lt;- function(ns) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">148</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">14</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate(need(length(x) &gt; 0 &amp;&amp; length(choices) &gt; 0 &amp;&amp; all(x %in% choices), msg))</pre>
+                      <pre class="language-r">  script &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">15</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    "Shiny.setInputValue(`%s`, Intl.DateTimeFormat().resolvedOptions().timeZone)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">16</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ns("timezone")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validates that vector has length greater than 0</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">18</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  shinyjs::runjs(script) # function does not return anything</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">19</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Resolve the expected bootstrap theme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x vector</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param msg message to display</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">get_teal_bs_theme &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">26</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  bs_theme &lt;- getOption("teal.bs_theme")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">28</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  if (is.null(bs_theme)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">29</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- data.frame(</pre>
+                      <pre class="language-r">    return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = c(1:10, 11:20, 1:10),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strata = rep(c("A", "B"), each = 15)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  if (!checkmate::test_class(bs_theme, "bs_theme")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput("ref1", "Select strata1 to compare",</pre>
+                      <pre class="language-r">      "Assertion on 'teal.bs_theme' option value failed: ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("A", "B", "C"), selected = "A"</pre>
+                      <pre class="language-r">      checkmate::check_class(bs_theme, "bs_theme"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">      ". The default Shiny Bootstrap theme will be used."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput("ref2", "Select strata2 to compare",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("A", "B", "C"), selected = "B"</pre>
+                      <pre class="language-r">    return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   verbatimTextOutput("arm_summary")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  bs_theme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$arm_summary &lt;- renderText({</pre>
+                      <pre class="language-r">#' Return parentnames along with datanames.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sample_1 &lt;- data$id[data$strata == input$ref1]</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sample_2 &lt;- data$id[data$strata == input$ref2]</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">.include_parent_datanames &lt;- function(datanames, join_keys) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_has_elements(sample_1, "No subjects in strata1.")</pre>
+                      <pre class="language-r">  ordered_datanames &lt;- datanames</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_has_elements(sample_2, "No subjects in strata2.")</pre>
+                      <pre class="language-r">  for (current in datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    parents &lt;- character(0L)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     paste0(</pre>
+                      <pre class="language-r">    while (length(current) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "Number of samples in: strata1=", length(sample_1),</pre>
+                      <pre class="language-r">      current &lt;- teal.data::parent(join_keys, current)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       " comparions strata2=", length(sample_2)</pre>
+                      <pre class="language-r">      parents &lt;- c(current, parents)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">    ordered_datanames &lt;- c(parents, ordered_datanames)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">  unique(ordered_datanames)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_has_elements &lt;- function(x, msg) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">195</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  validate(need(length(x) &gt; 0, msg))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' Create a `FilteredData`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validates no intersection between two vectors</pre>
+                      <pre class="language-r">#' Create a `FilteredData` object from a `teal_data` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @param x (`teal_data`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param datanames (`character`) vector of data set names to include; must be subset of `names(x)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r">#' @return A `FilteredData` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x vector</pre>
+                      <pre class="language-r">teal_data_to_filtered_data &lt;- function(x, datanames = names(x)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">83<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_class(x, "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y vector</pre>
+                      <pre class="language-r">  checkmate::assert_character(datanames, min.chars = 1L, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param msg (`character(1)`) message to display if `x` and `y` intersect</pre>
+                      <pre class="language-r">  # Otherwise, FilteredData will be created in the modules' scope later</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">207</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  teal.slice::init_filtered_data(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">208</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    x = Filter(length, sapply(datanames, function(dn) x[[dn]], simplify = FALSE)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    join_keys = teal.data::join_keys(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- data.frame(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = c(1:10, 11:20, 1:10),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strata = rep(c("A", "B", "C"), each = 10)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' Template function for `TealReportCard` creation and customization</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">#' This function generates a report card with a title,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput("ref1", "Select strata1 to compare",</pre>
+                      <pre class="language-r">#' an optional description, and the option to append the filter state list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("A", "B", "C"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "A"</pre>
+                      <pre class="language-r">#' @param title (`character(1)`) title of the card (unless overwritten by label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' @param label (`character(1)`) label provided by the user when adding the card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput("ref2", "Select strata2 to compare",</pre>
+                      <pre class="language-r">#' @param description (`character(1)`) optional, additional description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("A", "B", "C"),</pre>
+                      <pre class="language-r">#' @param with_filter (`logical(1)`) flag indicating to add filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "B"</pre>
+                      <pre class="language-r">#' @param filter_panel_api (`FilterPanelAPI`) object with API that allows the generation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' of the filter state in the report</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @return (`TealReportCard`) populated with a title, description and filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$summary &lt;- renderText({</pre>
+                      <pre class="language-r">report_card_template &lt;- function(title, label, description = NULL, with_filter, filter_panel_api) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sample_1 &lt;- data$id[data$strata == input$ref1]</pre>
+                      <pre class="language-r">  checkmate::assert_string(title)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sample_2 &lt;- data$id[data$strata == input$ref2]</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_string(description, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_no_intersection(</pre>
+                      <pre class="language-r">  checkmate::assert_flag(with_filter)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">234</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       sample_1, sample_2,</pre>
+                      <pre class="language-r">  checkmate::assert_class(filter_panel_api, classes = "FilterPanelAPI")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "subjects within strata1 and strata2 cannot overlap"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">236</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">  card &lt;- teal::TealReportCard$new()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     paste0(</pre>
+                      <pre class="language-r">  title &lt;- if (label == "") title else label</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">238</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "Number of subject in: reference treatment=", length(sample_1),</pre>
+                      <pre class="language-r">  card$set_name(title)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       " comparions treatment=", length(sample_2)</pre>
+                      <pre class="language-r">  card$append_text(title, "header2")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">  if (!is.null(description)) card$append_text(description, "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">  if (with_filter) card$append_fs(filter_panel_api$get_filter_state())</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' Check `datanames` in modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_no_intersection &lt;- function(x, y, msg) {</pre>
+                      <pre class="language-r">#' These functions check if specified `datanames` in modules match those in the data object,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">248</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate(need(length(intersect(x, y)) == 0, msg))</pre>
+                      <pre class="language-r">#' returning error messages or `TRUE` for successful validation. Two functions return error message</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' in different forms:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - `check_modules_datanames` returns `character(1)` for basic assertion usage</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - `check_modules_datanames_html` returns `shiny.tag.list` to display it in the app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validates that dataset contains specific variable</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @param datanames (`character`) names of datasets available in the `data` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r">#' @return `TRUE` if validation passes, otherwise `character(1)` or `shiny.tag.list`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame`)</pre>
+                      <pre class="language-r">check_modules_datanames &lt;- function(modules, datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">259</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param varname (`character(1)`) name of variable to check for in `data`</pre>
+                      <pre class="language-r">  out &lt;- check_modules_datanames_html(modules, datanames)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">260</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param msg (`character(1)`) message to display if `data` does not include `varname`</pre>
+                      <pre class="language-r">  if (inherits(out, "shiny.tag.list")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">261</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    out_with_ticks &lt;- gsub("&lt;code&gt;|&lt;/code&gt;", "`", toString(out))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">262</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    out_text &lt;- gsub("&lt;[^&lt;&gt;]+&gt;", "", toString(out_with_ticks))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    trimws(gsub("[[:space:]]+", " ", out_text))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">265</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- data.frame(</pre>
+                      <pre class="language-r">    out</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   one = rep("a", length.out = 20),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   two = rep(c("a", "b"), length.out = 20)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">#' @rdname check_modules_datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput(</pre>
+                      <pre class="language-r">check_reserved_datanames &lt;- function(datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "var",</pre>
+                      <pre class="language-r">  reserved_datanames &lt;- datanames[datanames %in% c("all", ".raw_data")]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">272</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Select variable",</pre>
+                      <pre class="language-r">  if (length(reserved_datanames) == 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("one", "two", "three", "four"),</pre>
+                      <pre class="language-r">    return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "one"</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">276</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
+                      <pre class="language-r">  tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    to_html_code_list(reserved_datanames),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">278</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">279</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r">      "%s reserved for internal use. Please avoid using %s as %s.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">280</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$summary &lt;- renderText({</pre>
+                      <pre class="language-r">      pluralize(reserved_datanames, "is", "are"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_has_variable(data, input$var)</pre>
+                      <pre class="language-r">      pluralize(reserved_datanames, "it", "them"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     paste0("Selected treatment variables: ", paste(input$var, collapse = ", "))</pre>
+                      <pre class="language-r">      pluralize(reserved_datanames, "a dataset name", "dataset names")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @rdname check_modules_datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_has_variable &lt;- function(data, varname, msg) {</pre>
+                      <pre class="language-r">check_modules_datanames_html &lt;- function(modules, datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">289</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(varname) != 0) {</pre>
+                      <pre class="language-r">  check_datanames &lt;- check_modules_datanames_recursive(modules, datanames)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">290</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    has_vars &lt;- varname %in% names(data)</pre>
+                      <pre class="language-r">  show_module_info &lt;- inherits(modules, "teal_modules") # used in two contexts - module and app</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">292</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (!all(has_vars)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">293</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (missing(msg)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">294</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        msg &lt;- sprintf(</pre>
+                      <pre class="language-r">  reserved_datanames &lt;- check_reserved_datanames(datanames)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">295</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "%s does not have the required variables: %s.",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">296</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          deparse(substitute(data)),</pre>
+                      <pre class="language-r">  if (!length(check_datanames)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">297</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">172<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(varname[!has_vars])</pre>
+                      <pre class="language-r">    out &lt;- if (is.null(reserved_datanames)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">298</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">300</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(FALSE, msg))</pre>
+                      <pre class="language-r">      shiny::tagList(reserved_datanames)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">302</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">172<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    return(out)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">304</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  shiny::tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">305</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validate that variables has expected number of levels</pre>
+                      <pre class="language-r">    reserved_datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">306</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">307</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      check_datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">308</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      function(mod) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">309</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If the number of levels of `x` is less than `min_levels`</pre>
+                      <pre class="language-r">        tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">310</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or greater than `max_levels` the validation will fail.</pre>
+                      <pre class="language-r">          tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r">            tags$span(pluralize(mod$missing_datanames, "Dataset")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            to_html_code_list(mod$missing_datanames),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">313</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x variable name. If `x` is not a factor, the unique values</pre>
+                      <pre class="language-r">            tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">314</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   are treated as levels.</pre>
+                      <pre class="language-r">              sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">315</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param min_levels cutoff for minimum number of levels of `x`</pre>
+                      <pre class="language-r">                "%s missing%s.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">316</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param max_levels cutoff for maximum number of levels of `x`</pre>
+                      <pre class="language-r">                pluralize(mod$missing_datanames, "is", "are"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">317</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param var_name name of variable being validated for use in</pre>
+                      <pre class="language-r">                if (show_module_info) sprintf(" for module '%s'", mod$label) else ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   validation message</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">321</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">          if (length(datanames) &gt;= 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">322</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- data.frame(</pre>
+                      <pre class="language-r">            tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   one = rep("a", length.out = 20),</pre>
+                      <pre class="language-r">              tags$span(pluralize(datanames, "Dataset")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">324</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   two = rep(c("a", "b"), length.out = 20),</pre>
+                      <pre class="language-r">              tags$span("available in data:"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">325</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   three = rep(c("a", "b", "c"), length.out = 20),</pre>
+                      <pre class="language-r">              tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">326</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   four = rep(c("a", "b", "c", "d"), length.out = 20),</pre>
+                      <pre class="language-r">                tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">327</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">                  to_html_code_list(datanames),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                  tags$span(".", .noWS = "outside"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">                  .noWS = c("outside")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput(</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "var",</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Select variable",</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("one", "two", "three", "four"),</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">334</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "one"</pre>
+                      <pre class="language-r">            tags$span("No datasets are available in data.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">336</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
+                      <pre class="language-r">          tags$br(.noWS = "before")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$summary &lt;- renderText({</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_n_levels(data[[input$var]], min_levels = 2, max_levels = 15, var_name = input$var)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     paste0(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "Levels of selected treatment variable: ",</pre>
+                      <pre class="language-r">#' Recursively checks modules and returns list for every datanames mismatch between module and data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       paste(levels(data[[input$var]]),</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         collapse = ", "</pre>
+                      <pre class="language-r">check_modules_datanames_recursive &lt;- function(modules, datanames) { # nolint: object_name_length</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">346</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_module", "teal_modules"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">347</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">  checkmate::assert_character(datanames)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">348</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">349</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">214</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    unlist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">350</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">      lapply(modules$children, check_modules_datanames_recursive, datanames = datanames),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">351</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">      recursive = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_n_levels &lt;- function(x, min_levels = 1, max_levels = 12, var_name) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">354</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">210<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_levels &lt;- if (is.factor(x)) {</pre>
+                      <pre class="language-r">    missing_datanames &lt;- setdiff(modules$datanames, c("all", datanames))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">355</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">210<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    levels(x)</pre>
+                      <pre class="language-r">    if (length(missing_datanames)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">356</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      list(list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">357</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unique(x)</pre>
+                      <pre class="language-r">        label = modules$label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">358</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        missing_datanames = missing_datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">360</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(min_levels) &amp;&amp; !(is.null(max_levels))) {</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">361</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      length(x_levels) &gt;= min_levels &amp;&amp; length(x_levels) &lt;= max_levels,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">363</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">227</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">364</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">228</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "%s variable needs minimum %s level(s) and maximum %s level(s).",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">365</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">229</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var_name, min_levels, max_levels</pre>
+                      <pre class="language-r">#' Convert character vector to html code separated with commas and "and"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">to_html_code_list &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">368</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(min_levels)) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(x)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">369</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(</pre>
+                      <pre class="language-r">  do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">370</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      length(x_levels) &gt;= min_levels,</pre>
+                      <pre class="language-r">    tagList,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">371</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("%s variable needs minimum %s levels(s)", var_name, min_levels)</pre>
+                      <pre class="language-r">    lapply(seq_along(x), function(.ix) {</pre>
                     </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">372</td>
-                    <td class="coverage"></td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">373</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(max_levels)) {</pre>
+                      <pre class="language-r">        tags$code(x[.ix]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">374</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(</pre>
+                      <pre class="language-r">        if (.ix != length(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">375</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      length(x_levels) &lt;= max_levels,</pre>
+                      <pre class="language-r">          if (.ix == length(x) - 1) tags$span(" and ") else tags$span(", ", .noWS = "before")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">376</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">240</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("%s variable needs maximum %s level(s)", var_name, max_levels)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/teal_transform_module.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Data module for `teal` transformations and output customization</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' Check `datanames` in filters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_transform_module` provides a `shiny` module that enables data transformations within a `teal` application</pre>
+                      <pre class="language-r">#' This function checks whether `datanames` in filters correspond to those in `data`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and allows for customization of outputs generated by modules.</pre>
+                      <pre class="language-r">#' returning character vector with error messages or `TRUE` if all checks pass.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Transforming Module Inputs in `teal`</pre>
+                      <pre class="language-r">#' @param filters (`teal_slices`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param datanames (`character`) names of datasets available in the `data` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Data transformations occur after data has been filtered in `teal`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The transformed data is then passed to the `server` of [`teal_module()`] and managed by `teal`'s internal processes.</pre>
+                      <pre class="language-r">#' @return A `character(1)` containing error message or TRUE if validation passes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The primary advantage of `teal_transform_module` over custom modules is in its error handling, where all warnings and</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' errors are managed by `teal`, allowing developers to focus on transformation logic.</pre>
+                      <pre class="language-r">check_filter_datanames &lt;- function(filters, datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_class(filters, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For more details, see the vignette: `vignette("data-transform-as-shiny-module", package = "teal")`.</pre>
+                      <pre class="language-r">  checkmate::assert_character(datanames)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Customizing Module Outputs</pre>
+                      <pre class="language-r">  # check teal_slices against datanames</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">262</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  out &lt;- unlist(sapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_transform_module` also allows developers to modify any object created within [`teal.data::teal_data`].</pre>
+                      <pre class="language-r">    filters, function(filter) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This means you can use it to customize not only datasets but also tables, listings, and graphs.</pre>
+                      <pre class="language-r">      dataname &lt;- shiny::isolate(filter$dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Some [`teal_modules`] permit developers to inject custom `shiny` modules to enhance displayed outputs.</pre>
+                      <pre class="language-r">      if (!dataname %in% datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To manage these `decorators` within your module, use [`ui_transform_teal_data()`] and [`srv_transform_teal_data()`].</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">267</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (For further guidance on managing decorators, refer to `ui_args` and `srv_args` in the vignette documentation.)</pre>
+                      <pre class="language-r">          "- Filter '%s' refers to dataname not available in 'data':\n %s not in (%s)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          shiny::isolate(filter$id),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' See the vignette `vignette("decorate-modules-output", package = "teal")` for additional examples.</pre>
+                      <pre class="language-r">          dQuote(dataname, q = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          toString(dQuote(datanames, q = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `server` as a language</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The `server` function in `teal_transform_module` must return a reactive [`teal.data::teal_data`] object.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For simple transformations without complex reactivity, the `server` function might look like this:s</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ```</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' function(id, data) {</pre>
+                      <pre class="language-r">  if (length(out)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">    paste(out, collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     reactive({</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">280</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       within(</pre>
+                      <pre class="language-r">    TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data(),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         expr = x &lt;- subset(x, col == level),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         level = input$level</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">#' Function for validating the title parameter of `teal::init`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#' Checks if the input of the title from `teal::init` will create a valid title and favicon tag.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @param shiny_tag (`shiny.tag`) Object to validate for a valid title.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ```</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">validate_app_title_tag &lt;- function(shiny_tag) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The example above can be simplified using `make_teal_transform_server`, where `level` is automatically matched to the</pre>
+                      <pre class="language-r">  checkmate::assert_class(shiny_tag, "shiny.tag")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' corresponding `input` parameter:</pre>
+                      <pre class="language-r">  checkmate::assert_true(shiny_tag$name == "head")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">292</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  child_names &lt;- vapply(shiny_tag$children, `[[`, character(1L), "name")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">293</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ```</pre>
+                      <pre class="language-r">  checkmate::assert_subset(c("title", "link"), child_names, .var.name = "child tags")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' make_teal_transform_server(expr = expression(x &lt;- subset(x, col == level)))</pre>
+                      <pre class="language-r">  rel_attr &lt;- shiny_tag$children[[which(child_names == "link")]]$attribs$rel</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">295</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ```</pre>
+                      <pre class="language-r">  checkmate::assert_subset(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    rel_attr,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    c("icon", "shortcut icon"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .var.name = "Link tag's rel attribute",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    empty.ok = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal_data_module</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param server (`function(id, data)` or `expression`)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A `shiny` module server function that takes `id` and `data` as arguments, where `id` is the module id and `data`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is the reactive `teal_data` input. The `server` function must return a reactive expression containing a `teal_data`</pre>
+                      <pre class="language-r">#' Build app title with favicon</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' object. For simplified syntax, use [`make_teal_transform_server()`].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`)</pre>
+                      <pre class="language-r">#' A helper function to create the browser title along with a logo.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Specifies the names of datasets relevant to the module. Only filters for the specified `datanames` will be displayed</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' in the filter panel. The keyword `"all"` can be used to display filters for all datasets. `datanames` are</pre>
+                      <pre class="language-r">#' @param title (`character`) The browser title for the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' automatically appended to the [`modules()`] `datanames`.</pre>
+                      <pre class="language-r">#' @param favicon (`character`) The path for the icon for the title.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' The image/icon path can be remote or the static path accessible by `shiny`, like the `www/`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @return A `shiny.tag` containing the element that adds the title and logo to the `shiny` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_transformators &lt;- list(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_transform_module(</pre>
+                      <pre class="language-r">build_app_title &lt;- function(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label = "Static transformator for iris",</pre>
+                      <pre class="language-r">    title = "teal app",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     datanames = "iris",</pre>
+                      <pre class="language-r">    favicon = "https://raw.githubusercontent.com/insightsengineering/hex-stickers/main/PNG/nest.png") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     server = function(id, data) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(title, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">317</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(favicon, null.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  tags$head(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    tags$title(title),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">320</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    tags$link(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">321</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      rel = "icon",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">322</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      href = favicon,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">323</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      sizes = "any"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         reactive({</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           within(data(), {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             iris &lt;- head(iris, 5)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         })</pre>
+                      <pre class="language-r">#' Application ID</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     }</pre>
+                      <pre class="language-r">#' Creates App ID used to match filter snapshots to application.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_transform_module(</pre>
+                      <pre class="language-r">#' Calculate app ID that will be used to stamp filter state snapshots.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label = "Interactive transformator for iris",</pre>
+                      <pre class="language-r">#' App ID is a hash of the app's data and modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     datanames = "iris",</pre>
+                      <pre class="language-r">#' See "transferring snapshots" section in ?snapshot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ui = function(id) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#' @param data (`teal_data` or `teal_data_module`) as accepted by `init`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       tags$div(</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`) object as accepted by `init`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         numericInput(ns("n_cols"), "Show n columns", value = 5, min = 1, max = 5, step = 1)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">#' @return A single character string.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     },</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     server = function(id, data) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">create_app_id &lt;- function(data, modules) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">343</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         reactive({</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           within(data(),</pre>
+                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">346</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'               iris &lt;- iris[, 1:n_cols]</pre>
+                      <pre class="language-r">  data &lt;- if (inherits(data, "teal_data")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">347</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             },</pre>
+                      <pre class="language-r">    as.list(data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">348</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             n_cols = input$n_cols</pre>
+                      <pre class="language-r">  } else if (inherits(data, "teal_data_module")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           )</pre>
+                      <pre class="language-r">    deparse1(body(data$server))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         })</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       })</pre>
+                      <pre class="language-r">  modules &lt;- lapply(modules, defunction)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">353</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  rlang::hash(list(data = data, modules = modules))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' output_decorator &lt;- teal_transform_module(</pre>
+                      <pre class="language-r">#' Go through list and extract bodies of encountered functions as string, recursively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server = make_teal_transform_server(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     expression(</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       object &lt;- rev(object)</pre>
+                      <pre class="language-r">defunction &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">297<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">  if (is.list(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">361</td>
+                    <td class="coverage">121<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    lapply(x, defunction)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">362</td>
+                    <td class="coverage">176<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  } else if (is.function(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">363</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    deparse1(body(x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">365</td>
+                    <td class="coverage">122<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = example_module(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     transformators = data_transformators,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     decorators = list(output_decorator)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' Get unique labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#' Get unique labels for the modules to avoid namespace conflicts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @param labels (`character`) vector of labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name teal_transform_module</pre>
+                      <pre class="language-r">#' @return (`character`) vector of unique labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">teal_transform_module &lt;- function(ui = NULL,</pre>
+                      <pre class="language-r">get_unique_labels &lt;- function(labels) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">141<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  make.unique(gsub("[^[:alnum:]]", "_", tolower(labels)), sep = "_")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  server = function(id, data) data,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  label = "transform module",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  datanames = "all") {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">383</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">384</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">pasten &lt;- function(...) paste0(..., "\n")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">385</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui = ui,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">386</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      server = function(id, data) {</pre>
+                      <pre class="language-r">#' Convert character list to human readable html with commas and "and"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">387</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_out &lt;- server(id, data)</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">paste_datanames_character &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">389</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (inherits(data_out, "reactive.event")) {</pre>
+                      <pre class="language-r">                                      tags = list(span = shiny::tags$span, code = shiny::tags$code),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # This warning message partially detects when `eventReactive` is used in `data_module`.</pre>
+                      <pre class="language-r">                                      tagList = shiny::tagList) { # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">391</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          warning(</pre>
+                      <pre class="language-r">  checkmate::assert_character(x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">392</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "teal_transform_module() ",</pre>
+                      <pre class="language-r">  do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">393</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Using eventReactive in teal_transform module server code should be avoided as it ",</pre>
+                      <pre class="language-r">    tagList,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">394</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "may lead to unexpected behavior. See the vignettes for more information  ",</pre>
+                      <pre class="language-r">    lapply(seq_along(x), function(.ix) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">395</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "(`vignette(\"data-transform-as-shiny-module\", package = \"teal\")`).",</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">396</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            call. = FALSE</pre>
+                      <pre class="language-r">        tags$code(x[.ix]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">397</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        if (.ix != length(x)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">398</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          tags$span(if (.ix == length(x) - 1) " and " else ", ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">401</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">402</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        decorate_err_msg(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">403</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          assert_reactive(data_out),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">404</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pre = sprintf("From: 'teal_transform_module()':\nA 'teal_transform_module' with \"%s\" label:", label),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">405</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          post = "Please make sure that this module returns a 'reactive` object containing 'teal_data' class of object." # nolint: line_length_linter.</pre>
+                      <pre class="language-r">#' Build datanames error string for error message</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' tags and tagList are overwritten in arguments allowing to create strings for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#' logging purposes</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">409</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">410</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = datanames,</pre>
+                      <pre class="language-r">build_datanames_error_message &lt;- function(label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">411</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = c("teal_transform_module", "teal_data_module")</pre>
+                      <pre class="language-r">                                          datanames,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                                          extra_datanames,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                                          tags = list(span = shiny::tags$span, code = shiny::tags$code),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                          tagList = shiny::tagList) { # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">415</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Make teal_transform_module's server</pre>
+                      <pre class="language-r">  tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">416</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    tags$span(pluralize(extra_datanames, "Dataset")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">417</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A factory function to simplify creation of a [`teal_transform_module`]'s server. Specified `expr`</pre>
+                      <pre class="language-r">    paste_datanames_character(extra_datanames, tags, tagList),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">418</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is wrapped in a shiny module function and output can be passed to the `server` argument in</pre>
+                      <pre class="language-r">    tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">419</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">420</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [teal_transform_module()] call. Such a server function can be linked with ui and values from the</pre>
+                      <pre class="language-r">        "%s missing%s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">421</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' inputs can be used in the expression. Object names specified in the expression will be substituted</pre>
+                      <pre class="language-r">        pluralize(extra_datanames, "is", "are"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">422</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' with the value of the respective input (matched by the name) - for example in</pre>
+                      <pre class="language-r">        if (is.null(label)) "" else sprintf(" for tab '%s'", label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `expression(graph &lt;- graph + ggtitle(title))` object `title` will be replaced with the value of</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `input$title`.</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">425</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param expr (`language`)</pre>
+                      <pre class="language-r">    if (length(datanames) &gt;= 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">426</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  An R call which will be evaluated within [`teal.data::teal_data`] environment.</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">427</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `function(id, data)` returning `shiny` module</pre>
+                      <pre class="language-r">        tags$span(pluralize(datanames, "Dataset")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">428</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        tags$span("available in data:"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">429</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">430</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' trim_iris &lt;- teal_transform_module(</pre>
+                      <pre class="language-r">          tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">431</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label = "Simplified interactive transformator for iris",</pre>
+                      <pre class="language-r">            paste_datanames_character(datanames, tags, tagList),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">432</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   datanames = "iris",</pre>
+                      <pre class="language-r">            tags$span(".", .noWS = "outside"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">433</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui = function(id) {</pre>
+                      <pre class="language-r">            .noWS = c("outside")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     numericInput(ns("n_rows"), "Subset n rows", value = 6, min = 1, max = 150, step = 1)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">436</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   },</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">437</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server = make_teal_transform_server(expression(iris &lt;- head(iris, n_rows)))</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">438</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      tags$span("No datasets are available in data.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = example_module(transformators = trim_iris)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' Smart `rbind`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">#' Combine `data.frame` objects which have different columns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param ... (`data.frame`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">448</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">449</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">make_teal_transform_server &lt;- function(expr) {</pre>
+                      <pre class="language-r">.smart_rbind &lt;- function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">450</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.call(expr)) {</pre>
+                      <pre class="language-r">  dots &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">451</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expr &lt;- as.expression(expr)</pre>
+                      <pre class="language-r">  checkmate::assert_list(dots, "data.frame", .var.name = "...")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">452</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  Reduce(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">453</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(expr, c("call", "expression"))</pre>
+                      <pre class="language-r">    x = dots,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">454</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    function(x, y) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">455</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(id, data) {</pre>
+                      <pre class="language-r">      all_columns &lt;- union(colnames(x), colnames(y))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">456</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">      x[setdiff(all_columns, colnames(x))] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">457</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list_env &lt;- reactive(</pre>
+                      <pre class="language-r">      y[setdiff(all_columns, colnames(y))] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">458</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(rlang::set_names(names(input)), function(x) input[[x]])</pre>
+                      <pre class="language-r">      rbind(x, y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">459</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">461</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      reactive({</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">462</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        call_with_inputs &lt;- lapply(expr, function(x) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">463</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          do.call(what = substitute, args = list(expr = x, env = list_env()))</pre>
+                      <pre class="language-r">#' Pluralize a word depending on the size of the input</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">465</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        eval_code(object = data(), code = as.expression(call_with_inputs))</pre>
+                      <pre class="language-r">#' @param x (`object`) to check length for plural.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">466</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">#' @param singular (`character`) singular form of the word.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' @param plural (optional `character`) plural form of the word. If not given an "s"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' is added to the singular form.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return A `character` that correctly represents the size of the `x` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Extract all `transformators` from `modules`.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">pluralize &lt;- function(x, singular, plural = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">473</td>
+                    <td class="coverage">70<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules `teal_modules` or `teal_module`</pre>
+                      <pre class="language-r">  checkmate::assert_string(singular)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">474</td>
+                    <td class="coverage">70<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of `teal_transform_module` nested in the same way as input `modules`.</pre>
+                      <pre class="language-r">  checkmate::assert_string(plural, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">475</td>
+                    <td class="coverage">70<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  if (length(x) == 1L) { # Zero length object should use plural form.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">476</td>
+                    <td class="coverage">42<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    singular</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">477</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">extract_transformators &lt;- function(modules) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">478</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_module")) {</pre>
+                      <pre class="language-r">    if (is.null(plural)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">479</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules$transformators</pre>
+                      <pre class="language-r">      sprintf("%ss", singular)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">480</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">481</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(modules$children, extract_transformators)</pre>
+                      <pre class="language-r">      plural</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">482</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">483</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">484</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -41952,735 +41534,735 @@ <h2>teal coverage - 60.02%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/teal_reporter.R" class="hidden">
+            <div id="R/module_transform_data.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `TealReportCard`</pre>
+                      <pre class="language-r">#' Module to transform `reactive` `teal_data`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Child class of [`teal.reporter::ReportCard`] that is used for `teal` specific applications.</pre>
+                      <pre class="language-r">#' Module calls [teal_transform_module()] in sequence so that `reactive teal_data` output</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In addition to the parent methods, it supports rendering `teal` specific elements such as</pre>
+                      <pre class="language-r">#' from one module is handed over to the following module's input.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the source code, the encodings panel content and the filter panel content as part of the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' meta data.</pre>
+                      <pre class="language-r">#' @inheritParams module_teal_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @inheritParams teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param class (character(1)) CSS class to be added in the `div` wrapper tag.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">TealReportCard &lt;- R6::R6Class( # nolint: object_name.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "TealReportCard",</pre>
+                      <pre class="language-r">#' @return `reactive` `teal_data`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = teal.reporter::ReportCard,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">#' @name module_transform_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Appends the source code to the `content` meta data of this `TealReportCard`.</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param src (`character(1)`) code as text.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... any `rmarkdown` `R` chunk parameter and its value.</pre>
+                      <pre class="language-r">#' @rdname module_transform_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' But `eval` parameter is always set to `FALSE`.</pre>
+                      <pre class="language-r">ui_transform_teal_data &lt;- function(id, transformators, class = "well") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">18</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `TealReportCard`, invisibly.</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">19</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @examples</pre>
+                      <pre class="language-r">  if (length(transformators) == 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">20</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' card &lt;- TealReportCard$new()$append_src(</pre>
+                      <pre class="language-r">    return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   "plot(iris)"</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">22</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' )</pre>
+                      <pre class="language-r">  if (inherits(transformators, "teal_transform_module")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">23</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' card$get_content()[[1]]$get_content()</pre>
+                      <pre class="language-r">    transformators &lt;- list(transformators)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    append_src = function(src, ...) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">25</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_character(src, min.len = 0, max.len = 1)</pre>
+                      <pre class="language-r">  checkmate::assert_list(transformators, "teal_transform_module")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">26</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      params &lt;- list(...)</pre>
+                      <pre class="language-r">  names(transformators) &lt;- sprintf("transform_%d", seq_len(length(transformators)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">27</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      params$eval &lt;- FALSE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">28</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rblock &lt;- RcodeBlock$new(src)</pre>
+                      <pre class="language-r">  lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">29</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rblock$set_params(params)</pre>
+                      <pre class="language-r">    names(transformators),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">30</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$append_content(rblock)</pre>
+                      <pre class="language-r">    function(name) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">31</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$append_metadata("SRC", src)</pre>
+                      <pre class="language-r">      child_id &lt;- NS(id, name)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">32</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">      ns &lt;- NS(child_id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">33</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      data_mod &lt;- transformators[[name]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">34</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Appends the filter state list to the `content` and `metadata` of this `TealReportCard`.</pre>
+                      <pre class="language-r">      transform_wrapper_id &lt;- ns(sprintf("wrapper_%s", name))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  If the filter state list has an attribute named `formatted`, it appends it to the card otherwise it uses</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">36</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  the default `yaml::as.yaml` to format the list.</pre>
+                      <pre class="language-r">      display_fun &lt;- if (is.null(data_mod$ui)) shinyjs::hidden else function(x) x</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  If the filter state list is empty, nothing is appended to the `content`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">38</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      display_fun(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">39</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param fs (`teal_slices`) object returned from [teal_slices()] function.</pre>
+                      <pre class="language-r">        div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
+                      <pre class="language-r">          # class .teal_validated changes the color of the boarder on error in ui_validate_reactive_teal_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    append_fs = function(fs) {</pre>
+                      <pre class="language-r">          #   For details see tealValidate.js file.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">42</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(fs, "teal_slices")</pre>
+                      <pre class="language-r">          id = ns("wrapper"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">43</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$append_text("Filter State", "header3")</pre>
+                      <pre class="language-r">          class = c(class, "teal_validated"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">44</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(fs)) {</pre>
+                      <pre class="language-r">          title = attr(data_mod, "label"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">45</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$append_content(TealSlicesBlock$new(fs))</pre>
+                      <pre class="language-r">          tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">46</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">            class = "text-primary mb-4",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">47</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$append_text("No filters specified.")</pre>
+                      <pre class="language-r">            icon("fas fa-square-pen"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">            attr(data_mod, "label")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">49</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">50</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">          tags$i(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Appends the encodings list to the `content` and `metadata` of this `TealReportCard`.</pre>
+                      <pre class="language-r">            class = "remove pull-right fa fa-angle-down",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            style = "cursor: pointer;",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param encodings (`list`) list of encodings selections of the `teal` app.</pre>
+                      <pre class="language-r">            title = "fold/expand transformator panel",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
+                      <pre class="language-r">            onclick = sprintf("togglePanelItems(this, '%s', 'fa-angle-right', 'fa-angle-down');", transform_wrapper_id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @examples</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' card &lt;- TealReportCard$new()$append_encodings(list(variable1 = "X"))</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' card$get_content()[[1]]$get_content()</pre>
+                      <pre class="language-r">            id = transform_wrapper_id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            if (is.null(data_mod$ui)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    append_encodings = function(encodings) {</pre>
+                      <pre class="language-r">              return(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">60</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_list(encodings)</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$append_text("Selected Options", "header3")</pre>
+                      <pre class="language-r">              data_mod$ui(id = ns("transform"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">62</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (requireNamespace("yaml", quietly = TRUE)) {</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$append_text(yaml::as.yaml(encodings, handlers = list(</pre>
+                      <pre class="language-r">            div(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          POSIXct = function(x) format(x, "%Y-%m-%d"),</pre>
+                      <pre class="language-r">              id = ns("validate_messages"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          POSIXlt = function(x) format(x, "%Y-%m-%d"),</pre>
+                      <pre class="language-r">              class = "teal_validated",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          Date = function(x) format(x, "%Y-%m-%d")</pre>
+                      <pre class="language-r">              uiOutput(ns("error_wrapper"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )), "verbatim")</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">69</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop("yaml package is required to format the encodings list")</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$append_metadata("Encodings", encodings)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">72</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dispatch_block = function(block_class) {</pre>
+                      <pre class="language-r">#' @rdname module_transform_data</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      eval(str2lang(block_class))</pre>
+                      <pre class="language-r">srv_transform_teal_data &lt;- function(id, data, transformators, modules = NULL, is_transform_failed = reactiveValues()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  assert_reactive(data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">  checkmate::assert_class(modules, "teal_module", null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (length(transformators) == 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">71<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `TealSlicesBlock`</pre>
+                      <pre class="language-r">    return(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">  if (inherits(transformators, "teal_transform_module")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Specialized `TealSlicesBlock` block for managing filter panel content in reports.</pre>
+                      <pre class="language-r">    transformators &lt;- list(transformators)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">TealSlicesBlock &lt;- R6::R6Class( # nolint: object_name_linter.</pre>
+                      <pre class="language-r">  checkmate::assert_list(transformators, "teal_transform_module", null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "TealSlicesBlock",</pre>
+                      <pre class="language-r">  names(transformators) &lt;- sprintf("transform_%d", seq_len(length(transformators)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = teal.reporter:::TextBlock,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Returns a `TealSlicesBlock` object.</pre>
+                      <pre class="language-r">    module_output &lt;- Reduce(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">92</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      function(data_previous, name) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @details Returns a `TealSlicesBlock` object with no content and no parameters.</pre>
+                      <pre class="language-r">        moduleServer(name, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          logger::log_debug("srv_transform_teal_data initializing for { name }.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param content (`teal_slices`) object returned from [teal_slices()] function.</pre>
+                      <pre class="language-r">          is_transform_failed[[name]] &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param style (`character(1)`) string specifying style to apply.</pre>
+                      <pre class="language-r">          data_out &lt;- transformators[[name]]$server("transform", data = data_previous)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">97</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          data_handled &lt;- reactive(tryCatch(data_out(), error = function(e) e))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `TealSlicesBlock`, invisibly.</pre>
+                      <pre class="language-r">          observeEvent(data_handled(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            if (inherits(data_handled(), "teal_data")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">100</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(content = teal_slices(), style = "verbatim") {</pre>
+                      <pre class="language-r">              is_transform_failed[[name]] &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_content(content)</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_style(style)</pre>
+                      <pre class="language-r">              is_transform_failed[[name]] &lt;- TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">103</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -42690,612 +42272,667 @@ <h2>teal coverage - 60.02%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Sets content of this `TealSlicesBlock`.</pre>
+                      <pre class="language-r">          is_previous_failed &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Sets content as `YAML` text which represents a list generated from `teal_slices`.</pre>
+                      <pre class="language-r">            idx_this &lt;- which(names(is_transform_failed) == name)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' The list displays limited number of fields from `teal_slice` objects, but this list is</pre>
+                      <pre class="language-r">            is_transform_failed_list &lt;- reactiveValuesToList(is_transform_failed)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' sufficient to conclude which filters were applied.</pre>
+                      <pre class="language-r">            idx_failures &lt;- which(unlist(is_transform_failed_list))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' When `selected` field in `teal_slice` object is a range, then it is displayed as a "min"</pre>
+                      <pre class="language-r">            any(idx_failures &lt; idx_this)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param content (`teal_slices`) object returned from [teal_slices()] function.</pre>
+                      <pre class="language-r">          srv_validate_error("silent_error", data_handled, validate_shiny_silent_error = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
+                      <pre class="language-r">          srv_check_class_teal_data("class_teal_data", data_handled)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">115</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_content = function(content) {</pre>
+                      <pre class="language-r">          if (!is.null(modules)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(content, "teal_slices")</pre>
+                      <pre class="language-r">            srv_check_module_datanames("datanames_warning", data_handled, modules)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">117</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(content) != 0) {</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">118</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        states_list &lt;- lapply(content, function(x) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">119</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x_list &lt;- shiny::isolate(as.list(x))</pre>
+                      <pre class="language-r">          # When there is no UI (`ui = NULL`) it should still show the errors</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (</pre>
+                      <pre class="language-r">          observe({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inherits(x_list$choices, c("integer", "numeric", "Date", "POSIXct", "POSIXlt")) &amp;&amp;</pre>
+                      <pre class="language-r">            if (!inherits(data_handled(), "teal_data") &amp;&amp; !is_previous_failed()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              length(x_list$choices) == 2 &amp;&amp;</pre>
+                      <pre class="language-r">              shinyjs::show("wrapper")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              length(x_list$selected) == 2</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ) {</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">125</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_list$range &lt;- paste(x_list$selected, collapse = " - ")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_list["selected"] &lt;- NULL</pre>
+                      <pre class="language-r">          transform_wrapper_id &lt;- sprintf("wrapper_%s", name)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">          output$error_wrapper &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!is.null(x_list$arg)) {</pre>
+                      <pre class="language-r">            if (is_previous_failed()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">129</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_list$arg &lt;- if (x_list$arg == "subset") "Genes" else "Samples"</pre>
+                      <pre class="language-r">              shinyjs::disable(transform_wrapper_id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">130</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">              tags$div("One of previous transformators failed. Please check its inputs.", class = "teal-output-warning")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x_list &lt;- x_list[</pre>
+                      <pre class="language-r">              shinyjs::enable(transform_wrapper_id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c("dataname", "varname", "experiment", "arg", "expr", "selected", "range", "keep_na", "keep_inf")</pre>
+                      <pre class="language-r">              shiny::tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ]</pre>
+                      <pre class="language-r">                ui_validate_error(session$ns("silent_error")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          names(x_list) &lt;- c(</pre>
+                      <pre class="language-r">                ui_check_class_teal_data(session$ns("class_teal_data")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Dataset name", "Variable name", "Experiment", "Filtering by", "Applied expression",</pre>
+                      <pre class="language-r">                ui_check_module_datanames(session$ns("datanames_warning"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">137</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">139</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          .trigger_on_success(data_handled)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">142</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      },</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Selected Values", "Selected range", "Include NA values", "Include Inf values"</pre>
+                      <pre class="language-r">      x = names(transformators),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      init = data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">147</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          Filter(Negate(is.null), x_list)</pre>
+                      <pre class="language-r">    module_output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">6<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/reporter_previewer_module.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (requireNamespace("yaml", quietly = TRUE)) {</pre>
+                      <pre class="language-r">#' Create a `teal` module for previewing a report</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          super$set_content(yaml::as.yaml(states_list))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">146</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stop("yaml package is required to format the filter state list")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' This function wraps [teal.reporter::reporter_previewer_ui()] and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' [teal.reporter::reporter_previewer_srv()] into a `teal_module` to be</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slices &lt;- content</pre>
+                      <pre class="language-r">#' used in `teal` applications.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' If you are creating a `teal` application using [init()] then this</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Create the `TealSlicesBlock` from a list.</pre>
+                      <pre class="language-r">#' module will be added to your application automatically if any of your `teal_modules`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' support report generation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x (`named list`) with two fields `text` and `style`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Use the `get_available_styles` method to get all possible styles.</pre>
+                      <pre class="language-r">#' @inheritParams teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @param server_args (named `list`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
+                      <pre class="language-r">#'  Arguments passed to [teal.reporter::reporter_previewer_srv()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' TealSlicesBlock &lt;- getFromNamespace("TealSlicesBlock", "teal")</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' block &lt;- TealSlicesBlock$new()</pre>
+                      <pre class="language-r">#' `teal_module` (extended with `teal_module_previewer` class) containing the `teal.reporter` previewer functionality.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' block$from_list(list(text = "sth", style = "default"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    from_list = function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_list(x)</pre>
+                      <pre class="language-r">reporter_previewer_module &lt;- function(label = "Report previewer", server_args = list()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">23</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_names(names(x), must.include = c("text", "style"))</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">24</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      super$set_content(x$text)</pre>
+                      <pre class="language-r">  checkmate::assert_list(server_args, names = "named")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">25</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      super$set_style(x$style)</pre>
+                      <pre class="language-r">  checkmate::assert_true(all(names(server_args) %in% names(formals(teal.reporter::reporter_previewer_srv))))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">27</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  message("Initializing reporter_previewer_module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Convert the `TealSlicesBlock` to a list.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">29</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  srv &lt;- function(id, reporter, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">30</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `named list` with a text and style.</pre>
+                      <pre class="language-r">    teal.reporter::reporter_previewer_srv(id, reporter, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @examples</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' TealSlicesBlock &lt;- getFromNamespace("TealSlicesBlock", "teal")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' block &lt;- TealSlicesBlock$new()</pre>
+                      <pre class="language-r">  ui &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">34</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' block$to_list()</pre>
+                      <pre class="language-r">    teal.reporter::reporter_previewer_ui(id, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    to_list = function() {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">37</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      content &lt;- self$get_content()</pre>
+                      <pre class="language-r">  module &lt;- module(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">38</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">    label = "temporary label",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">39</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        text = if (length(content)) content else "",</pre>
+                      <pre class="language-r">    server = srv, ui = ui,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        style = self$get_style()</pre>
+                      <pre class="language-r">    server_args = server_args, ui_args = list(), datanames = NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  # Module is created with a placeholder label and the label is changed later.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">  # This is to prevent another module being labeled "Report previewer".</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">  class(module) &lt;- c(class(module), "teal_module_previewer")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    style = "verbatim",</pre>
+                      <pre class="language-r">  module$label &lt;- label</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_slices = NULL # teal_slices</pre>
+                      <pre class="language-r">  attr(module, "teal_bookmarkable") &lt;- TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                 </tbody>
               </table>
             </div>
-            <div id="R/module_transform_data.R" class="hidden">
+            <div id="R/include_css_js.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Module to transform `reactive` `teal_data`</pre>
+                      <pre class="language-r">#' Include `CSS` files from `/inst/css/` package directory to application header</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -43309,238 +42946,238 @@ <h2>teal coverage - 60.02%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Module calls [teal_transform_module()] in sequence so that `reactive teal_data` output</pre>
+                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' from one module is handed over to the following module's input.</pre>
+                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' as needed. Thus, we do not export this method.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams module_teal_data</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal_modules</pre>
+                      <pre class="language-r">#' @param pattern (`character`) pattern of files to be included</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param class (character(1)) CSS class to be added in the `div` wrapper tag.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return HTML code that includes `CSS` files.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `reactive` `teal_data`</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">include_css_files &lt;- function(pattern = "*") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">12</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_transform_data</pre>
+                      <pre class="language-r">  css_files &lt;- list.files(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">13</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    system.file("css", package = "teal", mustWork = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">14</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    pattern = pattern, full.names = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_transform_data</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">17</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_transform_teal_data &lt;- function(id, transformators, class = "well") {</pre>
+                      <pre class="language-r">  singleton(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">18</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">    tags$head(lapply(css_files, includeCSS))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">19</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(transformators) == 0L) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">20</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(NULL)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">22</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(transformators, "teal_transform_module")) {</pre>
+                      <pre class="language-r">#' Include `JS` files from `/inst/js/` package directory to application header</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">23</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    transformators &lt;- list(transformators)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">25</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(transformators, "teal_transform_module")</pre>
+                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">26</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(transformators) &lt;- sprintf("transform_%d", seq_len(length(transformators)))</pre>
+                      <pre class="language-r">#' as needed. Thus, we do not export this method</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">28</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(</pre>
+                      <pre class="language-r">#' @param pattern (`character`) pattern of files to be included, passed to `system.file`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">29</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(transformators),</pre>
+                      <pre class="language-r">#' @param except (`character`) vector of basename filenames to be excluded</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">30</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(name) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">31</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      child_id &lt;- NS(id, name)</pre>
+                      <pre class="language-r">#' @return HTML code that includes `JS` files.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(child_id)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">33</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_mod &lt;- transformators[[name]]</pre>
+                      <pre class="language-r">include_js_files &lt;- function(pattern = NULL, except = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">34</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      transform_wrapper_id &lt;- ns(sprintf("wrapper_%s", name))</pre>
+                      <pre class="language-r">  checkmate::assert_character(except, min.len = 1, any.missing = FALSE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">35</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  js_files &lt;- list.files(system.file("js", package = "teal", mustWork = TRUE), pattern = pattern, full.names = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">36</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      display_fun &lt;- if (is.null(data_mod$ui)) shinyjs::hidden else function(x) x</pre>
+                      <pre class="language-r">  js_files &lt;- js_files[!(basename(js_files) %in% except)] # no-op if except is NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -43550,2372 +43187,2523 @@ <h2>teal coverage - 60.02%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">38</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      display_fun(</pre>
+                      <pre class="language-r">  singleton(lapply(js_files, includeScript))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">39</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        div(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # class .teal_validated changes the color of the boarder on error in ui_validate_reactive_teal_data</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          #   For details see tealValidate.js file.</pre>
+                      <pre class="language-r">#' Run `JS` file from `/inst/js/` package directory</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">42</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("wrapper"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">43</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = c(class, "teal_validated"),</pre>
+                      <pre class="language-r">#' This is triggered from the server to execute on the client</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">44</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = attr(data_mod, "label"),</pre>
+                      <pre class="language-r">#' rather than triggered directly on the client.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">45</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$span(</pre>
+                      <pre class="language-r">#' Unlike `include_js_files` which includes `JavaScript` functions,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">46</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "text-primary mb-4",</pre>
+                      <pre class="language-r">#' the `run_js` actually executes `JavaScript` functions.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">47</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            icon("fas fa-square-pen"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">48</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            attr(data_mod, "label")</pre>
+                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">50</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$i(</pre>
+                      <pre class="language-r">#' as needed. Thus, we do not export this method.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">51</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "remove pull-right fa fa-angle-down",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">52</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            style = "cursor: pointer;",</pre>
+                      <pre class="language-r">#' @param files (`character`) vector of filenames.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">53</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "fold/expand transformator panel",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            onclick = sprintf("togglePanelItems(this, '%s', 'fa-angle-right', 'fa-angle-down');", transform_wrapper_id)</pre>
+                      <pre class="language-r">#' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">run_js_files &lt;- function(files) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            id = transform_wrapper_id,</pre>
+                      <pre class="language-r">  checkmate::assert_character(files, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (is.null(data_mod$ui)) {</pre>
+                      <pre class="language-r">  lapply(files, function(file) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              return(NULL)</pre>
+                      <pre class="language-r">    shinyjs::runjs(paste0(readLines(system.file("js", file, package = "teal", mustWork = TRUE)), collapse = "\n"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data_mod$ui(id = ns("transform"))</pre>
+                      <pre class="language-r">  invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            div(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">64</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              id = ns("validate_messages"),</pre>
+                      <pre class="language-r">#' Code to include `teal` `CSS` and `JavaScript` files</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              class = "teal_validated",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              uiOutput(ns("error_wrapper"))</pre>
+                      <pre class="language-r">#' This is useful when you want to use the same `JavaScript` and `CSS` files that are</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#' used with the `teal` application.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' This is also useful for running standalone modules in `teal` with the correct</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' styles.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' Also initializes `shinyjs` so you can use it.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' Simply add `include_teal_css_js()` as one of the UI elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @return A `shiny.tag.list`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">include_teal_css_js &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_transform_data</pre>
+                      <pre class="language-r">  tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_transform_teal_data &lt;- function(id, data, transformators, modules = NULL, is_transform_failed = reactiveValues()) {</pre>
+                      <pre class="language-r">    shinyjs::useShinyjs(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">78</td>
-                    <td class="coverage">94<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">    include_css_files(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">94<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_reactive(data)</pre>
+                      <pre class="language-r">    # init.js is executed from the server</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">80</td>
-                    <td class="coverage">94<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(modules, "teal_module", null.ok = TRUE)</pre>
+                      <pre class="language-r">    include_js_files(except = "init.js"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">81</td>
-                    <td class="coverage">94<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(transformators) == 0L) {</pre>
+                      <pre class="language-r">    shinyjs::hidden(icon("fas fa-gear")), # add hidden icon to load font-awesome css for icons</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">82</td>
-                    <td class="coverage">71<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(data)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">23<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(transformators, "teal_transform_module")) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">3<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/zzz.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    transformators &lt;- list(transformators)</pre>
+                      <pre class="language-r">.onLoad &lt;- function(libname, pkgname) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  # adapted from https://github.com/r-lib/devtools/blob/master/R/zzz.R</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(transformators, "teal_transform_module", null.ok = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">4</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(transformators) &lt;- sprintf("transform_%d", seq_len(length(transformators)))</pre>
+                      <pre class="language-r">  teal_default_options &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">5</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    teal.show_js_log = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">6</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">    teal.lockfile.mode = "auto",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">7</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_output &lt;- Reduce(</pre>
+                      <pre class="language-r">    shiny.sanitize.errors = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(data_previous, name) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        moduleServer(name, function(input, output, session) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">10</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_debug("srv_transform_teal_data initializing for { name }.")</pre>
+                      <pre class="language-r">  op &lt;- options()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">11</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_transform_failed[[name]] &lt;- FALSE</pre>
+                      <pre class="language-r">  toset &lt;- !(names(teal_default_options) %in% names(op))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">12</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data_out &lt;- transformators[[name]]$server("transform", data = data_previous)</pre>
+                      <pre class="language-r">  if (any(toset)) options(teal_default_options[toset])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data_handled &lt;- reactive(tryCatch(data_out(), error = function(e) e))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observeEvent(data_handled(), {</pre>
+                      <pre class="language-r">  # Set up the teal logger instance</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">15</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (inherits(data_handled(), "teal_data")) {</pre>
+                      <pre class="language-r">  teal.logger::register_logger("teal")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">16</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              is_transform_failed[[name]] &lt;- FALSE</pre>
+                      <pre class="language-r">  teal.logger::register_handlers("teal")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">18</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              is_transform_failed[[name]] &lt;- TRUE</pre>
+                      <pre class="language-r">  invisible()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          is_previous_failed &lt;- reactive({</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">29<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            idx_this &lt;- which(names(is_transform_failed) == name)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">29<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            is_transform_failed_list &lt;- reactiveValuesToList(is_transform_failed)</pre>
+                      <pre class="language-r">.onAttach &lt;- function(libname, pkgname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">22</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            idx_failures &lt;- which(unlist(is_transform_failed_list))</pre>
+                      <pre class="language-r">  packageStartupMessage(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">23</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            any(idx_failures &lt; idx_this)</pre>
+                      <pre class="language-r">    "\nYou are using teal version ",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    # `system.file` uses the `shim` of `system.file` by `teal`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          srv_validate_error("silent_error", data_handled, validate_shiny_silent_error = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          srv_check_class_teal_data("class_teal_data", data_handled)</pre>
+                      <pre class="language-r">    # we avoid `desc` dependency here to get the version</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">26</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!is.null(modules)) {</pre>
+                      <pre class="language-r">    read.dcf(system.file("DESCRIPTION", package = "teal"))[, "Version"]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            srv_check_module_datanames("datanames_warning", data_handled, modules)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # When there is no UI (`ui = NULL`) it should still show the errors</pre>
+                      <pre class="language-r"># This one is here because setdiff_teal_slice should not be exported from teal.slice.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observe({</pre>
+                      <pre class="language-r">setdiff_teal_slices &lt;- getFromNamespace("setdiff_teal_slices", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!inherits(data_handled(), "teal_data") &amp;&amp; !is_previous_failed()) {</pre>
+                      <pre class="language-r"># This one is here because it is needed by c.teal_slices but we don't want it exported from teal.slice.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              shinyjs::show("wrapper")</pre>
+                      <pre class="language-r">coalesce_r &lt;- getFromNamespace("coalesce_r", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r"># all *Block objects are private in teal.reporter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">RcodeBlock &lt;- getFromNamespace("RcodeBlock", "teal.reporter") # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          transform_wrapper_id &lt;- sprintf("wrapper_%s", name)</pre>
+                      <pre class="language-r"># Use non-exported function(s) from teal.code</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$error_wrapper &lt;- renderUI({</pre>
+                      <pre class="language-r"># This one is here because lang2calls should not be exported from teal.code</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (is_previous_failed()) {</pre>
+                      <pre class="language-r">lang2calls &lt;- getFromNamespace("lang2calls", "teal.code")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">129</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              shinyjs::disable(transform_wrapper_id)</pre>
+                      <pre class="language-r">code2list &lt;- getFromNamespace("code2list", "teal.data")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">130</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_init_data.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$div("One of previous transformators failed. Please check its inputs.", class = "teal-output-warning")</pre>
+                      <pre class="language-r">#' Data Module for teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              shinyjs::enable(transform_wrapper_id)</pre>
+                      <pre class="language-r">#' This module manages the `data` argument for `srv_teal`. The `teal` framework uses [teal.data::teal_data()],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              shiny::tagList(</pre>
+                      <pre class="language-r">#' which can be provided in various ways:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ui_validate_error(session$ns("silent_error")),</pre>
+                      <pre class="language-r">#' 1. Directly as a [teal.data::teal_data()] object. This will automatically convert it into a `reactive` `teal_data`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ui_check_class_teal_data(session$ns("class_teal_data")),</pre>
+                      <pre class="language-r">#' 2. As a `reactive` object that returns a [teal.data::teal_data()] object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ui_check_module_datanames(session$ns("datanames_warning"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">#' ## Reactive `teal_data`:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' The data in the application can be reactively updated, prompting [srv_teal()] to rebuild the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .trigger_on_success(data_handled)</pre>
+                      <pre class="language-r">#' content accordingly. There are two methods for creating interactive `teal_data`:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">#' 1. Using a `reactive` object provided from outside the `teal` application. In this scenario,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">#' reactivity is controlled by an external module, and `srv_teal` responds to changes.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = names(transformators),</pre>
+                      <pre class="language-r">#' 2. Using [teal_data_module()], which is embedded within the `teal` application, allowing data to</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      init = data</pre>
+                      <pre class="language-r">#' be resubmitted by the user as needed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_output</pre>
+                      <pre class="language-r">#' Since the server of [teal_data_module()] must return a `reactive` `teal_data` object, both</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#' methods (1 and 2) produce the same reactive behavior within a `teal` application. The distinction</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' lies in data control: the first method involves external control, while the second method</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/teal_data_utils.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_data` utils</pre>
+                      <pre class="language-r">#' involves control from a custom module within the app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In `teal` we need to recreate the `teal_data` object due to two operations:</pre>
+                      <pre class="language-r">#' For more details, see [`module_teal_data`].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - we need to append filter-data code and objects which have been evaluated in `FilteredData` and</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' we want to avoid double-evaluation.</pre>
+                      <pre class="language-r">#' @inheritParams init</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - we need to subset `teal_data` to `datanames` used by the module, to shorten obtainable R-code</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param data (`teal_data`, `teal_data_module`, or `reactive` returning `teal_data`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Due to above recreation of `teal_data` object can't be done simply by using public</pre>
+                      <pre class="language-r">#' The data which application will depend on.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal.code` and `teal.data` methods.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A `reactive` object that returns:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data`)</pre>
+                      <pre class="language-r">#' Output of the `data`. If `data` fails then returned error is handled (after [tryCatch()]) so that</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param code (`character`) code to append to the object's code slot.</pre>
+                      <pre class="language-r">#' rest of the application can respond to this respectively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param objects (`list`) objects to append to object's environment.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return modified `teal_data`</pre>
+                      <pre class="language-r">#' @rdname module_init_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @name module_init_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name teal_data_utilities</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_data_utilities</pre>
+                      <pre class="language-r">#' @rdname module_init_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.append_evaluated_code &lt;- function(data, code) {</pre>
+                      <pre class="language-r">ui_init_data &lt;- function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">21</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">41</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "teal_data")</pre>
+                      <pre class="language-r">  ns &lt;- shiny::NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">22</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">42</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data@code &lt;- c(data@code, code2list(code))</pre>
+                      <pre class="language-r">  shiny::div(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">23</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">43</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  methods::validObject(data)</pre>
+                      <pre class="language-r">    id = ns("content"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">44</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data</pre>
+                      <pre class="language-r">    style = "display: inline-block; width: 100%;",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    uiOutput(ns("data"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_data_utilities</pre>
+                      <pre class="language-r">#' @rdname module_init_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.append_modified_data &lt;- function(data, objects) {</pre>
+                      <pre class="language-r">srv_init_data &lt;- function(id, data) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">51</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "teal_data")</pre>
+                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">52</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(objects, "list")</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module", "reactive"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  new_env &lt;- list2env(objects, parent = .GlobalEnv)</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">55</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rlang::env_coalesce(new_env, as.environment(data))</pre>
+                      <pre class="language-r">    logger::log_debug("srv_data initializing.")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data@.xData &lt;- new_env</pre>
+                      <pre class="language-r">    data_out &lt;- if (inherits(data, "teal_data_module")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">89<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data</pre>
+                      <pre class="language-r">      output$data &lt;- renderUI(data$ui(id = session$ns("teal_data_module")))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      data$server("teal_data_module")</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/validate_inputs.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Send input validation messages to output</pre>
+                      <pre class="language-r">    } else if (inherits(data, "teal_data")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      reactiveVal(data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Captures messages from `InputValidator` objects and collates them</pre>
+                      <pre class="language-r">    } else if (test_reactive(data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' into one message passed to `validate`.</pre>
+                      <pre class="language-r">      data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `shiny::validate` is used to withhold rendering of an output element until</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' certain conditions are met and to print a validation message in place</pre>
+                      <pre class="language-r">    data_handled &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of the output element.</pre>
+                      <pre class="language-r">      tryCatch(data_out(), error = function(e) e)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `shinyvalidate::InputValidator` allows to validate input elements</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and to display specific messages in their respective input widgets.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `validate_inputs` provides a hybrid solution.</pre>
+                      <pre class="language-r">    # We want to exclude teal_data_module elements from bookmarking as they might have some secrets</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Given an `InputValidator` object, messages corresponding to inputs that fail validation</pre>
+                      <pre class="language-r">    observeEvent(data_handled(), {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">80<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      if (inherits(data_handled(), "teal_data")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        app_session &lt;- .subset2(shiny::getDefaultReactiveDomain(), "parent")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        setBookmarkExclude(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          session$ns(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            grep(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              pattern = "teal_data_module-",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              x = names(reactiveValuesToList(input)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              value = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' are extracted and placed in one validation message that is passed to a `validate`/`need` call.</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This way the input `validator` messages are repeated in the output.</pre>
+                      <pre class="language-r">          ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          session = app_session</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The `...` argument accepts any number of `InputValidator` objects</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or a nested list of such objects.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If `validators` are passed directly, all their messages are printed together</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">87<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    data_handled</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' under one (optional) header message specified by `header`. If a list is passed,</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' messages are grouped by `validator`. The list's names are used as headers</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for their respective message groups.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If neither of the nested list elements is named, a header message is taken from `header`.</pre>
+                      <pre class="language-r">#' Adds signature protection to the `datanames` in the data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param data (`teal_data`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... either any number of `InputValidator` objects</pre>
+                      <pre class="language-r">#' @return `teal_data` with additional code that has signature of the `datanames`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'            or an optionally named, possibly nested `list` of `InputValidator`</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'            objects, see `Details`</pre>
+                      <pre class="language-r">.add_signature_to_data &lt;- function(data) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  hashes &lt;- .get_hashes_code(data)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  tdata &lt;- do.call(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    teal.data::teal_data,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    c(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      list(code = trimws(c(teal.code::get_code(data), hashes), which = "right")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      list(join_keys = teal.data::join_keys(data)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      sapply(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">75<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        names(data),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param header (`character(1)`) generic validation message; set to NULL to omit</pre>
+                      <pre class="language-r">        teal.code::get_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        object = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">        simplify = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Returns NULL if the final validation call passes and a `shiny.silent.error` if it fails.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [`shinyvalidate::InputValidator`], [`shiny::validate`]</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examplesIf require("shinyvalidate")</pre>
+                      <pre class="language-r">  tdata@verified &lt;- data@verified</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">  tdata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shinyvalidate)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">#' Get code that tests the integrity of the reproducible data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput("method", "validation method", c("sequential", "combined", "grouped")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sidebarLayout(</pre>
+                      <pre class="language-r">#' @param data (`teal_data`) object holding the data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sidebarPanel(</pre>
+                      <pre class="language-r">#' @param datanames (`character`) names of `datasets`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       selectInput("letter", "select a letter:", c(letters[1:3], LETTERS[4:6])),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       selectInput("number", "select a number:", 1:6),</pre>
+                      <pre class="language-r">#' @return A character vector with the code lines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       tags$br(),</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       selectInput("color", "select a color:",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         c("black", "indianred2", "springgreen2", "cornflowerblue"),</pre>
+                      <pre class="language-r">.get_hashes_code &lt;- function(data, datanames = names(data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         multiple = TRUE</pre>
+                      <pre class="language-r">  vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">    datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       sliderInput("size", "select point size:",</pre>
+                      <pre class="language-r">    function(dataname, datasets) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         min = 0.1, max = 4, value = 0.25</pre>
+                      <pre class="language-r">      x &lt;- data[[dataname]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">      code &lt;- if (is.function(x) &amp;&amp; !is.primitive(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     mainPanel(plotOutput("plot"))</pre>
+                      <pre class="language-r">        x &lt;- deparse1(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">        bquote(rlang::hash(deparse1(.(as.name(dataname)))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">127<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        bquote(rlang::hash(.(as.name(dataname))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # set up input validation</pre>
+                      <pre class="language-r">      sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv &lt;- InputValidator$new()</pre>
+                      <pre class="language-r">        "stopifnot(%s == %s) # @linksto %s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv$add_rule("letter", sv_in_set(LETTERS, "choose a capital letter"))</pre>
+                      <pre class="language-r">        deparse1(code),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv$add_rule("number", function(x) {</pre>
+                      <pre class="language-r">        deparse1(rlang::hash(x)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     if (as.integer(x) %% 2L == 1L) "choose an even number"</pre>
+                      <pre class="language-r">        dataname</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv$enable()</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # more input validation</pre>
+                      <pre class="language-r">    character(1L),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv_par &lt;- InputValidator$new()</pre>
+                      <pre class="language-r">    USE.NAMES = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv_par$add_rule("color", sv_required(message = "choose a color"))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv_par$add_rule("color", function(x) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/checkmate.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     if (length(x) &gt; 1L) "choose only one color"</pre>
+                      <pre class="language-r">#' Check that argument is reactive.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv_par$add_rule(</pre>
+                      <pre class="language-r">#' @inherit checkmate::check_class params return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "size",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sv_between(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       left = 0.5, right = 3,</pre>
+                      <pre class="language-r">check_reactive &lt;- function(x, null.ok = FALSE) { # nolint: object_name_linter.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">7</td>
+                    <td class="coverage">1134<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       message_fmt = "choose a value between {left} and {right}"</pre>
+                      <pre class="language-r">  if (!isTRUE(checkmate::test_class(x, classes = "reactive", null.ok = null.ok))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">8</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">    cl &lt;- class(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">9</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    return(sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">10</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv_par$enable()</pre>
+                      <pre class="language-r">      "Must be a reactive (i.e. inherit from 'reactive' class) but has class%s '%s'",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">11</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (length(cl) &gt; 1L) "es" else "",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">12</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
+                      <pre class="language-r">      paste0(cl, collapse = "','")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # validate output</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     switch(input[["method"]],</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">15</td>
+                    <td class="coverage">1130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "sequential" = {</pre>
+                      <pre class="language-r">  return(TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         validate_inputs(iv)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         validate_inputs(iv_par, header = "Set proper graphical parameters")</pre>
+                      <pre class="language-r">#' @rdname check_reactive</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       },</pre>
+                      <pre class="language-r">test_reactive &lt;- function(x, null.ok = FALSE) { # nolint: object_name_linter.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">19</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "combined" = validate_inputs(iv, iv_par),</pre>
+                      <pre class="language-r">  isTRUE(check_reactive(x, null.ok = null.ok))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "grouped" = validate_inputs(list(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "Some inputs require attention" = iv,</pre>
+                      <pre class="language-r">#' @rdname check_reactive</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "Set proper graphical parameters" = iv_par</pre>
+                      <pre class="language-r">assert_reactive &lt;- checkmate::makeAssertionFunction(check_reactive)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' Capture error and decorate error message.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     plot(faithful$eruptions ~ faithful$waiting,</pre>
+                      <pre class="language-r">#' @param x object to evaluate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       las = 1, pch = 16,</pre>
+                      <pre class="language-r">#' @param pre (`character(1)`) A string to prepend to error message</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       col = input[["color"]], cex = input[["size"]]</pre>
+                      <pre class="language-r">#' @param post (`character(1)`) A string to append to error message</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#' @return `x` if no error, otherwise throws error with decorated message</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">decorate_err_msg &lt;- function(x, pre = character(0), post = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">  tryCatch(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    error = function(e) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        "\n",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_inputs &lt;- function(..., header = "Some inputs require attention") {</pre>
+                      <pre class="language-r">        pre,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dots &lt;- list(...)</pre>
+                      <pre class="language-r">        "\n",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
+                    <td class="num">41</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is_validators(dots)) stop("validate_inputs accepts validators or a list thereof")</pre>
+                      <pre class="language-r">        e$message,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        "\n",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">43</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  messages &lt;- extract_validator(dots, header)</pre>
+                      <pre class="language-r">        post,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">44</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  failings &lt;- if (!any_names(dots)) {</pre>
+                      <pre class="language-r">        call. = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    add_header(messages, header)</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">48</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unlist(messages)</pre>
+                      <pre class="language-r">  x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/teal_data_module-within.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">34<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  shiny::validate(shiny::need(is.null(failings), failings))</pre>
+                      <pre class="language-r">#' Evaluate expression on `teal_data_module`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">### internal functions</pre>
+                      <pre class="language-r">#' `within` is a convenience function for evaluating inline code inside the environment of a `teal_data_module`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' It accepts only inline expressions (both simple and compound) and allows for injecting values into `expr` through</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' the `...` argument: as `name:value` pairs are passed to `...`, `name` in `expr` will be replaced with `value.`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># recursive object type test</pre>
+                      <pre class="language-r">#' @param data (`teal_data_module`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># returns logical of length 1</pre>
+                      <pre class="language-r">#' @param expr (`expression`) to evaluate. Must be inline code. See [within()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">is_validators &lt;- function(x) {</pre>
+                      <pre class="language-r">#' @param ... See `Details`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">118<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all(if (is.list(x)) unlist(lapply(x, is_validators)) else inherits(x, "InputValidator"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' `within` returns a `teal_data_module` object with a delayed evaluation of `expr` when the module is run.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># test if an InputValidator object is enabled</pre>
+                      <pre class="language-r">#' within(tdm, dataset1 &lt;- subset(dataset1, Species == "virginica"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># returns logical of length 1</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># official method requested at https://github.com/rstudio/shinyvalidate/issues/64</pre>
+                      <pre class="language-r">#' # use additional parameter for expression value substitution.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validator_enabled &lt;- function(x) {</pre>
+                      <pre class="language-r">#' valid_species &lt;- "versicolor"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x$.__enclos_env__$private$enabled</pre>
+                      <pre class="language-r">#' within(tdm, dataset1 &lt;- subset(dataset1, Species %in% species), species = valid_species)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @include teal_data_module.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @name within</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Recursively extract messages from validator list</pre>
+                      <pre class="language-r">#' @rdname teal_data_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A character vector or a list of character vectors, possibly nested and named.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">extract_validator &lt;- function(iv, header) {</pre>
+                      <pre class="language-r">within.teal_data_module &lt;- function(data, expr, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">113<em>x</em></td>
+                    <td class="num">28</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(iv, "InputValidator")) {</pre>
+                      <pre class="language-r">  expr &lt;- substitute(expr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">29</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    add_header(gather_messages(iv), header)</pre>
+                      <pre class="language-r">  extras &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Add braces for consistency.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">58<em>x</em></td>
+                    <td class="num">32</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(names(iv))) names(iv) &lt;- rep("", length(iv))</pre>
+                      <pre class="language-r">  if (!identical(as.list(expr)[[1L]], as.symbol("{"))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="num">33</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mapply(extract_validator, iv = iv, header = names(iv), SIMPLIFY = FALSE)</pre>
+                      <pre class="language-r">    expr &lt;- call("{", expr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  calls &lt;- as.list(expr)[-1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Collate failing messages from validator.</pre>
+                      <pre class="language-r">  # Inject extra values into expressions.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  calls &lt;- lapply(calls, function(x) do.call(substitute, list(x, env = extras)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `list`</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  eval_code(object = data, code = as.expression(calls))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/teal_data_utils.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' `teal_data` utils</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">gather_messages &lt;- function(iv) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (validator_enabled(iv)) {</pre>
+                      <pre class="language-r">#' In `teal` we need to recreate the `teal_data` object due to two operations:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    status &lt;- iv$validate()</pre>
+                      <pre class="language-r">#' - we need to append filter-data code and objects which have been evaluated in `FilteredData` and</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    failing_inputs &lt;- Filter(Negate(is.null), status)</pre>
+                      <pre class="language-r">#' we want to avoid double-evaluation.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unique(lapply(failing_inputs, function(x) x[["message"]]))</pre>
+                      <pre class="language-r">#' - we need to subset `teal_data` to `datanames` used by the module, to shorten obtainable R-code</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("Validator is disabled and will be omitted.")</pre>
+                      <pre class="language-r">#' Due to above recreation of `teal_data` object can't be done simply by using public</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list()</pre>
+                      <pre class="language-r">#' `teal.code` and `teal.data` methods.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param data (`teal_data`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param code (`character`) code to append to the object's code slot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Add optional header to failing messages</pre>
+                      <pre class="language-r">#' @param objects (`list`) objects to append to object's environment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' @return modified `teal_data`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">add_header &lt;- function(messages, header = "") {</pre>
+                      <pre class="language-r">#' @name teal_data_utilities</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans &lt;- unlist(messages)</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(ans) != 0L &amp;&amp; isTRUE(nchar(header) &gt; 0L)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ans &lt;- c(paste0(header, "\n"), ans, "\n")</pre>
+                      <pre class="language-r">#' @rdname teal_data_utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">.append_evaluated_code &lt;- function(data, code) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">21</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">22</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  data@code &lt;- c(data@code, code2list(code))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">23</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  methods::validObject(data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">24</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Recursively check if the object contains a named list</pre>
+                      <pre class="language-r">  data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">any_names &lt;- function(x) {</pre>
+                      <pre class="language-r">#' @rdname teal_data_utilities</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">103<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  any(</pre>
+                      <pre class="language-r">.append_modified_data &lt;- function(data, objects) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">103<em>x</em></td>
+                    <td class="num">29</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.list(x)) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">58<em>x</em></td>
+                    <td class="num">30</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(names(x)) &amp;&amp; any(names(x) != "")) TRUE else unlist(lapply(x, any_names))</pre>
+                      <pre class="language-r">  checkmate::assert_class(objects, "list")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">  new_env &lt;- list2env(objects, parent = .GlobalEnv)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="num">32</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      FALSE</pre>
+                      <pre class="language-r">  rlang::env_coalesce(new_env, as.environment(data))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  data@.xData &lt;- new_env</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -45924,633 +45712,620 @@ <h2>teal coverage - 60.02%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/zzz.R" class="hidden">
+            <div id="R/landing_popup_module.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.onLoad &lt;- function(libname, pkgname) {</pre>
+                      <pre class="language-r">#' Landing popup module</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # adapted from https://github.com/r-lib/devtools/blob/master/R/zzz.R</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description Creates a landing welcome popup for `teal` applications.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">4</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal_default_options &lt;- list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">5</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.show_js_log = FALSE,</pre>
+                      <pre class="language-r">#' This module is used to display a popup dialog when the application starts.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">6</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.lockfile.mode = "auto",</pre>
+                      <pre class="language-r">#' The dialog blocks access to the application and must be closed with a button before the application can be viewed.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">7</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shiny.sanitize.errors = FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @param label (`character(1)`) Label of the module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param title (`character(1)`) Text to be displayed as popup title.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">10</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  op &lt;- options()</pre>
+                      <pre class="language-r">#' @param content (`character(1)`, `shiny.tag` or `shiny.tag.list`) with the content of the popup.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">11</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  toset &lt;- !(names(teal_default_options) %in% names(op))</pre>
+                      <pre class="language-r">#'  Passed to `...` of `shiny::modalDialog`. See examples.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">12</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(toset)) options(teal_default_options[toset])</pre>
+                      <pre class="language-r">#' @param buttons (`shiny.tag` or `shiny.tag.list`) Typically a `modalButton` or `actionButton`. See examples.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Set up the teal logger instance</pre>
+                      <pre class="language-r">#' @return A `teal_module` (extended with `teal_landing_module` class) to be used in `teal` applications.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">15</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.logger::register_logger("teal")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">16</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.logger::register_handlers("teal")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' app1 &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">18</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible()</pre>
+                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     example_module()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.onAttach &lt;- function(libname, pkgname) {</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">22</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  packageStartupMessage(</pre>
+                      <pre class="language-r">#'   landing_popup = landing_popup_module(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">23</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "\nYou are using teal version ",</pre>
+                      <pre class="language-r">#'     content = "A place for the welcome message or a disclaimer statement.",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # `system.file` uses the `shim` of `system.file` by `teal`</pre>
+                      <pre class="language-r">#'     buttons = modalButton("Proceed")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # we avoid `desc` dependency here to get the version</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">26</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    read.dcf(system.file("DESCRIPTION", package = "teal"))[, "Version"]</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   shinyApp(app1$ui, app1$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This one is here because setdiff_teal_slice should not be exported from teal.slice.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setdiff_teal_slices &lt;- getFromNamespace("setdiff_teal_slices", "teal.slice")</pre>
+                      <pre class="language-r">#' app2 &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This one is here because it is needed by c.teal_slices but we don't want it exported from teal.slice.</pre>
+                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">coalesce_r &lt;- getFromNamespace("coalesce_r", "teal.slice")</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># all *Block objects are private in teal.reporter</pre>
+                      <pre class="language-r">#'     example_module()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">RcodeBlock &lt;- getFromNamespace("RcodeBlock", "teal.reporter") # nolint: object_name.</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   landing_popup = landing_popup_module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># Use non-exported function(s) from teal.code</pre>
+                      <pre class="language-r">#'     title = "Welcome",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This one is here because lang2calls should not be exported from teal.code</pre>
+                      <pre class="language-r">#'     content = tags$b(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">lang2calls &lt;- getFromNamespace("lang2calls", "teal.code")</pre>
+                      <pre class="language-r">#'       "A place for the welcome message or a disclaimer statement.",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">code2list &lt;- getFromNamespace("code2list", "teal.data")</pre>
+                      <pre class="language-r">#'       style = "color: red;"</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/checkmate.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Check that argument is reactive.</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     buttons = tagList(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inherit checkmate::check_class params return</pre>
+                      <pre class="language-r">#'       modalButton("Proceed"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       actionButton("read", "Read more",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'         onclick = "window.open('http://google.com', '_blank')"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_reactive &lt;- function(x, null.ok = FALSE) { # nolint: object_name_linter.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">7</td>
-                    <td class="coverage">1134<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!isTRUE(checkmate::test_class(x, classes = "reactive", null.ok = null.ok))) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">8</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    cl &lt;- class(x)</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">9</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(sprintf(</pre>
+                      <pre class="language-r">#'       actionButton("close", "Reject", onclick = "window.close()")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">10</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Must be a reactive (i.e. inherit from 'reactive' class) but has class%s '%s'",</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">11</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(cl) &gt; 1L) "es" else "",</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">12</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0(cl, collapse = "','")</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">15</td>
-                    <td class="coverage">1130<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(TRUE)</pre>
+                      <pre class="language-r">#'   shinyApp(app2$ui, app2$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname check_reactive</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">test_reactive &lt;- function(x, null.ok = FALSE) { # nolint: object_name_linter.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">19</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  isTRUE(check_reactive(x, null.ok = null.ok))</pre>
+                      <pre class="language-r">landing_popup_module &lt;- function(label = "Landing Popup",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                                 title = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname check_reactive</pre>
+                      <pre class="language-r">                                 content = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">assert_reactive &lt;- checkmate::makeAssertionFunction(check_reactive)</pre>
+                      <pre class="language-r">                                 buttons = modalButton("Accept")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">61</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">62</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Capture error and decorate error message.</pre>
+                      <pre class="language-r">  checkmate::assert_string(title, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">63</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">64</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x object to evaluate</pre>
+                      <pre class="language-r">    content,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">65</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pre (`character(1)`) A string to prepend to error message</pre>
+                      <pre class="language-r">    classes = c("character", "shiny.tag", "shiny.tag.list", "html"), null.ok = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param post (`character(1)`) A string to append to error message</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">67</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(buttons, classes = c("shiny.tag", "shiny.tag.list"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `x` if no error, otherwise throws error with decorated message</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  message("Initializing landing_popup_module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">decorate_err_msg &lt;- function(x, pre = character(0), post = character(0)) {</pre>
+                      <pre class="language-r">  module &lt;- module(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">47<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">72</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tryCatch(</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">47<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">73</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x,</pre>
+                      <pre class="language-r">    server = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">47<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">74</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    error = function(e) {</pre>
+                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">75</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(</pre>
+                      <pre class="language-r">        showModal(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">76</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "\n",</pre>
+                      <pre class="language-r">          modalDialog(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">77</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pre,</pre>
+                      <pre class="language-r">            id = "landingpopup",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">78</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "\n",</pre>
+                      <pre class="language-r">            title = title,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">79</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        e$message,</pre>
+                      <pre class="language-r">            content,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">80</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "\n",</pre>
+                      <pre class="language-r">            footer = buttons</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        post,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        call. = FALSE</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">45<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">86</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x</pre>
+                      <pre class="language-r">  class(module) &lt;- c("teal_module_landing", class(module))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -46559,1527 +46334,1641 @@ <h2>teal coverage - 60.02%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/teal_data_module-within.R" class="hidden">
+            <div id="R/teal_reporter.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Evaluate expression on `teal_data_module`</pre>
+                      <pre class="language-r">#' @title `TealReportCard`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#' Child class of [`teal.reporter::ReportCard`] that is used for `teal` specific applications.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `within` is a convenience function for evaluating inline code inside the environment of a `teal_data_module`.</pre>
+                      <pre class="language-r">#' In addition to the parent methods, it supports rendering `teal` specific elements such as</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It accepts only inline expressions (both simple and compound) and allows for injecting values into `expr` through</pre>
+                      <pre class="language-r">#' the source code, the encodings panel content and the filter panel content as part of the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the `...` argument: as `name:value` pairs are passed to `...`, `name` in `expr` will be replaced with `value.`</pre>
+                      <pre class="language-r">#' meta data.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data_module`) object</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param expr (`expression`) to evaluate. Must be inline code. See [within()]</pre>
+                      <pre class="language-r">TealReportCard &lt;- R6::R6Class( # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... See `Details`.</pre>
+                      <pre class="language-r">  classname = "TealReportCard",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  inherit = teal.reporter::ReportCard,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `within` returns a `teal_data_module` object with a delayed evaluation of `expr` when the module is run.</pre>
+                      <pre class="language-r">    #' @description Appends the source code to the `content` meta data of this `TealReportCard`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    #' @param src (`character(1)`) code as text.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' within(tdm, dataset1 &lt;- subset(dataset1, Species == "virginica"))</pre>
+                      <pre class="language-r">    #' @param ... any `rmarkdown` `R` chunk parameter and its value.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' But `eval` parameter is always set to `FALSE`.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' @return Object of class `TealReportCard`, invisibly.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' @examples</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' card &lt;- TealReportCard$new()$append_src(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #'   "plot(iris)"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' card$get_content()[[1]]$get_content()</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    append_src = function(src, ...) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">25</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      checkmate::assert_character(src, min.len = 0, max.len = 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">26</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      params &lt;- list(...)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">27</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      params$eval &lt;- FALSE</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">28</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      rblock &lt;- RcodeBlock$new(src)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">29</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      rblock$set_params(params)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">30</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      self$append_content(rblock)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      self$append_metadata("SRC", src)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use additional parameter for expression value substitution.</pre>
+                      <pre class="language-r">    #' @description Appends the filter state list to the `content` and `metadata` of this `TealReportCard`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' valid_species &lt;- "versicolor"</pre>
+                      <pre class="language-r">    #'  If the filter state list has an attribute named `formatted`, it appends it to the card otherwise it uses</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' within(tdm, dataset1 &lt;- subset(dataset1, Species %in% species), species = valid_species)</pre>
+                      <pre class="language-r">    #'  the default `yaml::as.yaml` to format the list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @include teal_data_module.R</pre>
+                      <pre class="language-r">    #'  If the filter state list is empty, nothing is appended to the `content`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name within</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_data_module</pre>
+                      <pre class="language-r">    #' @param fs (`teal_slices`) object returned from [teal_slices()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    append_fs = function(fs) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      checkmate::assert_class(fs, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">within.teal_data_module &lt;- function(data, expr, ...) {</pre>
+                      <pre class="language-r">      self$append_text("Filter State", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">44</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  expr &lt;- substitute(expr)</pre>
+                      <pre class="language-r">      if (length(fs)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">45</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extras &lt;- list(...)</pre>
+                      <pre class="language-r">        self$append_content(TealSlicesBlock$new(fs))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add braces for consistency.</pre>
+                      <pre class="language-r">        self$append_text("No filters specified.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!identical(as.list(expr)[[1L]], as.symbol("{"))) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">49</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expr &lt;- call("{", expr)</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @description Appends the encodings list to the `content` and `metadata` of this `TealReportCard`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  calls &lt;- as.list(expr)[-1]</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @param encodings (`list`) list of encodings selections of the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Inject extra values into expressions.</pre>
+                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  calls &lt;- lapply(calls, function(x) do.call(substitute, list(x, env = extras)))</pre>
+                      <pre class="language-r">    #' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' card &lt;- TealReportCard$new()$append_encodings(list(variable1 = "X"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  eval_code(object = data, code = as.expression(calls))</pre>
+                      <pre class="language-r">    #' card$get_content()[[1]]$get_content()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tdata.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `tdata` object</pre>
+                      <pre class="language-r">    append_encodings = function(encodings) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      checkmate::assert_list(encodings)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("superseded")`</pre>
+                      <pre class="language-r">      self$append_text("Selected Options", "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (requireNamespace("yaml", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Recent changes in `teal` cause modules to fail because modules expect a `tdata` object</pre>
+                      <pre class="language-r">        self$append_text(yaml::as.yaml(encodings, handlers = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to be passed to the `data` argument but instead they receive a `teal_data` object,</pre>
+                      <pre class="language-r">          POSIXct = function(x) format(x, "%Y-%m-%d"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' which is additionally wrapped in a reactive expression in the server functions.</pre>
+                      <pre class="language-r">          POSIXlt = function(x) format(x, "%Y-%m-%d"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In order to easily adapt such modules without a proper refactor,</pre>
+                      <pre class="language-r">          Date = function(x) format(x, "%Y-%m-%d")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' use this function to downgrade the `data` argument.</pre>
+                      <pre class="language-r">        )), "verbatim")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name tdata</pre>
+                      <pre class="language-r">        stop("yaml package is required to format the encodings list")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... ignored</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return nothing</pre>
+                      <pre class="language-r">      self$append_metadata("Encodings", encodings)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname tdata</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">new_tdata &lt;- function(...) {</pre>
+                      <pre class="language-r">    dispatch_block = function(block_class) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">19</td>
+                    <td class="num">77</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
+                      <pre class="language-r">      eval(str2lang(block_class))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname tdata</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tdata2env &lt;- function(...) {</pre>
+                      <pre class="language-r">#' @title `TealSlicesBlock`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">25</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Specialized `TealSlicesBlock` block for managing filter panel content in reports.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname tdata</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">TealSlicesBlock &lt;- R6::R6Class( # nolint: object_name_linter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_code_tdata &lt;- function(...) {</pre>
+                      <pre class="language-r">  classname = "TealSlicesBlock",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">31</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
+                      <pre class="language-r">  inherit = teal.reporter:::TextBlock,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @description Returns a `TealSlicesBlock` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname tdata</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    #' @details Returns a `TealSlicesBlock` object with no content and no parameters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">join_keys.tdata &lt;- function(...) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">37</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
+                      <pre class="language-r">    #' @param content (`teal_slices`) object returned from [teal_slices()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #' @param style (`character(1)`) string specifying style to apply.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname tdata</pre>
+                      <pre class="language-r">    #' @return Object of class `TealSlicesBlock`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_metadata &lt;- function(...) {</pre>
+                      <pre class="language-r">    initialize = function(content = teal_slices(), style = "verbatim") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">43</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
+                      <pre class="language-r">      self$set_content(content)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      self$set_style(style)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname tdata</pre>
+                      <pre class="language-r">    #' @description Sets content of this `TealSlicesBlock`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    #' Sets content as `YAML` text which represents a list generated from `teal_slices`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">as_tdata &lt;- function(...) {</pre>
+                      <pre class="language-r">    #' The list displays limited number of fields from `teal_slice` objects, but this list is</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">49</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
+                      <pre class="language-r">    #' sufficient to conclude which filters were applied.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #' When `selected` field in `teal_slice` object is a range, then it is displayed as a "min"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.deprecate_tdata_msg &lt;- function() {</pre>
+                      <pre class="language-r">    #' @param content (`teal_slices`) object returned from [teal_slices()] function.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">54</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_stop(</pre>
+                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">55</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    when = "0.16",</pre>
+                      <pre class="language-r">    set_content = function(content) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">56</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    what = "tdata()",</pre>
+                      <pre class="language-r">      checkmate::assert_class(content, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">57</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = paste(</pre>
+                      <pre class="language-r">      if (length(content) != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">58</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "tdata has been removed in favour of `teal_data`.\n",</pre>
+                      <pre class="language-r">        states_list &lt;- lapply(content, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">59</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please follow migration instructions https://github.com/insightsengineering/teal/discussions/987."</pre>
+                      <pre class="language-r">          x_list &lt;- shiny::isolate(as.list(x))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          if (</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            inherits(x_list$choices, c("integer", "numeric", "Date", "POSIXct", "POSIXlt")) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">              length(x_list$choices) == 2 &amp;&amp;</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              length(x_list$selected) == 2</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/get_rcode_utils.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generates library calls from current session info</pre>
+                      <pre class="language-r">          ) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">125</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            x_list$range &lt;- paste(x_list$selected, collapse = " - ")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">126</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function to create multiple library calls out of current session info to ensure reproducible code works.</pre>
+                      <pre class="language-r">            x_list["selected"] &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Character vector of `library(&lt;package&gt;)` calls.</pre>
+                      <pre class="language-r">          if (!is.null(x_list$arg)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">129</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">            x_list$arg &lt;- if (x_list$arg == "subset") "Genes" else "Samples"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_rcode_libraries &lt;- function() {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">8</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  libraries &lt;- vapply(</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">9</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    utils::sessionInfo()$otherPkgs,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">10</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(x) {</pre>
+                      <pre class="language-r">          x_list &lt;- x_list[</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">11</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">133</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0("library(", x$Package, ")")</pre>
+                      <pre class="language-r">            c("dataname", "varname", "experiment", "arg", "expr", "selected", "range", "keep_na", "keep_inf")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">          ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">13</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">135</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    character(1)</pre>
+                      <pre class="language-r">          names(x_list) &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            "Dataset name", "Variable name", "Experiment", "Filtering by", "Applied expression",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">15</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste0(paste0(rev(libraries), sep = "\n"), collapse = "")</pre>
+                      <pre class="language-r">            "Selected Values", "Selected range", "Include NA values", "Include Inf values"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          Filter(Negate(is.null), x_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_rcode_str_install &lt;- function() {</pre>
+                      <pre class="language-r">        if (requireNamespace("yaml", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">22</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  code_string &lt;- getOption("teal.load_nest_code")</pre>
+                      <pre class="language-r">          super$set_content(yaml::as.yaml(states_list))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">23</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.character(code_string)) {</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">146</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    code_string</pre>
+                      <pre class="language-r">          stop("yaml package is required to format the filter state list")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">26</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "# Add any code to install/load your NEST environment here\n"</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      private$teal_slices &lt;- content</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/include_css_js.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Include `CSS` files from `/inst/css/` package directory to application header</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @description Create the `TealSlicesBlock` from a list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
+                      <pre class="language-r">    #' @param x (`named list`) with two fields `text` and `style`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as needed. Thus, we do not export this method.</pre>
+                      <pre class="language-r">    #' Use the `get_available_styles` method to get all possible styles.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pattern (`character`) pattern of files to be included</pre>
+                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return HTML code that includes `CSS` files.</pre>
+                      <pre class="language-r">    #' TealSlicesBlock &lt;- getFromNamespace("TealSlicesBlock", "teal")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #' block &lt;- TealSlicesBlock$new()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">include_css_files &lt;- function(pattern = "*") {</pre>
+                      <pre class="language-r">    #' block$from_list(list(text = "sth", style = "default"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">12</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  css_files &lt;- list.files(</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">13</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    system.file("css", package = "teal", mustWork = TRUE),</pre>
+                      <pre class="language-r">    from_list = function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">14</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pattern = pattern, full.names = TRUE</pre>
+                      <pre class="language-r">      checkmate::assert_list(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      checkmate::assert_names(names(x), must.include = c("text", "style"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      super$set_content(x$text)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">17</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  singleton(</pre>
+                      <pre class="language-r">      super$set_style(x$style)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">18</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$head(lapply(css_files, includeCSS))</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #' @description Convert the `TealSlicesBlock` to a list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Include `JS` files from `/inst/js/` package directory to application header</pre>
+                      <pre class="language-r">    #' @return `named list` with a text and style.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
+                      <pre class="language-r">    #' TealSlicesBlock &lt;- getFromNamespace("TealSlicesBlock", "teal")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
+                      <pre class="language-r">    #' block &lt;- TealSlicesBlock$new()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as needed. Thus, we do not export this method</pre>
+                      <pre class="language-r">    #' block$to_list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pattern (`character`) pattern of files to be included, passed to `system.file`</pre>
+                      <pre class="language-r">    to_list = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param except (`character`) vector of basename filenames to be excluded</pre>
+                      <pre class="language-r">      content &lt;- self$get_content()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return HTML code that includes `JS` files.</pre>
+                      <pre class="language-r">        text = if (length(content)) content else "",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        style = self$get_style()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">include_js_files &lt;- function(pattern = NULL, except = NULL) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">34</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(except, min.len = 1, any.missing = FALSE, null.ok = TRUE)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">35</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  js_files &lt;- list.files(system.file("js", package = "teal", mustWork = TRUE), pattern = pattern, full.names = TRUE)</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">36</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  js_files &lt;- js_files[!(basename(js_files) %in% except)] # no-op if except is NULL</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    style = "verbatim",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">38</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  singleton(lapply(js_files, includeScript))</pre>
+                      <pre class="language-r">    teal_slices = NULL # teal_slices</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/show_rcode_modal.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Run `JS` file from `/inst/js/` package directory</pre>
+                      <pre class="language-r">#' Show `R` code modal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is triggered from the server to execute on the client</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rather than triggered directly on the client.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Unlike `include_js_files` which includes `JavaScript` functions,</pre>
+                      <pre class="language-r">#' Use the [shiny::showModal()] function to show the `R` code inside.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the `run_js` actually executes `JavaScript` functions.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param title (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
+                      <pre class="language-r">#'  Title of the modal, displayed in the first comment of the `R` code.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
+                      <pre class="language-r">#' @param rcode (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as needed. Thus, we do not export this method.</pre>
+                      <pre class="language-r">#'  vector with `R` code to show inside the modal.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param session (`ShinySession`) optional</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param files (`character`) vector of filenames.</pre>
+                      <pre class="language-r">#'  `shiny` session object, defaults to [shiny::getDefaultReactiveDomain()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#' @references [shiny::showModal()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">run_js_files &lt;- function(files) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">88<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(files, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">show_rcode_modal &lt;- function(title = NULL, rcode, session = getDefaultReactiveDomain()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">17</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(files, function(file) {</pre>
+                      <pre class="language-r">  lifecycle::deprecate_soft(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">18</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyjs::runjs(paste0(readLines(system.file("js", file, package = "teal", mustWork = TRUE)), collapse = "\n"))</pre>
+                      <pre class="language-r">    when = "0.16",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">19</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    what = "show_rcode_modal()",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">20</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r">    details = "This function will be removed in the next release."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">23</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Code to include `teal` `CSS` and `JavaScript` files</pre>
+                      <pre class="language-r">  rcode &lt;- paste(rcode, collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">25</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is useful when you want to use the same `JavaScript` and `CSS` files that are</pre>
+                      <pre class="language-r">  ns &lt;- session$ns</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">26</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' used with the `teal` application.</pre>
+                      <pre class="language-r">  showModal(modalDialog(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">27</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is also useful for running standalone modules in `teal` with the correct</pre>
+                      <pre class="language-r">    tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">28</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' styles.</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">29</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Also initializes `shinyjs` so you can use it.</pre>
+                      <pre class="language-r">        actionButton(ns("copyRCode"), "Copy to Clipboard", `data-clipboard-target` = paste0("#", ns("r_code"))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">30</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        modalButton("Dismiss"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">31</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Simply add `include_teal_css_js()` as one of the UI elements.</pre>
+                      <pre class="language-r">        style = "mb-4"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `shiny.tag.list`.</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">33</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      tags$div(tags$pre(id = ns("r_code"), rcode)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">include_teal_css_js &lt;- function() {</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">76</td>
+                    <td class="num">35</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tagList(</pre>
+                      <pre class="language-r">    title = title,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">77</td>
+                    <td class="num">36</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyjs::useShinyjs(),</pre>
+                      <pre class="language-r">    footer = tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">78</td>
+                    <td class="num">37</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_css_files(),</pre>
+                      <pre class="language-r">      actionButton(ns("copyRCode"), "Copy to Clipboard", `data-clipboard-target` = paste0("#", ns("r_code"))),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">38</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      modalButton("Dismiss")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # init.js is executed from the server</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">80</td>
+                    <td class="num">40</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_js_files(except = "init.js"),</pre>
+                      <pre class="language-r">    size = "l",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">81</td>
+                    <td class="num">41</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyjs::hidden(icon("fas fa-gear")), # add hidden icon to load font-awesome css for icons</pre>
+                      <pre class="language-r">    easyClose = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -48570,14 +48459,14 @@ <h2>teal coverage - 60.02%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/show_rcode_modal.R" class="hidden">
+            <div id="R/teal_data_module.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Show `R` code modal</pre>
+                      <pre class="language-r">#' Data module for `teal` applications</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -48591,70 +48480,70 @@ <h2>teal coverage - 60.02%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Use the [shiny::showModal()] function to show the `R` code inside.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Create a `teal_data_module` object and evaluate code on it with history tracking.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`character(1)`)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Title of the modal, displayed in the first comment of the `R` code.</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param rcode (`character`)</pre>
+                      <pre class="language-r">#' `teal_data_module` creates a `shiny` module to interactively supply or modify data in a `teal` application.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  vector with `R` code to show inside the modal.</pre>
+                      <pre class="language-r">#' The module allows for running any code (creation _and_ some modification) after the app starts or reloads.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param session (`ShinySession`) optional</pre>
+                      <pre class="language-r">#' The body of the server function will be run in the app rather than in the global environment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `shiny` session object, defaults to [shiny::getDefaultReactiveDomain()].</pre>
+                      <pre class="language-r">#' This means it will be run every time the app starts, so use sparingly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -48668,207 +48557,487 @@ <h2>teal coverage - 60.02%</h2>
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @references [shiny::showModal()]</pre>
+                      <pre class="language-r">#' Pass this module instead of a `teal_data` object in a call to [init()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Note that the server function must always return a `teal_data` object wrapped in a reactive expression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">show_rcode_modal &lt;- function(title = NULL, rcode, session = getDefaultReactiveDomain()) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">17</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_soft(</pre>
+                      <pre class="language-r">#' See vignette `vignette("data-as-shiny-module", package = "teal")` for more details.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">18</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    when = "0.16",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">19</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    what = "show_rcode_modal()",</pre>
+                      <pre class="language-r">#' @param ui (`function(id)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">20</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "This function will be removed in the next release."</pre>
+                      <pre class="language-r">#'  `shiny` module UI function; must only take `id` argument</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @param server (`function(id)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  `shiny` module server function; must only take `id` argument;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">23</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rcode &lt;- paste(rcode, collapse = "\n")</pre>
+                      <pre class="language-r">#'  must return reactive expression containing `teal_data` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param label (`character(1)`) Label of the module.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">25</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- session$ns</pre>
+                      <pre class="language-r">#' @param once (`logical(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">26</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  showModal(modalDialog(</pre>
+                      <pre class="language-r">#'  If `TRUE`, the data module will be shown only once and will disappear after successful data loading.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">27</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tagList(</pre>
+                      <pre class="language-r">#'  App user will no longer be able to interact with this module anymore.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">28</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">#'  If `FALSE`, the data module can be reused multiple times.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">29</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        actionButton(ns("copyRCode"), "Copy to Clipboard", `data-clipboard-target` = paste0("#", ns("r_code"))),</pre>
+                      <pre class="language-r">#'  App user will be able to interact and change the data output from the module multiple times.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">30</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modalButton("Dismiss"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">31</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        style = "mb-4"</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#' `teal_data_module` returns a list of class `teal_data_module` containing two elements, `ui` and</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">33</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' `server` provided via arguments.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @examples</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' tdm &lt;- teal_data_module(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   ui = function(id) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     actionButton(ns("submit"), label = "Load data")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   },</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   server = function(id) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     moduleServer(id, function(input, output, session) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'       eventReactive(input$submit, {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'         data &lt;- within(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'           teal_data(),</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'           {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'             dataset1 &lt;- iris</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'             dataset2 &lt;- mtcars</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'           }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'         )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'         data</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'       })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @name teal_data_module</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @seealso [`teal.data::teal_data-class`], [teal.code::qenv()]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">teal_data_module &lt;- function(ui, server, label = "data module", once = TRUE) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">33<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_function(ui, args = "id", nargs = 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">32<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_function(server, args = "id", nargs = 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_flag(once)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  structure(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ui = ui,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      server = function(id) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">23<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        data_out &lt;- server(id)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(tags$pre(id = ns("r_code"), rcode)),</pre>
+                      <pre class="language-r">        decorate_err_msg(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">          assert_reactive(data_out),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">35</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title = title,</pre>
+                      <pre class="language-r">          pre = sprintf("From: 'teal_data_module()':\nA 'teal_data_module' with \"%s\" label:", label),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">36</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    footer = tagList(</pre>
+                      <pre class="language-r">          post = "Please make sure that this module returns a 'reactive` object containing 'teal_data' class of object." # nolint: line_length_linter.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">37</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      actionButton(ns("copyRCode"), "Copy to Clipboard", `data-clipboard-target` = paste0("#", ns("r_code"))),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">38</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      modalButton("Dismiss")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">40</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size = "l",</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">41</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    easyClose = TRUE</pre>
+                      <pre class="language-r">    class = "teal_data_module",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    once = once</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -48877,864 +49046,857 @@ <h2>teal coverage - 60.02%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/teal_data_module.R" class="hidden">
+            <div id="R/teal_data_module-eval_code.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Data module for `teal` applications</pre>
+                      <pre class="language-r">setOldClass("teal_data_module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">#' Evaluate code on `teal_data_module`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `teal_data_module` object and evaluate code on it with history tracking.</pre>
+                      <pre class="language-r">#' `eval_code` evaluates given code in the environment of the `teal_data` object created by the `teal_data_module`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' The code is added to the `@code` slot of the `teal_data`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_data_module` creates a `shiny` module to interactively supply or modify data in a `teal` application.</pre>
+                      <pre class="language-r">#' @param object (`teal_data_module`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The module allows for running any code (creation _and_ some modification) after the app starts or reloads.</pre>
+                      <pre class="language-r">#' @inheritParams teal.code::eval_code</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The body of the server function will be run in the app rather than in the global environment.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This means it will be run every time the app starts, so use sparingly.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' `eval_code` returns a `teal_data_module` object with a delayed evaluation of `code` when the module is run.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Pass this module instead of a `teal_data` object in a call to [init()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Note that the server function must always return a `teal_data` object wrapped in a reactive expression.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' eval_code(tdm, "dataset1 &lt;- subset(dataset1, Species == 'virginica')")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' See vignette `vignette("data-as-shiny-module", package = "teal")` for more details.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @include teal_data_module.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ui (`function(id)`)</pre>
+                      <pre class="language-r">#' @name eval_code</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `shiny` module UI function; must only take `id` argument</pre>
+                      <pre class="language-r">#' @rdname teal_data_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param server (`function(id)`)</pre>
+                      <pre class="language-r">#' @aliases eval_code,teal_data_module,character-method</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `shiny` module server function; must only take `id` argument;</pre>
+                      <pre class="language-r">#' @aliases eval_code,teal_data_module,language-method</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  must return reactive expression containing `teal_data` object</pre>
+                      <pre class="language-r">#' @aliases eval_code,teal_data_module,expression-method</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`character(1)`) Label of the module.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param once (`logical(1)`)</pre>
+                      <pre class="language-r">#' @importFrom methods setMethod</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  If `TRUE`, the data module will be shown only once and will disappear after successful data loading.</pre>
+                      <pre class="language-r">#' @importMethodsFrom teal.code eval_code</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  App user will no longer be able to interact with this module anymore.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  If `FALSE`, the data module can be reused multiple times.</pre>
+                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "character"), function(object, code) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">29</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  App user will be able to interact and change the data output from the module multiple times.</pre>
+                      <pre class="language-r">  teal_data_module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">30</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ui = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">31</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">32</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_data_module` returns a list of class `teal_data_module` containing two elements, `ui` and</pre>
+                      <pre class="language-r">      object$ui(ns("mutate_inner"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `server` provided via arguments.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">34</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    server = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">35</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">36</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tdm &lt;- teal_data_module(</pre>
+                      <pre class="language-r">        data &lt;- object$server("mutate_inner")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">37</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui = function(id) {</pre>
+                      <pre class="language-r">        td &lt;- eventReactive(data(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
+                      <pre class="language-r">          {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">39</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton(ns("submit"), label = "Load data")</pre>
+                      <pre class="language-r">            if (inherits(data(), c("teal_data", "qenv.error"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">40</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   },</pre>
+                      <pre class="language-r">              eval_code(data(), code)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server = function(id) {</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">42</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">              data()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       eventReactive(input$submit, {</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data &lt;- within(</pre>
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">45</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           teal_data(),</pre>
+                      <pre class="language-r">          ignoreNULL = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">47</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             dataset1 &lt;- iris</pre>
+                      <pre class="language-r">        td</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             dataset2 &lt;- mtcars</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">})</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       })</pre>
+                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "language"), function(object, code) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     })</pre>
+                      <pre class="language-r">  eval_code(object, code = paste(lang2calls(code), collapse = "\n"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   }</pre>
+                      <pre class="language-r">})</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "expression"), function(object, code) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name teal_data_module</pre>
+                      <pre class="language-r">  eval_code(object, code = paste(lang2calls(code), collapse = "\n"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [`teal.data::teal_data-class`], [teal.code::qenv()]</pre>
+                      <pre class="language-r">})</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tdata.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Create a `tdata` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">teal_data_module &lt;- function(ui, server, label = "data module", once = TRUE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">33<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(ui, args = "id", nargs = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">32<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(server, args = "id", nargs = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("superseded")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(once)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">#' Recent changes in `teal` cause modules to fail because modules expect a `tdata` object</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">#' to be passed to the `data` argument but instead they receive a `teal_data` object,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ui = ui,</pre>
+                      <pre class="language-r">#' which is additionally wrapped in a reactive expression in the server functions.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      server = function(id) {</pre>
+                      <pre class="language-r">#' In order to easily adapt such modules without a proper refactor,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data_out &lt;- server(id)</pre>
+                      <pre class="language-r">#' use this function to downgrade the `data` argument.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        decorate_err_msg(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          assert_reactive(data_out),</pre>
+                      <pre class="language-r">#' @name tdata</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pre = sprintf("From: 'teal_data_module()':\nA 'teal_data_module' with \"%s\" label:", label),</pre>
+                      <pre class="language-r">#' @param ... ignored</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          post = "Please make sure that this module returns a 'reactive` object containing 'teal_data' class of object." # nolint: line_length_linter.</pre>
+                      <pre class="language-r">#' @return nothing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#' @rdname tdata</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "teal_data_module",</pre>
+                      <pre class="language-r">new_tdata &lt;- function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">19</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    once = once</pre>
+                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_teal_with_splash.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' UI and server modules of `teal`</pre>
+                      <pre class="language-r">#' @rdname tdata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">tdata2env &lt;- function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">25</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Please use [`module_teal`] instead.</pre>
+                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams ui_teal</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams srv_teal</pre>
+                      <pre class="language-r">#' @rdname tdata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">get_code_tdata &lt;- function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">31</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Returns a `reactive` expression containing a `teal_data` object when data is loaded or `NULL` when it is not.</pre>
+                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_teal_with_splash</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' @rdname tdata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">join_keys.tdata &lt;- function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">37</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_with_splash</pre>
+                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_teal_with_splash &lt;- function(id,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                title = build_app_title(),</pre>
+                      <pre class="language-r">#' @rdname tdata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                header = tags$p(),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                footer = tags$p()) {</pre>
+                      <pre class="language-r">get_metadata &lt;- function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">22</td>
+                    <td class="num">43</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_soft(</pre>
+                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">23</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    when = "0.16",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">24</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    what = "ui_teal_with_splash()",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">25</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "Deprecated, please use `ui_teal` instead"</pre>
+                      <pre class="language-r">#' @rdname tdata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">as_tdata &lt;- function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">27</td>
+                    <td class="num">49</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ui_teal(id = id, title = title, header = header, footer = footer)</pre>
+                      <pre class="language-r">  .deprecate_tdata_msg()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_with_splash</pre>
+                      <pre class="language-r">.deprecate_tdata_msg &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">54</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_teal_with_splash &lt;- function(id, data, modules, filter = teal_slices()) {</pre>
+                      <pre class="language-r">  lifecycle::deprecate_stop(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">33</td>
+                    <td class="num">55</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_soft(</pre>
+                      <pre class="language-r">    when = "0.16",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">34</td>
+                    <td class="num">56</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    when = "0.16",</pre>
+                      <pre class="language-r">    what = "tdata()",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">35</td>
+                    <td class="num">57</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    what = "srv_teal_with_splash()",</pre>
+                      <pre class="language-r">    details = paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">36</td>
+                    <td class="num">58</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "Deprecated, please use `srv_teal` instead"</pre>
+                      <pre class="language-r">      "tdata has been removed in favour of `teal_data`.\n",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">59</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "Please follow migration instructions https://github.com/insightsengineering/teal/discussions/987."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">38</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  srv_teal(id = id, data = data, modules = modules, filter = filter)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -49743,14 +49905,14 @@ <h2>teal coverage - 60.02%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/landing_popup_module.R" class="hidden">
+            <div id="R/get_rcode_utils.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Landing popup module</pre>
+                      <pre class="language-r">#' Generates library calls from current session info</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -49764,7 +49926,7 @@ <h2>teal coverage - 60.02%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Creates a landing welcome popup for `teal` applications.</pre>
+                      <pre class="language-r">#' Function to create multiple library calls out of current session info to ensure reproducible code works.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -49778,585 +49940,444 @@ <h2>teal coverage - 60.02%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module is used to display a popup dialog when the application starts.</pre>
+                      <pre class="language-r">#' @return Character vector of `library(&lt;package&gt;)` calls.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The dialog blocks access to the application and must be closed with a button before the application can be viewed.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">get_rcode_libraries &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">8</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`character(1)`) Label of the module.</pre>
+                      <pre class="language-r">  libraries &lt;- vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">9</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`character(1)`) Text to be displayed as popup title.</pre>
+                      <pre class="language-r">    utils::sessionInfo()$otherPkgs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">10</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param content (`character(1)`, `shiny.tag` or `shiny.tag.list`) with the content of the popup.</pre>
+                      <pre class="language-r">    function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">11</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Passed to `...` of `shiny::modalDialog`. See examples.</pre>
+                      <pre class="language-r">      paste0("library(", x$Package, ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param buttons (`shiny.tag` or `shiny.tag.list`) Typically a `modalButton` or `actionButton`. See examples.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">13</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    character(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `teal_module` (extended with `teal_landing_module` class) to be used in `teal` applications.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">15</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  paste0(paste0(rev(libraries), sep = "\n"), collapse = "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app1 &lt;- init(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     example_module()</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">get_rcode_str_install &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">22</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   landing_popup = landing_popup_module(</pre>
+                      <pre class="language-r">  code_string &lt;- getOption("teal.load_nest_code")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">23</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     content = "A place for the welcome message or a disclaimer statement.",</pre>
+                      <pre class="language-r">  if (is.character(code_string)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">24</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     buttons = modalButton("Proceed")</pre>
+                      <pre class="language-r">    code_string</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">26</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    "# Add any code to install/load your NEST environment here\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app1$ui, app1$server)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_teal_with_splash.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' UI and server modules of `teal`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' app2 &lt;- init(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     example_module()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   landing_popup = landing_popup_module(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     title = "Welcome",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     content = tags$b(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'       "A place for the welcome message or a disclaimer statement.",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'       style = "color: red;"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     buttons = tagList(</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       modalButton("Proceed"),</pre>
+                      <pre class="language-r">#' Please use [`module_teal`] instead.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       actionButton("read", "Read more",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         onclick = "window.open('http://google.com', '_blank')"</pre>
+                      <pre class="language-r">#' @inheritParams ui_teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">#' @inheritParams srv_teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       actionButton("close", "Reject", onclick = "window.close()")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' Returns a `reactive` expression containing a `teal_data` object when data is loaded or `NULL` when it is not.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @name module_teal_with_splash</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app2$ui, app2$server)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @rdname module_teal_with_splash</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">ui_teal_with_splash &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">landing_popup_module &lt;- function(label = "Landing Popup",</pre>
+                      <pre class="language-r">                                data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 title = NULL,</pre>
+                      <pre class="language-r">                                title = build_app_title(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 content = NULL,</pre>
+                      <pre class="language-r">                                header = tags$p(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 buttons = modalButton("Accept")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">61</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">                                footer = tags$p()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">62</td>
+                    <td class="num">22</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(title, null.ok = TRUE)</pre>
+                      <pre class="language-r">  lifecycle::deprecate_soft(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">63</td>
+                    <td class="num">23</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(</pre>
+                      <pre class="language-r">    when = "0.16",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">64</td>
+                    <td class="num">24</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    content,</pre>
+                      <pre class="language-r">    what = "ui_teal_with_splash()",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">65</td>
+                    <td class="num">25</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    classes = c("character", "shiny.tag", "shiny.tag.list", "html"), null.ok = TRUE</pre>
+                      <pre class="language-r">    details = "Deprecated, please use `ui_teal` instead"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">67</td>
+                    <td class="num">27</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(buttons, classes = c("shiny.tag", "shiny.tag.list"))</pre>
+                      <pre class="language-r">  ui_teal(id = id, title = title, header = header, footer = footer)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">69</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  message("Initializing landing_popup_module")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  module &lt;- module(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">72</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">73</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    server = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">74</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">75</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        showModal(</pre>
+                      <pre class="language-r">#' @rdname module_teal_with_splash</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">76</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          modalDialog(</pre>
+                      <pre class="language-r">srv_teal_with_splash &lt;- function(id, data, modules, filter = teal_slices()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">77</td>
+                    <td class="num">33</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            id = "landingpopup",</pre>
+                      <pre class="language-r">  lifecycle::deprecate_soft(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">78</td>
+                    <td class="num">34</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = title,</pre>
+                      <pre class="language-r">    when = "0.16",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">79</td>
+                    <td class="num">35</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            content,</pre>
+                      <pre class="language-r">    what = "srv_teal_with_splash()",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">80</td>
+                    <td class="num">36</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            footer = buttons</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    details = "Deprecated, please use `srv_teal` instead"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">86</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  class(module) &lt;- c("teal_module_landing", class(module))</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">87</td>
+                    <td class="num">38</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module</pre>
+                      <pre class="language-r">  srv_teal(id = id, data = data, modules = modules, filter = filter)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>